Add explicit stats::update

epinowcast · Aug 2, 2024 · 70b380b · 70b380b
1 parent c1bb3f9
commit 70b380b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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) ~ .
   )