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...