# 8-fold cross-validation
tune <- cvSLOPE(
subset(mtcars, select = c("mpg", "drat", "wt")),
mtcars$hp,
q = c(0.1, 0.2),
n_folds = 8,
n_repeats = 2,
measure = "mse"
)
# Access the refitted model
tune$model
# Or use refit() to refit with different measure
fit <- refit(
tune,
subset(mtcars, select = c("mpg", "drat", "wt")),
mtcars$hp
)
coef(fit)
Run the code above in your browser using DataLab