## Not run:
# data(subset.loring.eset)
# attractor.states <- findAttractors(subset.loring.eset, "celltype", nperm=10, annotation="illuminaHumanv1.db")
# remove.these.genes <- removeFlatGenes(subset.loring.eset, "celltype", contrasts=NULL, limma.cutoff=0.05)
# map.syn <- getPwayGenes("04010", attractor.states, removeGenes=remove.these.genes)## End(Not run)
Run the code above in your browser using DataLab