## load data
data(marty)
## Not run:
# ## filtering data
# marty <- expFilter(marty, threshold=3.5, graph=FALSE)
# ## End(Not run)
##Class label 0/1
marty.type.num <- ifelse(marty.type.cl=="Her2+",0,1)
## run folchange on 50 genes
fcOUT <- foldchange(marty[1:50,], marty.type.num)
Run the code above in your browser using DataLab