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 9b0afb068..117eb15c5 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,8 @@ 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 #, + #date %in% unique(obs$date[obs$subpop == location]) ) %>% ## Reformat into form the algorithm is looking for inference::getStats(