## Data set for the examples:
S_pops <- rep(100000, 10)
E_pops <- c(0, 1, 0, 3, 2, 0, 13, 3, 0, 0)
I_pops <- c(0, 0, 0, 0, 0, 0, 1, 0, 0, 0)
R_pops <- rep(0, 10)
N_pops <- S_pops + E_pops + I_pops + R_pops
## Example using the default parameters:
seir_control <- seir_control(input_S_pops = S_pops,
input_E_pops = E_pops,
input_I_pops = I_pops)
## Example specifying one optional parameter:
seir_control <- seir_control(input_N_pops = N_pops,
input_I_pops = I_pops,
input_R_pops = R_pops,
recov = 1/4.0)
## Example specifying all possible parameters:
seir_control <- seir_control(input_N_pops = N_pops,
input_S_pops = S_pops,
input_E_pops = E_pops,
input_I_pops = I_pops,
input_R_pops = R_pops,
birth = 1/(65*365),
incubate = 0.12,
recov = 0.25)
Run the code above in your browser using DataLab