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