## 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)
# mapk.syn <- findSynexprs("04010", attractor.states, remove.these.genes)
# cormat <- buildCorMatrix(exprs(subset.loring.eset), mapk.syn, 0.95)
# ## End(Not run)
Run the code above in your browser using DataLab