# NOT RUN {
## load data
data(marty)
##random choice of genes - in practice genes of interest
geneOfInterest<-sample(1:ncol(marty),5)
##Class label 0/1
marty.type.num <- ifelse(marty.type.cl=="Her2+",0,1)
## run differential analysis
out <- runIndTest(marty[geneOfInterest,], labels=marty.type.num)
# }
Run the code above in your browser using DataLab