Otro ejemplo
Se está realizando vigilancia epidemiológica y al décimo día se
observa esta situación. Se necesita hacer un pronóstico de este brote
durante 10 días más
library(EpiModel)
param <- param.dcm(inf.prob = 0.2, act.rate = 5,
rec.rate = 1/5, a.rate = 1/90, ds.rate =
Estimado José
Hay que leer mucho esa librería, funciona distinto a la regla general, por
ejemplo, recién realizo un modelo lineal con solo diez números, del uno al
cinco y semejantes con decimales, una tontería, pero su utilizo la función
summary() hay parámetros, a los cuáles puedo acceder
José
Envié antes el correo
El código anda, yo tendría que estudiarlo, pero, posiblemente no funcione
predict porque no está pensado para eso, pero podría calcularlo, sin saber
como, posiblemente desde tiempo, su gráfica da 500 en tiempo. Pero no trabajo
sobre esa librería, opinar de mi parte
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 =
Estimados
Quisiera saber porque el modelo siguiente no me hace las predicciones
--
library(EpiModel)
# Definir los parámetros iniciales
param <- param.icm(inf.prob = 0.2, act.rate = 0.25, rec.rate = 1/50)
# Definir las condiciones iniciales
init <- init.icm(s.num = 500, i.num = 1, r.num = 0)
Estimado José Betancourt
Corrí si código en Mac, el mensaje que me da a mí es el siguiente:
Error in UseMethod("predict") :
no applicable method for 'predict' applied to an object of class "icm"
No sabría más que decir.
Javier Rubén Marcuzzi
> El 24 may. 2023, a las 08:23, Jose Betancourt
