## Not run:
# data('vV70genesDataset')
#
# expeOfInterest <- new("assessment", dataset=vV70genes,
# noFolds1stLayer=3,
# noFolds2ndLayer=2,
# classifierName="svm",
# typeFoldCreation="original",
# svmKernel="linear",
# noOfRepeat=10,
# featureSelectionOptions=new("geneSubsets", optionValues=c(1,2,3,4,5,6)))
#
# expeOfInterest <- runOneLayerExtCV(expeOfInterest)
#
# rankedGenesImg(expeOfInterest, storagePath='myPath')
# ## End(Not run)
Run the code above in your browser using DataLab