# Build a SEIR type epidemic model
m <- buildFromWorkbook(
system.file("models/SEIR.xlsx", package="rodeo")
)
m$setPars(setNames(m$getParsTable()$default,
m$getParsTable()$name))
m$setVars(setNames(m$getVarsTable()$default,
m$getVarsTable()$name))
x <- m$dynamics(times=0:30, fortran=FALSE)
print(head(x))
Run the code above in your browser using DataLab