Skip to content
This repository has been archived by the owner on Jul 24, 2024. It is now read-only.

Commit

Permalink
Merge pull request #238 from HopkinsIDD/master
Browse files Browse the repository at this point in the history
Get updates from master
  • Loading branch information
kkintaro authored Apr 23, 2020
2 parents d6aa1e2 + 805bddc commit a1a5e9d
Showing 1 changed file with 2 additions and 4 deletions.
6 changes: 2 additions & 4 deletions R/scripts/check_models_report.R
Original file line number Diff line number Diff line change
Expand Up @@ -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 %>%
Expand All @@ -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"))
}

###########################################
Expand Down

0 comments on commit a1a5e9d

Please sign in to comment.