## Not run:
#
# data(subset.loring.eset)
# remove.these.genes <- removeFlatGenes(subset.loring.eset, "celltype", contrasts=NULL, limma.cutoff=0.05)
# vec.geneid <- c("GI_17999531-S","GI_17978503-A")
# customGenes <- getCustomGenes(vec.geneid, removeGenes=NULL)
# ## End(Not run)
Run the code above in your browser using DataLab