Nothing
GRstats <- function(object, term = NULL, ...)
{
if((n <- length(object)) < 2L)
stop("at least two models ar needed for calculation!")
return(coda::gelman.diag(samples(object, model = NULL, term, coda = TRUE), ...))
}
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.