# real data
# (1) reading the expression data from file
exprs.file <- system.file("extdata/exprs.tab", package="EnrichmentBrowser")
pdat.file <- system.file("extdata/pData.tab", package="EnrichmentBrowser")
fdat.file <- system.file("extdata/fData.tab", package="EnrichmentBrowser")
probe.eset <- read.eset(exprs.file, pdat.file, fdat.file)
gene.eset <- probe.2.gene.eset(probe.eset)
gene.eset <- de.ana(gene.eset)
annotation(gene.eset) <- "hsa"
# artificial enrichment analysis results
gs <- make.example.data(what="gs", gnames=featureNames(gene.eset))
ea.res <- make.example.data(what="ea.res", method="ora", eset=gene.eset, gs=gs)
# (5) result visualization and exploration
gs.ranking(ea.res)
ea.browse(ea.res)
Run the code above in your browser using DataLab