# NOT RUN {
## load data
data(marty)
## filtering data
marty <- expFilter(marty, threshold=3.5, graph=FALSE)
##Class label 0/1
marty.type.num <- ifelse(marty.type.cl=="Her2+",0,1)
##Example dataset
example.subset<-marty[1:100,]
## run differential analysis Basal vs HER2+
out <- runTtest(example.subset, labels=marty.type.num, typeFDR="FDR-BH")
## OR :
out2 <- multiple.correction(out$RawpValue, typeFDR="FDR-BH")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab