### (too) low-dimensional example
sbody <- stabsel(glmboost(DEXfat ~ ., data = bodyfat), q = 3,
papply = lapply)
sbody
opar <- par(mai = par("mai") * c(1, 1, 1, 2.7))
plot(sbody)
par(opar)
Run the code above in your browser using DataLab