# LOOCV
LOOCV <- function(dat, offset=1952) {
Model <- glm(lifeExp ~ I(year-1952), family=gaussian, dat)
MSE <- cv.glm(dat, Model)$delta[1]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.