fea_topGO(geneList, geneIdType = "ENSEMBL", geneLabels=NULL, organism = "Hs",
annotations = c("GO_BP", "GO_MF", "GO_CC"), evidence=NULL,
genesUniverse = NULL, refPackage = NULL,
geneID2GO = NULL, nodeSize = 5, pValThr = 0.01, testStat = NULL,
jobName = NULL)
data(organisms);organisms
keys(org.Hs.eg.db, keytype="EVIDENCE")
. For non-comprehensive code description: data(GOEvidenceCodes)
.queryArgs
list with the arguments for the query.clusters
Empty list. only for compatibility.
geneTermSets
data.frame containing the gene-term sets.
fileName
.txt file with the formatted FEA results.vignette("FGNet-vignette")
fea_david()
(Requires internet connection)fea_gtLinker()
& fea_gtLinker_getResults()
(Requires internet connection)fea_gage()
To import results from a previous/external FEA analysis: format_david()
, format_results()
and readGeneTermSets()
.# Load/format gene list:
geneList <- c("YBL084C", "YDL008W", "YDR118W", "YDR301W", "YDR448W", "YFR036W",
"YGL240W", "YHR166C", "YKL022C", "YLR102C", "YLR115W", "YLR127C", "YNL172W",
"YOL149W", "YOR249C")
library(org.Sc.sgd.db)
geneLabels <- unlist(as.list(org.Sc.sgdGENENAME)[geneList])
geneExpr <- setNames(c(rep(1,10),rep(-1,5)), geneLabels)
# FEA (using directly the gene names):
results <- fea_topGO(geneLabels, geneIdType="GENENAME", organism="Sc")
# FEA (using the gene ID, and replacing it by the label after the FEA):
results <- fea_topGO(geneList, geneIdType="ENSEMBL",
geneLabels=geneLabels, organism="Sc")
# To continue the workflow... (see help for further details)
FGNet_report(results, geneExpr=geneExpr)
incidMat <- fea2incidMat(results, geneExpr=geneExpr)
functionalNetwork(incidMat)
Run the code above in your browser using DataLab