Nothing
`is.quantitative` <-
function(formula, data){
cl <- match.call()
mf <- match.call(expand.dots = FALSE)
m0 <- match(c("formula", "data"), names(mf), 0)
mf <- mf[c(1, m0)]
mf[[1]] <- as.name("model.frame")
mf <- eval(mf, parent.frame())
ans<-length(table(unique(mf[,1])))>2
ans
}
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.