Nothing
extractIndexFullModel <- function(generalTestBFObj) {
numerators <- sapply(generalTestBFObj@numerator, slot, "longName")
numerators <- sapply(numerators, as.formula)
numerators <- sapply(numerators, function(x) length(attr(terms(x), "term.labels")))
which.max(numerators)
}
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.