#Generate 3-number summary data
set.seed(123)
n <- 1000
x <- stats::rlnorm(n, 4, 0.3)
quants <- c(stats::quantile(x, probs = c(0.25, 0.5, 0.75)))
#Estimate SLD parameters using 3-number summary
params<- est.sld.q1q2q3(q1 = quants[1], med = quants[2], q3 = quants[3],
n=n, opt=TRUE)$parameters
params
Run the code above in your browser using DataLab