update new code to function object notation

epiverse-trace · Feb 6, 2024 · 13f1deb · 13f1deb
1 parent a02fb9d
commit 13f1deb
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/simulate.r b/R/simulate.r
@@ -380,7 +380,7 @@ simulate_chains <- function(index_cases,
 #'   percent_immune = 0.1,
 #'   index_cases = 20,
 #'   statistic = "size",
-#'   offspring_dist = "nbinom",
+#'   offspring_dist = rnbinom,
 #'   stat_max = 10,
 #'   mu = 0.9,
 #'   size = 0.36

diff --git a/man/simulate_summary.Rd b/man/simulate_summary.Rd
diff --git a/tests/testthat/test-simulate.R b/tests/testthat/test-simulate.R
@@ -255,7 +255,7 @@ test_that("simulate_summary is numerically correct",{
     pop = 11,
     percent_immune = 0,
     index_cases = 10,
-    offspring_dist = "pois",
+    offspring_dist = rpois,
     statistic = "length",
     lambda = 2
   )