# NOT RUN {
# Cross-validation for a SLOPE binomial model
set.seed(123)
tune <- trainSLOPE(subset(mtcars, select = c("mpg", "drat", "wt")),
mtcars$hp,
q = c(0.1, 0.2),
number = 10)
plot(tune, ci_col = "salmon", col = "black")
# }
Run the code above in your browser using DataLab