add missing sd to parameter sampling

epiforecasts · Nov 27, 2023 · acf4770 · acf4770
1 parent 6c63012
commit acf4770
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/dist.R b/R/dist.R
@@ -1601,7 +1601,7 @@ fix_dist <- function(x, strategy = c("mean", "sample")) {
     } else if (strategy == "sample") {
       lower_bound <- lower_bounds(x$dist)[natural_params(x$dist)]
       mean <- rtruncnorm(
-        n = 1, a = lower_bound, mean = x$params_mean
+        n = 1, a = lower_bound, mean = x$params_mean, sd = x$params_sd
       )
       x <- .dist_spec(
         params_mean = mean,