Check if Inf occurs on lower or upper

epiverse-trace · Apr 29, 2024 · de5130c · de5130c
1 parent f730a4b
commit de5130c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/extract_param.R b/R/extract_param.R
@@ -221,7 +221,8 @@ extract_param <- function(type = c("percentiles", "range"),
   }
   if (distribution == "weibull") {
     names(param) <- c("shape", "scale")
-    lower <- c(1e-10, 1e-10)
+    lower <- c(1e-10, 1e-10),
+    upper <- c(1e10, 1e10)
   }
   if (distribution == "norm") {
     names(param) <- c("mean", "sd")