Nothing
`check` <-
function(obj){
check<-TRUE
## check whether completely aliased only
## works for numeric -1 and 1 coded data only
mm <- model.matrix(remodel(obj)$model)
if (any(colnames(mm)=="(Intercept)"))
mm <- mm[,-which(colnames(mm)=="(Intercept)")]
if (!all(round(t(mm)%*%mm, 10) %in% c(0,nrow(mm),-nrow(mm)))) check <- FALSE
check
}
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.