notes/absolute.R

In bbolker/McMasterPandemic: Pandemic Model

use_ode <- FALSE
testwt_scale <- "none" ## or "N" or "sum_u"
testing_intensity <- c(0.1)
testing_intensity <- c(0.2, 0.8)
W_asymp <- c(0.01, 0.1,1)
iso_t <- c(0, 0.5,1)

start <- as.Date("2020-01-01")
end <- as.Date("2020-12-01")
pop <- 1.5e7
R0 <- 2.5
Gbar <- 12
set.seed(0807)
keep_all <- FALSE