# #——风格,回声= FALSE,结果= '飞机 '--------------------------------- BiocStyle:减价 () ## ---- 回声= FALSE,结果=“隐藏”,消息= FALSE ----------------------- 库(BiocStyle) # #——load-libs消息= FALSE -------------------------------------------- 库(xcms)库(msdata) # #禁用并行处理(SerialParam登记 ()) ## ---- 原始文件 ------------------------------------------------------------- mzdatapath < -系统。文件("iontrap"， package = "msdata")列表。文件(mzdatapath,递归= TRUE ) ## -------------------------------------------------------------------------- 库(xcms) mzdatafiles < -列表。Files (mzdatapath, pattern = "extract . "mzData”、递归= TRUE full.names = TRUE) xraw < - xcmsRaw (mzdatafiles [1], includeMSn = TRUE) xraw ## -------------------------------------------------------------------------- 山峰< - findPeaks (xraw方法= " MS1 ") ## -------------------------------------------------------------------------- x < - xcmsSet (mzdatafiles、方法=“MS1”)xfrag < - xcmsFragments xfrag (x) ## -------------------------------------------------------------------------- plotTree (xfrag xcmsFragmentPeakID = 6,textOnly = TRUE)