remove date filtering

HopkinsIDD · Jul 30, 2024 · 0dda4a3 · 0dda4a3
1 parent 1a97b18
commit 0dda4a3
Showing 1 changed file with 1 addition 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,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(