Nothing
assocCNV.i<-function(x, formula, family=binomial, ...)
{
assign("x", x, envir = .GlobalEnv)
mod0<-glm(formula, family=family, ...)
mod1<-update(mod0, . ~ . + x)
res<-anova(mod0, mod1, test="Chi")$P[2]
res
}
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.