## 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 <- findOnepwaySynexprs("04010", attractor.states, "celltype", removeGenes=remove.these.genes)
# vec.geneid <- c("GI_17999531-S","GI_17978503-A")
# custom.syn <- findSynexprs(vec.geneid, subset.loring.eset, "celltype", removeGenes=remove.these.genes)
# ## End(Not run)
Run the code above in your browser using DataLab