goList= c("GO:0000075", "GO:0000082","GO:0000082","GO:0000122",
"GO:0000122","GO:0000075","GO:0000082","GO:0000082",
"GO:0000122","GO:0000122","GO:0000122","GO:0000122",
"GO:0000075", "GO:0000082","GO:000012")
alltermcount = list(GOterm=c("GO:0000075", "GO:0000082", "GO:000012",
"GO:0000122"),
GOcount=c(100, 200, 10, 10))
thistermcount = getUniqueGOidCount(goList)
totaltermInPeakList = 15
totaltermInGenome = 1000
hyperGtest(alltermcount,thistermcount, totaltermInGenome, totaltermInPeakList)
Run the code above in your browser using DataLab