extractAIC.svisit <- function (fit, scale = NULL, k = 2, ...) { return(c(length(coef(fit, "full")), AIC(fit, k = k))) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.