Nothing
summary.bayesx <-
function(object, model = NULL,
digits = max(3, getOption("digits") - 3), ...)
{
res <- get.model(object, model)
attr(res, "digits") <- digits
attr(res, "args") <- list(...)
class(res) <- "summary.bayesx"
return(res)
}
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.