Title: | MeSH Enrichment and Semantic analyses |
---|---|
Description: | MeSH (Medical Subject Headings) is the NLM controlled vocabulary used to manually index articles for MEDLINE/PubMed. MeSH terms were associated by Entrez Gene ID by three methods, gendoo, gene2pubmed and RBBH. This association is fundamental for enrichment and semantic analyses. meshes supports enrichment analysis (over-representation and gene set enrichment analysis) of gene list or whole expression profile. The semantic comparisons of MeSH terms provide quantitative ways to compute similarities between genes and gene groups. meshes implemented five methods proposed by Resnik, Schlicker, Jiang, Lin and Wang respectively and supports more than 70 species. |
Authors: | Guangchuang Yu [aut, cre] |
Maintainer: | Guangchuang Yu <[email protected]> |
License: | Artistic-2.0 |
Version: | 1.33.0 |
Built: | 2024-11-27 04:42:04 UTC |
Source: | https://github.com/bioc/meshes |
MeSH term enrichment analysis
enrichMeSH( gene, MeSHDb, database = "gendoo", category = "C", pvalueCutoff = 0.05, pAdjustMethod = "BH", universe, qvalueCutoff = 0.2, minGSSize = 10, maxGSSize = 500, meshdbVersion = NULL )
enrichMeSH( gene, MeSHDb, database = "gendoo", category = "C", pvalueCutoff = 0.05, pAdjustMethod = "BH", universe, qvalueCutoff = 0.2, minGSSize = 10, maxGSSize = 500, meshdbVersion = NULL )
gene |
a vector of entrez gene id |
MeSHDb |
MeSHDb |
database |
one of 'gendoo', 'gene2pubmed' or 'RBBH' |
category |
one of "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L","M", "N", "V", "Z" |
pvalueCutoff |
Cutoff value of pvalue. |
pAdjustMethod |
one of "holm", "hochberg", "hommel", "bonferroni", "BH", "BY", "fdr", "none" |
universe |
background genes |
qvalueCutoff |
qvalue cutoff |
minGSSize |
minimal size of genes annotated by Ontology term for testing. |
maxGSSize |
maximal size of genes annotated for testing |
meshdbVersion |
version of MeSH.db. If NULL(the default), use the latest version. |
An enrichResult
instance.
Guangchuang Yu
class?enrichResult
## Not run: library(meshes) library(AnnotationHub) ah <- AnnotationHub() qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) filepath_hsa <- qr_hsa[[1]] db <- MeSHDbi::MeSHDb(filepath_hsa) data(geneList, package="DOSE") de <- names(geneList)[1:100] x <- enrichMeSH(de, MeSHDb = db, database='gendoo', category = 'C') ## End(Not run)
## Not run: library(meshes) library(AnnotationHub) ah <- AnnotationHub() qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) filepath_hsa <- qr_hsa[[1]] db <- MeSHDbi::MeSHDb(filepath_hsa) data(geneList, package="DOSE") de <- names(geneList)[1:100] x <- enrichMeSH(de, MeSHDb = db, database='gendoo', category = 'C') ## End(Not run)
semantic similarity between two gene vector
geneSim(geneID1, geneID2 = NULL, measure = "Wang", combine = "BMA", semData)
geneSim(geneID1, geneID2 = NULL, measure = "Wang", combine = "BMA", semData)
geneID1 |
gene ID vector |
geneID2 |
gene ID vector |
measure |
one of "Wang", "Resnik", "Rel", "Jiang" and "Lin" |
combine |
One of "max", "avg", "rcmax", "BMA" methods, for combining semantic similarity scores of multiple DO terms associated with gene/protein. |
semData |
gene annotation data for semantic measurement |
score matrix
Guangchuang Yu
## library(meshes) ## library(AnnotationHub) ## ah <- AnnotationHub() ## qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) ## filepath_hsa <- qr_hsa[[1]] ## db <- MeSHDbi::MeSHDb(filepath_hsa) ## hsamd <- meshdata(db, category='A', computeIC=T, database="gendoo") data(hsamd) geneSim("241", "251", semData=hsamd, measure="Wang", combine="BMA")
## library(meshes) ## library(AnnotationHub) ## ah <- AnnotationHub() ## qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) ## filepath_hsa <- qr_hsa[[1]] ## db <- MeSHDbi::MeSHDb(filepath_hsa) ## hsamd <- meshdata(db, category='A', computeIC=T, database="gendoo") data(hsamd) geneSim("241", "251", semData=hsamd, measure="Wang", combine="BMA")
Gene Set Enrichment Analysis of MeSH
gseMeSH( geneList, MeSHDb, database = "gendoo", category = "C", exponent = 1, minGSSize = 10, maxGSSize = 500, eps = 1e-10, pvalueCutoff = 0.05, pAdjustMethod = "BH", verbose = TRUE, seed = FALSE, by = "fgsea", meshdbVersion = NULL, ... )
gseMeSH( geneList, MeSHDb, database = "gendoo", category = "C", exponent = 1, minGSSize = 10, maxGSSize = 500, eps = 1e-10, pvalueCutoff = 0.05, pAdjustMethod = "BH", verbose = TRUE, seed = FALSE, by = "fgsea", meshdbVersion = NULL, ... )
geneList |
order ranked geneList |
MeSHDb |
MeSHDb |
database |
one of 'gendoo', 'gene2pubmed' or 'RBBH' |
category |
one of "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L","M", "N", "V", "Z" |
exponent |
weight of each step |
minGSSize |
minimal size of each geneSet for analyzing |
maxGSSize |
maximal size of genes annotated for testing |
eps |
This parameter sets the boundary for calculating the p value. |
pvalueCutoff |
pvalue Cutoff |
pAdjustMethod |
pvalue adjustment method |
verbose |
print message or not |
seed |
logical |
by |
one of 'fgsea' or 'DOSE' |
meshdbVersion |
version of MeSH.db. If NULL(the default), use the latest version. |
... |
other parameter |
gseaResult object
Yu Guangchuang
## Not run: library(meshes) library(AnnotationHub) ah <- AnnotationHub() qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) filepath_hsa <- qr_hsa[[1]] db <- MeSHDbi::MeSHDb(filepath_hsa) data(geneList, package="DOSE") y <- gseMeSH(geneList, MeSHDb = db, database = 'gene2pubmed', category = "G") ## End(Not run)
## Not run: library(meshes) library(AnnotationHub) ah <- AnnotationHub() qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) filepath_hsa <- qr_hsa[[1]] db <- MeSHDbi::MeSHDb(filepath_hsa) data(geneList, package="DOSE") y <- gseMeSH(geneList, MeSHDb = db, database = 'gene2pubmed', category = "G") ## End(Not run)
construct annoData for semantic measurement
meshdata(MeSHDb = NULL, database, category, computeIC = FALSE)
meshdata(MeSHDb = NULL, database, category, computeIC = FALSE)
MeSHDb |
MeSHDb package |
database |
one of supported database |
category |
one of supported category |
computeIC |
logical value |
a GOSemSimDATA object
Guangchuang Yu
## Not run: library(meshes) library(AnnotationHub) ah <- AnnotationHub() qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) filepath_hsa <- qr_hsa[[1]] db <- MeSHDbi::MeSHDb(filepath_hsa) hsamd <- meshdata(db, category='A', computeIC=T, database="gendoo") ## End(Not run)
## Not run: library(meshes) library(AnnotationHub) ah <- AnnotationHub() qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) filepath_hsa <- qr_hsa[[1]] db <- MeSHDbi::MeSHDb(filepath_hsa) hsamd <- meshdata(db, category='A', computeIC=T, database="gendoo") ## End(Not run)
semantic similarity between two MeSH term vectors
meshSim(meshID1, meshID2, measure = "Wang", semData)
meshSim(meshID1, meshID2, measure = "Wang", semData)
meshID1 |
MeSH term vector |
meshID2 |
MeSH term vector |
measure |
one of "Wang", "Resnik", "Rel", "Jiang" and "Lin" |
semData |
annotation data for semantic measurement, output by meshdata function |
score matrix
Guangchuang Yu https://guangchuangyu.github.io
## library(meshes) ## library(AnnotationHub) ## ah <- AnnotationHub() ## qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) ## filepath_hsa <- qr_hsa[[1]] ## db <- MeSHDbi::MeSHDb(filepath_hsa) ## hsamd <- meshdata(db, category='A', computeIC=T, database="gendoo") data(hsamd) meshSim("D000009", "D009130", semData=hsamd, measure="Resnik")
## library(meshes) ## library(AnnotationHub) ## ah <- AnnotationHub() ## qr_hsa <- query(ah, c("MeSHDb", "Homo sapiens")) ## filepath_hsa <- qr_hsa[[1]] ## db <- MeSHDbi::MeSHDb(filepath_hsa) ## hsamd <- meshdata(db, category='A', computeIC=T, database="gendoo") data(hsamd) meshSim("D000009", "D009130", semData=hsamd, measure="Resnik")