##load saltData dataset
data(mlDNA)
##known salt stress-related genes as positive samples
positiveSamples <- as.character(sampleData$KnownSaltGenes)
##gene expression data under control condition
ControlExpMat <- as.matrix(sampleData$ControlExpMat)
##gene expression data under salt stress condition
SaltExpMat <- as.matrix(sampleData$StressExpMat)
Run the code above in your browser using DataLab