# NOT RUN {
library(MASS)
models <- expand_model(GBMModel, n.trees = c(50, 100),
interaction.depth = 1:2)
fit(medv ~ ., data = Boston, model = SelectedModel(models))
# }
Run the code above in your browser using DataLab