Nothing
which.formula <-
function(f1,f2){
terms1 <- terms(f1)
terms2 <- terms(f2)
#INDEX OF WHICH TERMS OF F1 ARE SHARED BY F2
which(attr(terms1,"term.labels")%in%attr(terms2,"term.labels"))
}
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.