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 Bethencourt
> <betans...@gmail.com> escribió:
>
> 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)
>
> # Definir las opciones de control
> control <- control.icm(type = "SIR", nsteps = 500, nsims = 10)
>
> # Crear el modelo original
> mod1 <- icm(param, init, control)
>
> # Ajustar los parámetros para reflejar la situación actual
> param2 <- param.icm(inf.prob = 0.3, act.rate = 0.3, rec.rate = 1/40)
>
> # Crear un nuevo modelo conlos nuevos parámetros
> mod2 <- icm(param2, init, control)
>
> # Generar predicciones para los próximos 7 días
> pred <- predict(mod2, times = 501:508, nsims = 100)
>
> # Graficar las predicciones
> plot(pred)
[[alternative HTML version deleted]]
_______________________________________________
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
