boosted.rq <-
boostrq(
formula = mpg ~ brq(cyl * hp) + brq(am + wt),
data = mtcars,
mstop = 200,
nu = 0.1,
tau = 0.5
)
set.seed(101)
cvk.out <-
cvrisk(
boosted.rq,
grid = 0:mstop(boosted.rq),
folds = mboost::cv(boosted.rq$weights, type = "kfold", B = 5)
)
cvk.out
plot(cvk.out)
mstop(cvk.out)
boosted.rq[mstop(cvk.out)]
Run the code above in your browser using DataLab