plot.mh <- function(object, nburning = 0){
chains <- object$chains
chains_chopped <- chains[(nburnin + 1):nrow(chains), ]
plot.ts(chains_chopped)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.