Use new function name

epiverse-trace · Feb 5, 2024 · 8b33169 · 8b33169
1 parent d4566d7
commit 8b33169
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/simulate.r b/R/simulate.r
@@ -464,7 +464,7 @@ simulate_summary <- function(index_cases,
     # Adjust next_gen if the number of offspring is greater than the
     # susceptible population.
     if (sum(next_gen) > susc_pop) {
-      next_gen <- adjust_next_gen(
+      next_gen <- .adjust_next_gen(
         next_gen = next_gen,
         susc_pop = susc_pop
       )