From e8110871fb2c98d5a9b9a1be099ea82b667a99fb Mon Sep 17 00:00:00 2001 From: Felipe Gonzalez Date: Tue, 14 May 2024 17:54:58 -0600 Subject: [PATCH] Incrementar no. simulaciones --- notas/15-aplicaciones-series.qmd | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/notas/15-aplicaciones-series.qmd b/notas/15-aplicaciones-series.qmd index 934de44..500619e 100644 --- a/notas/15-aplicaciones-series.qmd +++ b/notas/15-aplicaciones-series.qmd @@ -858,8 +858,8 @@ agregamos una componente de nivel local: set.seed(886) mod_esp_1 <- AddLocalLevel(list(), y_mod) mod_esp_2 <- AddLocalLinearTrend(list(), y_mod) -ajuste_pre_1 <- bsts(y_mod ~ x, mod_esp_1, niter = 5000, ping = 5000) -ajuste_pre_2 <- bsts(y_mod ~ x, mod_esp_2, niter = 5000, ping = 5000) +ajuste_pre_1 <- bsts(y_mod ~ x, mod_esp_1, niter = 25000, ping = 5000) +ajuste_pre_2 <- bsts(y_mod ~ x, mod_esp_2, niter = 25000, ping = 5000) CompareBstsModels(list(ajuste_pre_1, ajuste_pre_2)) ```