From bafa1cf5509f22a50bf515e0cc8175201df7d470 Mon Sep 17 00:00:00 2001 From: Sam Date: Wed, 27 Nov 2024 18:51:26 +0000 Subject: [PATCH] code read through --- R/latent_model.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/latent_model.R b/R/latent_model.R index fe51246eb..827c4f990 100644 --- 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"))),