# \donttest{
example_data <- simulate_spareg_data(n = 100, p = 400, ntest = 100)
spar_res <- spar.cv(example_data$x, example_data$y, nfolds = 3L,
rp = rp_gaussian(), nummods = c(5, 10))
pred <- predict(spar_res, example_data$x)
# }
Run the code above in your browser using DataLab