library(BayesLN)
data("EPA09")
# The optimization algorithm might require time:
# LN_Quant(x = EPA09, x_transf = FALSE, quant = 0.95, method = "optimal", CI = FALSE)
LN_Quant(x = EPA09, x_transf = FALSE, quant = 0.95, method = "weak_inf",
alpha_CI = 0.05, type_CI = "UCL", nrep_CI = 1e3) # increase nrep_CI
Run the code above in your browser using DataLab