Skip to content
Prev 15020 / 15379 Next

[R-es] R pred

Quisiéramos agregar predicción para siete días a este modelo : library(EpiModel)

param <- param.dcm(inf.prob = 0.2, act.rate = 5,
rec.rate = 1/3, a.rate = 1/90, ds.rate = 1/100,
di.rate = 1/35, dr.rate = 1/100)
init <- init.dcm(s.num = 500, i.num = 1, r.num = 0)
control <- control.dcm(type = "SIR", nsteps = 500)
mod2 <- dcm(param, init, control)
mod2
plot(mod2)

El 24/5/23, Javier Marcuzzi <javier.ruben.marcuzzi en gmail.com> escribió: