diff --git a/R/scripts/check_models_report.R b/R/scripts/check_models_report.R index 78e4f312b..7f41f307f 100644 --- a/R/scripts/check_models_report.R +++ b/R/scripts/check_models_report.R @@ -26,8 +26,7 @@ j = 1 ########################################### ### check total population is constant pre <- function(x){ - x %>% dplyr::filter(comp %in% c("S", "E", "I1", "I2", "I3", "R")) %>% - dplyr::filter(time <= "2020-10-01") + x %>% dplyr::filter(comp %in% c("S", "E", "I1", "I2", "I3", "R")) } post <- function(x){ x %>% @@ -44,8 +43,7 @@ post <- function(x){ pre2 <- function(x){ x %>% - dplyr::filter(comp %in% c("diffI")) %>% - dplyr::filter(time <= "2020-10-01") + dplyr::filter(comp %in% c("diffI")) } ###########################################