hgOver <- structure(list(GOBPID = c("GO:0003012", "GO:0030049"),
Pvalue = c(1.70848789161935e-10, 6.62508415367712e-05),
OddsRatio = c(22.1043956043956, 26.4190476190476),
ExpCount = c(1.19549929676512, 0.246132208157525),
Count = c(12L, 4L), Size = c(68L, 14L),
Term = c("muscle system process", "muscle filament sliding"),
In_geneSymbols = c("ACTA2,ACTC1,ACTG2,CASQ2,CNN1,DES,MYH3,MYLK,PTGS1,TPM2,MYL9,LMOD1","ACTC1,DES,MYH3,TPM2")),
.Names = c("GOBPID", "Pvalue", "OddsRatio", "ExpCount", "Count", "Size", "Term", "In_geneSymbols"),
class = "data.frame", row.names=1:2)
MineICA:::writeGostatsHtmltable(d=hgOver, label="Example of enrichment analysis", db="KEGG",
file="outputHyper_example.htm")
Run the code above in your browser using DataLab