diff --git a/R/latent_individual.R b/R/latent_individual.R index ea14e6359..900c77c98 100644 --- a/R/latent_individual.R +++ b/R/latent_individual.R @@ -149,13 +149,14 @@ epidist_family.epidist_latent_individual <- function(data, #' @method epidist_formula epidist_latent_individual #' @family latent_individual #' @importFrom brms brmsterms +#' @importFrom stats update #' @export epidist_formula.epidist_latent_individual <- function(data, family, formula, ...) { epidist_validate(data) formula <- brms:::validate_formula(formula, data = data, family = family) - formula <- update( + formula <- stats::update( formula, delay_central | vreal(obs_t, pwindow_upr, swindow_upr) ~ . )