library(netClass)
data(expr)
data(ad.matrix)
x <- expr$genes
y <- expr$y
###
r.frsvm <-cv.frsvm(x[,1:200], y, folds=3,Gsub=ad.matrix, repeats=1, parallel=FALSE,
cores=2, DEBUG=TRUE,d=.85,top.uper=5,top.lower=15,seed=1234,Cs=10^c(-3:3))
Run the code above in your browser using DataLab