## loading the diaplasma dataset
data(diaplasma)
attach(diaplasma)
## restricting to a smaller dataset for this example
featureSelVl <- variableMetadata[, "mzmed"] >= 490 & variableMetadata[, "mzmed"] < 500
dataMatrix <- dataMatrix[, featureSelVl]
variableMetadata <- variableMetadata[featureSelVl, ]
## signature selection for all 3 classifiers
## a bootI = 5 number of bootstraps is used for this example
## we recommend to keep the default bootI = 50 value for your analyzes
set.seed(123)
diaSign <- biosign(dataMatrix, sampleMetadata[, "type"], bootI = 5)
## individual boxplot of the selected signatures
getAccuracyMN(diaSign)
detach(diaplasma)
Run the code above in your browser using DataLab