# Individual contact SIS model with 2 simulations
mod <- epiICM(type="SIS", s.num=500, i.num=1,
trans.rate=0.8, act.rate=2, rec.rate=0.1,
nsteps=20, nsims=2)
# Default output is mean across simulations
as.data.frame(mod)
# Standard deviations of simulations
as.data.frame(mod, out="sd")
# Individual simulation runs, with default sim=1
as.data.frame(mod, out="vals")
as.data.frame(mod, out="vals", sim=2)
Run the code above in your browser using DataLab