# Stochastic SI model with 10 simulations
mod <- epiICM(type = "SI", s.num = 500, i.num = 1,
trans.rate = 0.2, act.rate = 0.25,
nsteps = 500, nsims = 10)
summary(mod, time = 25)
summary(mod, time = 50, comp.plot = TRUE)
Run the code above in your browser using DataLab