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