code read through

epinowcast · Nov 27, 2024 · bafa1cf · bafa1cf
1 parent 5beebde
commit bafa1cf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/latent_model.R b/R/latent_model.R
@@ -85,7 +85,7 @@ epidist_family_model.epidist_latent_model <- function(
   # Really the name and vars are the "model-specific" parts here
   custom_family <- brms::custom_family(
     paste0("latent_", family$family),
-    dpars = c(family$dpar),
+    dpars = family$dpars,
     links = c(family$link, family$other_links),
     lb = c(NA, as.numeric(lapply(family$other_bounds, "[[", "lb"))),
     ub = c(NA, as.numeric(lapply(family$other_bounds, "[[", "ub"))),