Tengo mi objeto de salida jags. Para entender cómo funcionan las cadenas de coda MCMC, he intentado ver si la primera iteración en cada cadena MCMC es igual a los valores iniciales suministrados. ¡Y es diferente! ¡El valor inicial no está ahí! ¿Es un error?
Tenga en cuenta que he especificado burnin = 0 para este propósito.
Cómo he corrido juergas:
inits = function () { list(
alpha = rnorm(no_crit, 0, 10000),
beta = rnorm(no_crit, 0, 10000)
,eps_tau = 7.9
,gamma_tau = 3.1
,delta_tau = 213
)
}
params = c("alpha", "beta", "eps_tau", "gamma_tau", "delta_tau")
ni <- 5000
nt <- 8
nb <- 0
nc <- 3
out <- R2jags::jags(win.data, inits, params, "model.txt",
nc, ni, nb, nt,
working.directory = paste(getwd(), "/tmp_bugs/", sep = "")
)
Una vez terminado el cálculo de los jags, volqué la primera iteración de cada cadena de coda MCMC:
> mm = as.mcmc(out)
> mm[1, c("delta_tau", "eps_tau")]
> mm[1, c("delta_tau", "eps_tau")]
[[1]]
delta_tau eps_tau
4426.7716020 0.4825011
[[2]]
delta_tau eps_tau
4811.3174529 0.5240721
[[3]]
delta_tau eps_tau
4406.2672016 0.5351576
Como puede ver, la primera iteración en todas estas cadenas es diferente de lo que suministré como valores iniciales (eps_tau = 7,9, delta_tau = 213).