utils::globalVariables(c("mcmc"))
as.mcmc.rjags <- function (x) {
x <- x$BUGSoutput
if (x$n.chains > 1) {
z <- list()
for (i in 1:x$n.chains) {
z[[i]] <- mcmc(x$sims.array[, i, ], start = 1, thin = x$n.thin)
}
class(z) <- "mcmc.list"
}
else {
z <- mcmc(x$sims.matrix, start = 1, thin = x$n.thin)
}
return(z)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.