data(bodyfat)
### (too) low-dimensional example
mod <- glmboost(DEXfat ~ ., data = bodyfat)
(sbody <- stabsel(mod, q = 3,
folds = cv(model.weights(mod), type = "subsampling", B = 25)))
opar <- par(mai = par("mai") * c(1, 1, 1, 2.7))
plot(sbody)
par(opar)
Run the code above in your browser using DataLab