Nothing
#' Stop if the results were not derived from an internally consistent model type
stopIfNotConsistent <- function(result, method) {
allowedTypes <- c('consistency', 'regression')
if (!(tolower(result[['model']][['type']]) %in% allowedTypes)) stop(paste("Can only apply", method, "to models of the following types:", paste(allowedTypes, collapse=", ")))
}
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.