Actually use upper

epiverse-trace · Apr 30, 2024 · a9bae5c · a9bae5c
1 parent 1adcd95
commit a9bae5c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/extract_param.R b/R/extract_param.R
@@ -238,7 +238,8 @@ extract_param <- function(type = c("percentiles", "range"),
     method = "L-BFGS-B",
     val = values_in,
     dist = distribution,
-    lower = lower
+    lower = lower,
+    upper = upper
   ), error = function(e) {
     stop("found inf value in ", distribution)
   })