# model can be defined using denim DSL
transitions <- denim_dsl({
S -> I = beta * S * I / N
I -> R = d_gamma(1/3, 2)
})
# or as a list
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