# One group SIS model with varying act.rate
mod <- epiDCM(type="SIS", s.num=500, i.num=1, r.num=0,
trans.rate=0.2, act.rate=seq(0.05,0.5,0.05),
rec.rate=1/50, nsteps=500, verbose=TRUE)
head(as.data.frame(mod, run=3))
# Two group SIR model with vital dynamics
mod <- epiDCM(type = "SIR", groups = 2,
s.num = 500, i.num = 1, s.num.g2 = 500, i.num.g2 = 1,
trans.rate = 0.2, trans.rate.g2 = 0.1, act.rate = 3,
balance = "g1", rec.rate = 1/50, rec.rate.g2 = 1/50,
b.rate = 1/100, b.rate.g2 = NA, ds.rate = 1/100,
ds.rate.g2 = 1/100, di.rate = 1/90, di.rate.g2 = 1/90,
dr.rate = 1/100, dr.rate.g2 = 1/100, nsteps = 500)
head(as.data.frame(mod))
Run the code above in your browser using DataLab