Xiaobo Li generated. Go, KEGG and other enrichment analysis for TR project. Version 0.5. 2019-12-3
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | # NovoEnrich
rm(list = ls())
library(NovoEnrich)
testGO <- "../NoveSmart_US/NovoSmart_US.nr/data/classification/GO_classification.xls"
testKG <- "../NoveSmart_US/NovoSmart_US.nr/data/classification/KEGG_classification.xls"
DGE <- "../NoveSmart_US/NovoSmart_US.nr/data/DGE/ToDP00vsToDV00.DEG.xls"
packageVersion("NovoEnrich")
gset <- ne_gset(classificationfile = testGO)
gde <- ne_dge(DGE_file = DGE)
kset <- ne_kset(classificationfile = testKG)
GOR <- ne_enrichGO(gset = gset,dge = gde)
KOR <- ne_enrichKEGG(kset = kset,dge = gde)
ne_plot(KOR,title = "KEGG enrichment",n=25,lab_fix = 30)
ne_goplot(GOR,title = "GO Enrichment",n=c(10,10,3),fill="p.adjust")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.