# NOT RUN {
library(SuperLearner)
library(ck37r)
data(Boston, package = "MASS")
set.seed(1)
y = as.numeric(Boston$medv > 23)
cvsl = CV.SuperLearner(Y = y,
X = subset(Boston, select = -medv),
family = binomial(),
cvControl = list(V = 2, stratifyCV = TRUE),
SL.library = c("SL.mean", "SL.glm"))
auc_table(cvsl, y = y)
# }
Run the code above in your browser using DataLab