# (1) reading the expression data from file
exprs.file <- system.file("extdata/ALL_exprs.tab", package="EnrichmentBrowser")
pdat.file <- system.file("extdata/ALL_pData.tab", package="EnrichmentBrowser")
fdat.file <- system.file("extdata/ALL_fData.tab", package="EnrichmentBrowser")
probe.eset <- read.eset(exprs.file, pdat.file, fdat.file)
# (2) summarizing probe expression on gene level
gene.eset <- probe.2.gene.eset(probe.eset)
# (3a) getting all human KEGG gene sets
# hsa.gs <- get.kegg.genesets("hsa")
gs.file <- system.file("extdata/hsa_kegg_gs.gmt", package="EnrichmentBrowser")
hsa.gs <- parse.genesets.from.GMT(gs.file)
# (3b) compiling gene regulatory network from KEGG pathways
# hsa.grn <- compile.grn.from.kegg("hsa")
pwys <- system.file("extdata/hsa_kegg_pwys.zip", package="EnrichmentBrowser")
hsa.grn <- compile.grn.from.kegg(pwys)
# plot consistency graph
ggea.graph(gs=hsa.gs[["hsa05416_Viral_myocarditis"]],
grn=hsa.grn, eset=gene.eset)
# get legend
ggea.graph.legend()
Run the code above in your browser using DataLab