# NOT RUN {
cv1 <- crossv_kfold(mtcars, 5)
cv1
library(purrr)
cv2 <- crossv_mc(mtcars, 100)
models <- map(cv2$train, ~ lm(mpg ~ wt, data = .))
errs <- map2_dbl(models, cv2$test, rmse)
hist(errs)
# }
Run the code above in your browser using DataCamp Workspace