## Not run:
# set.seed(4321)
# data(example_data)
# res.rfe <- crossval(x, y, DEBUG=TRUE, theta.fit=fit.rfe, folds=2, repeats=1, parallel=TRUE,
# Cs=10^(-3:3))
# res.rrfe <- crossval(x, y, DEBUG=TRUE, theta.fit=fit.rrfe, folds=3, repeats=1, parallel=TRUE,
# Cs=10^(-3:3), mapping=mapping, Gsub=adjacency.matrix, d=1/2)
# ## End(Not run)
Run the code above in your browser using DataLab