# #——风格,回声= FALSE,结果=“黑名单”,消息= FALSE -------------------- 美元knitr: opts_chunk集(整洁= FALSE,警告= FALSE,消息= FALSE) # #——回声= FALSE,结果=“隐藏”,消息= FALSE --------------------------- CRANpkg (pkg){凹口< < -功能-“https://CRAN.R-project.org/package”fmt <”(% s) (% s = % s)“sprintf (fmt,包裹,凹口,包裹)}Biocpkg < -函数(pkg) {sprintf(“(% s) (//www.anjoumacpherson.com/packages/%s)”,包裹,pkg)}库(MeSH.Hsa.eg.db)库(MeSH.db)图书馆(剂量)图书馆(网格 ) ## ------------------------------------------------------------------------ 库(网格)# # hsamd < - meshdata(“MeSH.Hsa.eg.db”类别= ' A ', computeIC = T)数据库=“gendoo”)的数据(hsamd) meshSim(“D000009”、“D009130”,semData = hsamd测量=“蕾斯尼克”)meshSim(“D000009”、“D009130”,semData = hsamd测量=“Rel”)meshSim(“D000009”、“D009130”,semData = hsamd测量=“江”)meshSim(“D000009”、“D009130”,semData = hsamd,测量= "王")meshSim (c(“D001369”、“D002462”),c(“D017629”、“D002890”,“D008928”),semData = hsamd测量= "王 ") ## ------------------------------------------------------------------------ geneSim(“241”、“251”semData = hsamd测量=“王”,结合= BMA) geneSim (c(“241”,“251”),c(“835”、“5261”、“241”、“994”),semData = hsamd测量=“王”,结合= " BMA ") ## ---- 回声= FALSE ---------------------------------------------------------- sessionInfo ()