x <- epiICM(type="SI", s.num=1000, i.num=100,
trans.rate = 0.2, act.rate = 0.8,
nsteps = 10, nsims = 3)
y <- epiICM(type="SI", s.num=1000, i.num=100,
trans.rate = 0.2, act.rate = 0.8,
nsteps = 10, nsims = 2)
z <- merge(x, y)
x$i.num
y$i.num
z$i.num
Run the code above in your browser using DataLab