#' @method as.mcmc.list stanfit
#' @export
as.mcmc.list.stanfit <- function(x, ...) as.mcmc.list(as.mcmcr(x))
#' @export
as.mcmcr.stanfit <- function(x, ...) {
x <- as.mcmcr(rstan::As.mcmc.list(x))
x["lp__"] <- NULL
x
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.