Nothing
######################################
#It prints the posterior summaries #
#for an object of class summary.bclt #
######################################
print.summary.bclt <- function(x, digits = max(options()$digits - 4, 3),...){
cat("\n\nResults using Bayesian Central Limit Theorem(BCLT)\n\n")
cat("\nPosterior Summaries: \n")
print(x$summary, digits = digits)
cat("\nNote: GSD is the geometric standard deviation, i.e., GSD(x) = exp(sqrt(x))\n\n")
cat("\nPosterior Covariance Matrix: \n")
print(x$PostCovMat, digits = digits)
cat("\nDeviance Information Criterion: ")
cat("\npD: ")
dput(round(x$pD,digits))
cat("Dbar: ")
dput(round(x$Dbar,digits))
cat("DIC: ")
dput(round(x$DIC,digits))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.