## Not run:
# aDataset <- new("dataset", dataId="vantVeer_70", dataPath="pathToFile")
# aDataset <- loadData(aDataset)
#
# expeOfInterest <- new("assessment", dataset=aDataset,
# noFolds1stLayer=10,
# noFolds2ndLayer=9,
# classifierName="svm",
# typeFoldCreation="original",
# svmKernel="linear",
# noOfRepeat=2,
# featureSelectionOptions=new("geneSubsets", optionValues=c(1,2,3,4,5,6)))
#
# # Modify the dataId
# getDataset(expeOfInterest, topic='dataId') <- "khan"
# getDataset(expeOfInterest, 'dataId')
#
# # Replace the dataset
# getDataset(expeOfInterest) <- aDataset
# getDataset(expeOfInterest, 'dataId')
# ## End(Not run)
Run the code above in your browser using DataLab