diff --git a/R/pmc.R b/R/pmc.R index 6397c681..96682092 100644 --- a/R/pmc.R +++ b/R/pmc.R @@ -41,7 +41,7 @@ create_pmc_process <- function( return() } in_age <- variables$birth$get_index_of( - timesteps[time_index] - parameters$pmc_ages + timestep - parameters$pmc_ages )$to_vector() target <- in_age[sample_intervention(in_age, 'pmc', coverage, correlations)]