gene <- c("11171", "8243", "112464", "2194",
"9318", "79026", "1654", "65003",
"6240", "3476", "6238", "3836",
"4176", "1017", "249")
yy = enrichPathway(gene, pvalueCutoff=0.05)
head(summary(yy))
#plot(yy)
Run the code above in your browser using DataLab