# build the model
m <- buildFromWorkbook(system.file("models/SEIR.xlsx", package="rodeo"))
# run with defaults
x <- m$scenarios(times=0:30, scenarios=NULL)
# run with updated values
x <- m$scenarios(times=0:30,
scenarios=list(default=c(t=1, i=0.2, r=0.4), fast=c(t=1, i=0.5, r=0.1))
)
Run the code above in your browser using DataLab