library(netClass)
data(expr)
data(ad.matrix)
x <- expr$genes
y <- expr$y
r.stsvm <- cv.stsvm(x=x[,1:500],x.mi=NULL,y=y,folds=3,Gsub=ad.matrix,op.method="pt",
repeats=1, parallel=FALSE, cores=2,DEBUG=TRUE,pt.pvalue=0.05,op=0.9,
aa=5,a=1,p=2,allF=TRUE, seed=1234,Cs=10^(-3:3))Run the code above in your browser using DataLab