diff --git a/flepimop/R_packages/inference/R/inference_slot_runner_funcs.R b/flepimop/R_packages/inference/R/inference_slot_runner_funcs.R index 117eb15c5..a708b2460 100644 --- a/flepimop/R_packages/inference/R/inference_slot_runner_funcs.R +++ b/flepimop/R_packages/inference/R/inference_slot_runner_funcs.R @@ -51,8 +51,7 @@ aggregate_and_calc_loc_likelihoods <- function( ## Filter to this location dplyr::filter( modeled_outcome, - !!rlang::sym(obs_subpop) == location #, - #date %in% unique(obs$date[obs$subpop == location]) + !!rlang::sym(obs_subpop) == location ) %>% ## Reformat into form the algorithm is looking for inference::getStats(