data(enrichedGO)
enrichedGO$mf[1:10,]
enrichedGO$bp[1:10,]
enrichedGO$cc
if (interactive()) {
data(annotatedPeak)
library(org.Hs.eg.db)
enriched.GO = getEnrichedGO(annotatedPeak[1:6,],
orgAnn="org.Hs.eg.db",
maxP=0.01,
multiAdj=FALSE,
minGOterm=10,
multiAdjMethod="")
dim(enriched.GO$mf)
colnames(enriched.GO$mf)
dim(enriched.GO$bp)
enriched.GO$cc
}
Run the code above in your browser using DataLab