search for: sir_estocastico

Displaying 1 result from an estimated 1 matches for "sir_estocastico".

2024 Nov 01
1
Fwd: OPTIMIZACIÓN
...as 16:14 Subject: OPTIMIZACIÓN To: <r-help-es-request en r-project.org> Estimados Corri este código y funciona todo bien , menos la ultima parte de optimización apreciaria su ayuda José # Cargar bibliotecas necesarias library(deSolve) library(optimx) # Definir el modelo SIR estocástico SIR_estocastico <- function(time, state, parameters) { with(as.list(c(state, parameters)), { # Ecuaciones diferenciales estocásticas (implementación usando Poisson) dS <- -beta * S * I + rnorm(1, mean = 0, sd = sqrt(beta * S * I)) dI <- beta * S * I - gamma * I + rnorm(1, mean = 0, sd = sqrt...