Cross validation

Cross validation is a clever method to avoid overfitting as you could see. In this exercise you are going to calculate the cross validated accuracy.

You can go right ahead, the necessary data defaultData and model are waiting for you. You can find the accuracy function in the first few lines of code. This is your cost function. Just leave it as it is and use it for your call to cv.glm() below. Try it out!

Este ejercicio forma parte del curso

Machine Learning for Marketing Analytics in R

Ver curso

Instrucciones del ejercicio

Use a 6-fold cross validation and calculate the accuracy for the model logitModelNew. The function you need is cv.glm() of the boot package. The cross validated accuracy is stored in the first position of the delta element of the result.
Compare your accuracy of the cross validation to the one of the in-sample validation. Remember, it was 0.7922901.

Ejercicio interactivo práctico

Prueba este ejercicio y completa el código de muestra.

library(boot)
# Accuracy function
costAcc <- function(r, pi = 0) {
  cm <- confusion.matrix(r, pi, threshold = 0.3)
  acc <- sum(diag(cm)) / sum(cm)
  return(acc)
}

# Cross validated accuracy for logitModelNew
set.seed(534381)
cv.glm(___, ___, cost = ___, K = ___)$delta[1]

Editar y ejecutar código