describe <- function(x) {
estimate = c(mean(x), HDIofMCMC(x, .95))
names(estimate) = c('estimate', 'lower.hdi', 'upper.hdi')
return(estimate)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.