# 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")
# 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)
# set-based enrichment analysis
ebrowser( meth="ora",
exprs=exprs.file, pdat=pdat.file, fdat=fdat.file,
gs=hsa.gs, org="hsa", nr.show=3)
# compile a 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)
# network-based enrichment analysis
ebrowser( meth="ggea",
exprs=exprs.file, pdat=pdat.file, fdat=fdat.file,
gs=hsa.gs, grn=hsa.grn, org="hsa", nr.show=3 )
# combining results
ebrowser( meth=c("ora", "ggea"), comb=TRUE,
exprs=exprs.file, pdat=pdat.file, fdat=fdat.file,
gs=hsa.gs, grn=hsa.grn, org="hsa", nr.show=3 )
Run the code above in your browser using DataLab