updated arguments to probability_contain in epidemic_risk vignette

epiverse-trace · Jan 9, 2024 · d781687 · d781687
1 parent 452e4f9
commit d781687
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/vignettes/epidemic_risk.Rmd b/vignettes/epidemic_risk.Rmd
@@ -306,10 +306,7 @@ prob_contain <- apply(contain_params, 1, function(x) {
     R = x[["R"]],
     k = x[["k"]],
     num_init_infect = x[["num_init_infect"]],
-    control = x[["control"]],
-    control_type = "population",
-    stochastic = TRUE,
-    case_threshold = 100
+    pop_control = x[["control"]]
   )
 })
 contain_params <- cbind(contain_params, prob_contain)