Nothing
dropFormula <- function(original, drop) {
factors <- attr(terms(as.formula(original)),
"factors")
row <- match(drop, rownames(factors))
whichTerms <- factors[row,] == 1
labels <- colnames(factors)[whichTerms]
text <- paste("~ . ",
paste("-", labels, collapse = " "))
eval(parse(text = text))
}
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.