if (getOption("enrichR.live")) {
dbs <- listEnrichrDbs()
enrichRLive <- TRUE
if (is.null(dbs)) enrichRLive <- FALSE
dbs <- c("GO_Molecular_Function_2018", "GO_Cellular_Component_2018",
"GO_Biological_Process_2018")
enriched <- enrichr(c("Runx1", "Gfi1", "Gfi1b", "Spi1", "Gata1", "Kdr"), dbs)
# Plot top 20 terms from "GO_Biological_Process_2018" and ordered by P-value
if (enrichRLive) {
plotEnrich(enriched[[3]], showTerms = 20, numChar = 50, y = "Count",
orderBy = "P.value")
}
}
Run the code above in your browser using DataLab