refac: reduce the output of

epiverse-trace · Aug 15, 2023 · ec4335c · ec4335c
1 parent 802c5c2
commit ec4335c
Showing 1 changed file with 2 additions and 21 deletions.
diff --git a/R/modelling.R b/R/modelling.R
@@ -180,34 +180,15 @@ fit_seromodel <- function(serodata,
       serodata = serodata,
       stan_data = stan_data,
       exposure_years = exposure_years,
-      exposure_ages = exposure_ages,
-      n_iters = n_iters,
-      n_thin = n_thin,
-      n_warmup = n_warmup,
-      foi_model = foi_model,
-      delta = delta,
-      m_treed = m_treed,
-      loo_fit = loo_fit,
-      foi_cent_est = foi_cent_est,
-      foi_post_s = foi_post_s
+      exposure_ages = exposure_ages
     )
-    seromodel_object$model_summary <-
-      extract_seromodel_summary(seromodel_object)
   } else {
     seromodel_object <- list(
       seromodel_fit = "no model",
       serodata = serodata,
       stan_data = stan_data,
       exposure_years = exposure_years,
-      exposure_ages = exposure_ages,
-      n_iters = n_iters,
-      n_thin = n_thin,
-      n_warmup = n_warmup,
-      model = foi_model,
-      delta = delta,
-      m_treed = m_treed,
-      loo_fit = loo_fit,
-      model_summary = NA
+      exposure_ages = exposure_ages
     )
   }