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