Fix distribution getting step of composite distribution

epiforecasts · Aug 27, 2024 · 9456a1e · 9456a1e
1 parent 6fedd41
commit 9456a1e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/checks.R b/R/checks.R
@@ -85,7 +85,7 @@ check_stan_delay <- function(dist) {
     params <- get_parameters(dist, id)
     vapply(params, function(x) {
       is.numeric(x) ||
-        (is(x, "dist_spec") && get_distribution(x, id) == "normal" &&
+        (is(x, "dist_spec") && get_distribution(x) == "normal" &&
            is.infinite(max(x)))
     }, logical(1))}
   }))