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