mesh

mesh.r

library(dplyr)
library(MeSH.db)
k <- keys(MeSH.db, keytype = "MESHID")

select(MeSH.db, keys = k[1:10], columns = c("MESHID", "MESHTERM"), keytype = "MESHID")

LEU <- select(MeSH.db, keys = "Leukemia", columns = c("MESHID", "MESHTERM", "CATEGORY", "SYNONYM"), keytype = "MESHTERM")


library("MeSH.AOR.db")

columns(MeSH.AOR.db)

k <- keys(MeSH.AOR.db, keytype="ANCESTOR")
x <- select(MeSH.AOR.db, keys=k[1], columns=c("ANCESTOR", "CATEGORY", "OFFSPRING"), keytype="ANCESTOR")

ANC <- select(MeSH.AOR.db, keys = "D007938", columns = c("ANCESTOR", "OFFSPRING"), keytype = "OFFSPRING")


select(MeSH.db, keys=unique(x$ANCESTOR), columns=c("MESHTERM", "MESHID"), keytype="MESHID")
select(MeSH.db, keys=x$OFFSPRING, columns=c("MESHTERM", "MESHID"), keytype="MESHID")


select(MeSH.db, keys = ANC[1, 1], columns = c("MESHTERM"), keytype = "MESHID")

OFF <- select(MeSH.AOR.db, keys = k[1], columns = c("ANCESTOR", "OFFSPRING"), keytype = "OFFSPRING") %>%
	


library("MeSH.PCR.db")
CHI <- select(MeSH.PCR.db, keys = LEU[1, 1], columns = c("PARENT", "CHILD"), keytype = "PARENT")
head(CHI)
head(select(MeSH.db, keys = CHI[, 2], columns = c("MESHTERM"), keytype = "MESHID"))