boosted.rq <-
boostrq(
formula = mpg ~ brq(cyl * hp) + brq(am + wt),
data = mtcars,
mstop = 200,
nu = 0.1,
tau = 0.5
)
predict.data <- data.frame(hp = 165, cyl = 6, am = 1, wt = 3.125)
predict(boosted.rq, newdata = predict.data)
Run the code above in your browser using DataLab