Chapter 6 Exercise 9a

# a 
library(ISLR2)
data(College)
set.seed(11)
train <- sample(1:dim(College)[1], dim(College)[1] / 2)
test <- -train
College.train <- College[train, ]
College.test <- College[test, ]

# b
grid <- 10 ^ seq(4, -2, length = 100)



# c


# d

Je kunt zo vaak indienen als je wenst. Er wordt enkel rekening gehouden met je laatst ingediende oplossing.