From 70b380b895a1f5e992c3285eb4c5daed0bf1e048 Mon Sep 17 00:00:00 2001 From: athowes Date: Fri, 2 Aug 2024 12:11:37 +0100 Subject: [PATCH] Add explicit stats::update --- R/latent_individual.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) ~ . )