avoid partial matching

epiforecasts · Jan 18, 2024 · 027f699 · 027f699
1 parent 3b4cc55
commit 027f699
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/outbreak_step.R b/R/outbreak_step.R
@@ -107,9 +107,9 @@ outbreak_step <- function(case_data = NULL, disp.iso = NULL, disp.com = NULL,
                                          rep(x, y)
                                          })),
     # draws a sample to see if this person is asymptomatic
-    asym = as.logical(rbinom(n = total_new_cases, 1, p = prop.asym)),
+    asym = as.logical(rbinom(n = total_new_cases, 1, prob = prop.asym)),
     # draws a sample to see if this person is traced
-    missed = as.logical(rbinom(n = total_new_cases, 1, p = 1 - prop.ascertain)),
+    missed = as.logical(rbinom(n = total_new_cases, 1, prob = 1 - prop.ascertain)),
     # sample from the incubation period for each new person
     incubfn_sample = inc_samples,
     isolated = FALSE,