## 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")
# ## End(Not run)
Run the code above in your browser using DataLab