Skip to content

Instantly share code, notes, and snippets.

@michaeldorman

michaeldorman/loocv_lm.R

Last active January 17, 2016 22:18
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save michaeldorman/74da31a5d5a6aa629c71 to your computer and use it in GitHub Desktop.
Save michaeldorman/74da31a5d5a6aa629c71 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
loocv_lm.R
loocv = function(formula, data) {
pred = rep(NA, nrow(data))
for(i in 1:nrow(data)) {
fit = lm(formula = formula, data = data[-i, ])
pred[i] = predict(fit, data[i, ])
}
data.frame(obs = data[, all.vars(formula)[1]], pred = pred)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment