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