data(geneid.cummeRbund)
data(sig.geneid.cummeRbund)
meshParams <- new("MeSHHyperGParams", geneIds=sig.geneid.cummeRbund[,2], universeGeneIds=geneid.cummeRbund[,2], annotation="MeSH.Hsa.eg.db", category="Z", database="gene2pubmed", pvalueCutoff=0.05, pAdjust="none")
meshR <- meshHyperGTest(meshParams)
Run the code above in your browser using DataLab