# (1) expression set:
# simulated expression values of 100 genes
# in two sample groups of 6 samples each
eset <- make.example.data(what="eset")
eset <- de.ana(eset)
# (2) gene sets:
# draw 10 gene sets with 15-25 genes
gs <- make.example.data(what="gs", gnames=featureNames(eset))
# (3) compiling artificial regulatory network
grn <- make.example.data(what="grn", nodes=featureNames(eset))
# (4) plot consistency graph
ggea.graph(gs=gs[[1]], grn=grn, eset=eset)
# (5) get legend
ggea.graph.legend()
Run the code above in your browser using DataLab