boosted.rq <-
boostrq(
formula = mpg ~ brq(cyl) + brq(hp) + brq(am) + brq(wt) + brq(drat),
data = mtcars,
mstop = 600,
nu = 0.1,
tau = 0.5
)
stabsel_parameters(
q = 3,
PFER = 1,
p = 5,
sampling.type = "SS",
assumption = "unimodal"
)
# \donttest{
set.seed(100)
brq.stabs <-
stabsel(
x = boosted.rq,
q = 3,
PFER = 1,
sampling.type = "SS",
assumption = "unimodal"
)
brq.stabs
# }
Run the code above in your browser using DataLab