data(GOdata)
########################################
## GenTable
########################################
## load two topGOresult sample objects: resultFisher and resultKS
data(results.tGO)
## generate the result of Fisher's exact test
sig.tab <- GenTable(GOdata, Fis = resultFisher, topNodes = 20)
## results of both test
sig.tab <- GenTable(GOdata, resultFisher, resultKS, topNodes = 20)
## results of both test with specified names
sig.tab <- GenTable(GOdata, Fis = resultFisher, KS = resultKS, topNodes = 20)
## results of both test with specified names and specified ordering
sig.tab <- GenTable(GOdata, Fis = resultFisher, KS = resultKS, orderBy = "KS", ranksOf = "Fis", topNodes = 20)
########################################
## showGroupDensity
########################################
goID <- "GO:0006091"
print(showGroupDensity(GOdata, goID, ranks = TRUE))
print(showGroupDensity(GOdata, goID, ranks = FALSE, rm.one = FALSE))
########################################
## printGenes
########################################
## Not run:
# library(hgu95av2.db)
# goID <- "GO:0006629"
#
# gt <- printGenes(GOdata, whichTerms = goID, chip = "hgu95av2.db", numChar = 40)
#
# goIDs <- c("GO:0006629", "GO:0007076")
# gt <- printGenes(GOdata, whichTerms = goIDs, chip = "hgu95av2.db", pvalCutOff = 0.01)
#
# gt[goIDs[1]]
# ## End(Not run)
Run the code above in your browser using DataLab