Nothing
drop.scope.svisit <-
function (terms1, terms2, model = c("sta", "det"))
{
model <- match.arg(model)
terms1 <- terms(terms1, model)
f2 <- if (missing(terms2))
numeric(0)
else attr(terms(terms2, model), "factors")
factor.scope(attr(terms1, "factors"), list(drop = f2))$drop
}
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.