# NOT RUN {
library(SuperLearner)
library(ck37r)
data(Boston, package = "MASS")
set.seed(1)
sl = SuperLearner(Boston$medv, subset(Boston, select = -medv),
family = gaussian(),
SL.library = c("SL.mean", "SL.glm"))
sl
plot(sl, y = Boston$chas)
# }
Run the code above in your browser using DataLab