# 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")
# 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)
# 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)
# combining results
ebrowser( meth=c("ora", "ggea"),
perm=100,
exprs=exprs.file,
pdat=pdat.file,
fdat=fdat.file,
gs=hsa.gs,
grn=hsa.grn)
Run the code above in your browser using DataLab