fix aggregation filterig

HopkinsIDD · Jul 30, 2024 · 1a97b18 · 1a97b18
1 parent 93fa3eb
commit 1a97b18
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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(