# NOT RUN {
# filter genes with default settings
#(false discovery rate cutoff of 5 percent and WITH leave-one-out analysis)
testMetaObject <- filterGenes(tinyMetaObject)
summarizeFilterResults(testMetaObject, getMostRecentFilter(testMetaObject))
# filter genes with false discovery rate of 1 percent and WITHOUT leave-one-out analysis
testMetaObject <- filterGenes(testMetaObject, FDRThresh = 0.01, isLeaveOneOut = FALSE)
summarizeFilterResults(testMetaObject, getMostRecentFilter(testMetaObject))
# }
Run the code above in your browser using DataLab