Nothing
terms.bayesx <- function(x, model = NULL, ...)
{
x <- get.model(x, model)
if(length(x) > 1L) {
rval <- vector("list", length = length(x))
nx <- NULL
for(i in 1L:length(x)) {
rval[[i]] <- x[[i]]$bayesx.setup$terms
if(!is.null(x[[i]]$bayesx.setup$terms))
nx <- c(nx, x[[i]]$model.fit$model.name)
}
names(rval) <- nx
rval <- delete.NULLs(rval)
} else rval <- x[[1L]]$bayesx.setup$terms
if(is.null(rval) || length(rval) < 1L)
rval <- NA
return(rval)
}
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.