## Data set for the examples:
N_pops <- rep(100000, 10)
E_pops <- c(0, 1, 0, 3, 2, 0, 14, 3, 0, 0)
S_pops <- N_pops - E_pops
I_asym_pops <- rep(0, 10)
I_presym_pops <- rep(0, 10)
I_sym_pops <- c(1, 0, 11, 0, 0, 5, 0, 0, 9, 0)
I_home_pops <- rep(0, 10)
I_hosp_pops <- rep(0, 10)
I_icu1_pops <- rep(0, 10)
I_icu2_pops <- rep(0, 10)
R_pops <- rep(0, 10)
D_pops <- rep(0, 10)
## Example using the default parameters:
covid19_control <- covid19_control(input_S_pops = S_pops,
input_E_pops = E_pops)
## Example specifying some parameters:
covid19_control <- covid19_control(input_N_pops = N_pops,
input_I_sym_pops = I_sym_pops,
input_I_home_pops = I_home_pops,
input_I_hosp_pops = I_hosp_pops,
input_I_icu2_pops = I_icu2_pops,
input_D_pops = D_pops,
frac_beta_hosp = 0.03)
## Example specifying all possible parameters:
covid19_control <- covid19_control(input_S_pops = S_pops,
input_E_pops = E_pops,
input_I_asym_pops = I_asym_pops,
input_I_presym_pops = I_presym_pops,
input_I_sym_pops = I_sym_pops,
input_I_home_pops = I_home_pops,
input_I_hosp_pops = I_hosp_pops,
input_I_icu1_pops = I_icu1_pops,
input_I_icu2_pops = I_icu2_pops,
input_R_pops = R_pops,
input_D_pops = D_pops,
frac_beta_asym = 0.50,
frac_beta_hosp = 0.06,
delta = 0.25,
recov_a = 0.57,
recov_p = 0.62,
recov_s = 0.11,
recov_home = 0.28,
recov_icu1 = 0.12,
recov_icu2 = 0.29,
asym_rate = 0.65,
sym_to_icu_rate = 0.122)
Run the code above in your browser using DataLab