Nothing
extractAIC.manyglm<- function(fit, scale, k=2, ...)
{
n.vars = NCOL(fit$y)
ll=logLik(fit)
edf = attr(ll,"df") * n.vars
AIC = -2*sum(ll) + k * edf
return( c(edf,AIC) )
NextMethod("extractAIC")
}
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.