transitions <- list(
"S -> I" = "beta * S * I / N",
"I -> R" = d_gamma(1/3, 2)
)
initialValues <- c(
S = 999,
I = 1,
R = 0
)
parameters <- c(
beta = 0.012,
N = 1000
)
simulationDuration <- 30
timeStep <- 0.01
mod <- sim(transitions = transitions,
initialValues = initialValues,
parameters = parameters,
simulationDuration = simulationDuration,
timeStep = timeStep)
Run the code above in your browser using DataLab