# \donttest{
# Load libraries
library(clusterProfiler)
library(DOSE)
library(org.Hs.eg.db)
data(geneList)
# Perform enrichment using clusterProfiler
enrich <- gseGO(geneList, OrgDb = org.Hs.eg.db, ont = 'CC')
# Obtain clusters within the enriched pathways using default parameters
data <- findPathClusters(enrich@result)
# Create the enrichment network visualization using default parameters
plotPathClusters(enrich@result, data$sim, data$clusters)
# Create the enrichment network visualization with repelled labels and elipses
plotPathClusters(enrich@result, data$sim, data$clusters, repelLabels = TRUE, drawEllipses = TRUE)
# }
Run the code above in your browser using DataLab