demo/inference.R

In hofnerb/mboost: Model-Based Boosting

library("mboost")

data("bodyfat", package = "TH.data")

object <- glmboost(DEXfat ~ ., data = bodyfat, center = TRUE)
a <- stabsel(object, cutoff = 0.9)
a
plot(a)

object <- gamboost(DEXfat ~ ., data = bodyfat)
a <- stabsel(object, cutoff = 0.9)
a
plot(a)