Nothing
`num.Terms.formula` <-
function(object, ...)
ifelse(length(attr(terms(object), "factors")) == 0, attr(terms(object), "intercept"),
dim(attr(terms(object), "factors"))[2] + attr(terms(object), "intercept"))
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.