Nothing
printANODEVTable = function(xtbl, sanitize.text.function = function(x){x},
test = NULL, ...){
if(!is.null(test)){
if(test=="Chisq"){
colnames(xtbl) = c("Df", "Deviance", "Resid. Df","Resid. Dev.",
"$\\Pr(>\\chi^2)$")
}else if(test=="F"){
colnames(xtbl) = c("Df","Deviance","Resid. Df","Resid. Dev.",
"$F$ value","$\\Pr(>F)$")
}else{
cat(paste("Unknown option", test, "\n"))
}
}else{
colnames(xtbl) = c("Df","Deviance","Resid. Df","Resid. Dev.")
}
print(xtbl, sanitize.text.function = sanitize.text.function, ...)
}
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.