From a9bae5c78be08e4a22a2ea3af2ee5e374cac0d03 Mon Sep 17 00:00:00 2001
From: Hugo Gruson <10783929+Bisaloo@users.noreply.github.com>
Date: Mon, 29 Apr 2024 21:02:58 +0200
Subject: [PATCH] Actually use upper

---
 R/extract_param.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/extract_param.R b/R/extract_param.R
index 16f9857af..54ca082d5 100644
--- 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)
   })