call it transformed_data not trans_data

epinowcast · Dec 3, 2024 · 2a61182 · 2a61182
1 parent 2d1aef4
commit 2a61182
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/R/epidist.R b/R/epidist.R
@@ -38,18 +38,20 @@ epidist <- function(data, formula = mu ~ 1,
   epidist_formula <- epidist_formula(
     data = data, family = epidist_family, formula = formula
   )
-  trans_data <- epidist_transform_data(data, epidist_family, epidist_formula)
+  transformed_data <- epidist_transform_data(
+    data, epidist_family, epidist_formula
+  )
   epidist_prior <- epidist_prior(
-    data = trans_data, family = epidist_family,
+    data = transformed_data, family = epidist_family,
     formula = epidist_formula, prior,
     merge = merge_priors
   )
   epidist_stancode <- epidist_stancode(
-    data = trans_data, family = epidist_family, formula = epidist_formula
+    data = transformed_data, family = epidist_family, formula = epidist_formula
   )
   fit <- fn(
     formula = epidist_formula, family = epidist_family, prior = epidist_prior,
-    stanvars = epidist_stancode, data = trans_data, ...
+    stanvars = epidist_stancode, data = transformed_data, ...
   )
   class(fit) <- c(class(fit), "epidist_fit")
   return(fit)