From 2a6118214ac8168f1776c202a5b9729e893f30bb Mon Sep 17 00:00:00 2001 From: Sam Date: Tue, 3 Dec 2024 11:04:28 +0000 Subject: [PATCH] call it transformed_data not trans_data --- R/epidist.R | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/R/epidist.R b/R/epidist.R index 8825edea9..a4718c229 100644 --- 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)