diff --git a/R/extract_param.R b/R/extract_param.R index 293b1a1ed..b286680fb 100644 --- a/R/extract_param.R +++ b/R/extract_param.R @@ -223,7 +223,7 @@ extract_param <- function(type = c("percentiles", "range"), } if (distribution == "weibull") { names(param) <- c("shape", "scale") - lower <- c(1e-7, 1e-7) + lower <- c(1e-3, 1e-3) upper <- c(1e10, 1e10) } if (distribution == "norm") {