added defaults to ind_control and pop_control in probability_extinct …

…to match signature of probability_epidemic
epiverse-trace · Dec 14, 2023 · 4df3a52 · 4df3a52
1 parent 4668c9a
commit 4df3a52
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/probability_epidemic.R b/R/probability_epidemic.R
@@ -111,8 +111,8 @@ probability_epidemic <- function(R,
 probability_extinct <- function(R,
                                 k,
                                 num_init_infect,
-                                ind_control,
-                                pop_control,
+                                ind_control = 0,
+                                pop_control = 0,
                                 ...,
                                 offspring_dist) {
   # input checking done in probability_epidemic