## Not run:
# require(hgu133plus2.db)
# data(marty)
#
# ## Probe list
# probeList <- rownames(marty)[1:50]
#
# ## Hypergeometric test for KEGG pathway
# res <- runHyperKEGG(probeList, htmlreport = FALSE, txtreport = FALSE,
# tabResult = TRUE, pack.annot = "hgu133plus2.db")
# ## End(Not run)
Run the code above in your browser using DataLab