# #设置,包括= FALSE --------------------------------------------------- knitr: opts_chunk美元集(崩溃= TRUE,评论= " # > ",呼应= TRUE,警告= FALSE ) ## ---- 标题,包括= FALSE -------------------------------------------------- 恐怕< -粘贴(“图1:* * * *”,“使成圆形系统树图的结果”,“会凝聚的层次聚类平均链接”,“作为集聚则基于“,“^ 2 ^女士光谱相似之处”,“DI-MS /示例数据集。“女士,“每个叶子代表一个特征和颜色编码”，“特征的集群隶属关系。”，“叶标签显示特征id，以及”，“特征注释，如果存在。”，“距离中心点的距离是指示的”，“树状图的高度。”)## ----packages, message=FALSE, warning=FALSE----------------------------------- library(clusid) library(clusiddata) DIfile <- system.”文件(“extdata”、“PA14_maxis_DI。mzXML”,包= " CluMSIDdata ") ## ---- 提取 ------------------------------------------------------------------ ms2list < - extractMS2spectra (DIfile)长度(ms2list) # #——合并 -------------------------------------------------------------------- featlist < - mergeMS2spectra (ms2list rt_tolerance = 1)长度(featlist) # #——merge2 ------------------------------------------------------------------- testlist < - mergeMS2spectra (ms2list rt_tolerance = 250)长度(testlist) # #——distmat,eval = FALSE ------------------------------------------------------ # distmat < - distanceMatrix (featlist) # #——distmat2,包括= FALSE -------------------------------------------------- =系统负载(文件。文件(“extdata”、“di-distmat。RData”,包= " CluMSIDdata ")) ## ---- 系统树图,fig.width = 7, fig.asp = 1, fig.cap =图一 ------------------------- HCplot (distmat cex = 0.5) # #——会话 ------------------------------------------------------------------ sessionInfo ()