Nothing
## Print the statistics summary of the chains
print.rbugs <- function(x, ...)
{
cat("\n The MCMC simulation has ", x$n.chains, " chain(s),\n each with ", x$n.iter,
" iterations (first ", x$n.burnin, " discarded).\n Each chain is thinned by ", x$n.thin,
".\n A total of ", x$n.sims ," iterations were saved.\n\n", sep = "")
}
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.