# data(input) # Load example input genes
# dbs <- c("GO_Molecular_Function_2023", "GO_Cellular_Component_2023",
#          "GO_Biological_Process_2023")
# if (getOption("enrichR.live")) {
#   enriched <- enrichr(input, dbs)
#   print(head(enriched[[1]]))
#   # Plot top 20 terms from "GO_Biological_Process_2023" and ordered by P-value
#   plotEnrich(enriched[[3]], showTerms = 20, numChar = 50, y = "Count",
#              orderBy = "P.value")
# }
Run the code above in your browser using DataLab