#' @export
as.mcarray.mcmc_data <- function(x, ...) {
as.mcarray(x$mcmc)
}
#' @export
as.mcmc.mcmc_data <- function(x, ...) {
coda::as.mcmc(x$mcmc)
}
#' @export
as.mcmc.list.mcmc_data <- function(x, ...) {
coda::as.mcmc.list(x$mcmc)
}
#' @export
as.mcmcarray.mcmc_data <- function(x, ...) {
as.mcmcarray(x$mcmc)
}
#' @export
as.mcmcr.mcmc_data <- function(x, ...) {
as.mcmcr(x$mcmc)
}
#' @export
as.data.frame.mcmc_data <- function(x, ...) {
as.data.frame(x$data)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.