Nothing
`print.runJagsWrapper` <-
function(x, ...){
if (class(x) != "runJagsWrapper")
stop("'x' must be of class 'runJagsWrapper'")
print(x$run.jags)
print(x$summary)
print(x$diagnostics)
print(x$doses)
cat("\nDIC:",x$DIC,"\n")
}
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.