update examples

epinowcast · Feb 11, 2025 · ef7eaff · ef7eaff
1 parent a738bb2
commit ef7eaff
Show file tree

Hide file tree

Showing 9 changed files with 20 additions and 12 deletions.
diff --git a/R/diagnostics.R b/R/diagnostics.R
@@ -28,7 +28,7 @@
 #'     sdate_lwr = "date_of_sample_tested"
 #'   ) |>
 #'   as_epidist_aggregate_data() |>
-#'   as_epidist_naive_model() |>
+#'   as_epidist_marginal_model() |>
 #'   epidist(chains = 2, cores = 2, refresh = ifelse(interactive(), 250, 0))
 #' epidist_diagnostics(fit)
 epidist_diagnostics <- function(fit) {

diff --git a/R/epidist.R b/R/epidist.R
@@ -43,7 +43,7 @@
 #'     sdate_lwr = "date_of_sample_tested"
 #'   ) |>
 #'   as_epidist_aggregate_data() |>
-#'   as_epidist_naive_model() |>
+#'   as_epidist_marginal_model() |>
 #'   epidist(chains = 2, cores = 2, refresh = ifelse(interactive(), 250, 0))
 #'
 #' summary(fit)

diff --git a/R/marginal_model.R b/R/marginal_model.R
@@ -222,8 +222,7 @@ epidist_formula_model.epidist_marginal_model <- function(
 #'
 #' This method transforms data into the format required by the marginal model
 #' by:
-#' 1. Identifying required columns for the marginal model using
-#'    [.marginal_required_cols()]
+#' 1. Identifying required columns for the marginal model
 #' 2. Summarising the data by counting unique combinations of these columns and
 #'    any variables in the model formula using [.summarise_n_by_formula()]
 #' 3. Converting the summarised data to a marginal model object using

diff --git a/R/naive_model.R b/R/naive_model.R
@@ -143,8 +143,7 @@ epidist_formula_model.epidist_naive_model <- function(
 #'
 #' This method transforms data into the format required by the naive model
 #' by:
-#' 1. Identifying required columns for the naive model using
-#'    [.naive_required_cols()]
+#' 1. Identifying required columns for the naive model
 #' 2. Summarising the data by counting unique combinations of these columns and
 #'    any variables in the model formula using [.summarise_n_by_formula()]
 #' 3. Converting the summarised data to a naive model object using

diff --git a/man/epidist.Rd b/man/epidist.Rd
diff --git a/man/epidist_diagnostics.Rd b/man/epidist_diagnostics.Rd
diff --git a/man/epidist_transform_data_model.epidist_marginal_model.Rd b/man/epidist_transform_data_model.epidist_marginal_model.Rd
diff --git a/man/epidist_transform_data_model.epidist_naive_model.Rd b/man/epidist_transform_data_model.epidist_naive_model.Rd
diff --git a/tests/testthat/test-int-direct_model.R → tests/testthat/test-int-naive_model.R b/tests/testthat/test-int-direct_model.R → tests/testthat/test-int-naive_model.R