# #——biocstyle呼应= FALSE,结果= "飞机 "-------------------------------- BiocStyle:减价 () ## ---- 回声= FALSE ------------------------------------------------------------ knitr: opts_chunk美元集(崩溃= TRUE,发表评论 = "#>" ) ## ---- init、消息= FALSE呼应= FALSE,结果=“隐藏 "-------------------- ## 默默地加载所有包库(BiocStyle)图书馆(peakPantheR)图书馆(faahKO)库(拉皮条 ) ## ----------------------------------------------------------------------------- 库(faahKO) # #文件路径input_spectraPath < - c(执行(“提供/ KO / ko15。CDF的包= " faahKO ")) input_spectraPath # # - eval = FALSE ------------------------------------------------------------ # # targetFeatTable # input_targetFeatTable < - data.frame(矩阵向量(),2,8,dimnames =列表(c (), # c(“cpdID”、“cpdName”,“rtMin”、“rt”、“rtMax”、“mzMin”#“mz”、“mzMax”))),stringsAsFactors = FALSE) # input_targetFeatTable [1] < - c(“符合”、“Cpd 1”,3310。, 3344.888, 3390。， # 522.194778, 522.2, 522.205222) # input_targetFeatTable[2，] <- c("ID-2"， "Cpd 2"， 3280。, 3385.577, 3440。, # 496.195038, 496.2, 496.204962) # input_targetFeatTable [c(三)]< -酸式焦磷酸钠(input_targetFeatTable [c(三)],# as.numeric ) ## ---- 结果=“黑名单”,回声= FALSE ------------------------------------------ # 使用pandoc改善可读性input_targetFeatTable < - data.frame(矩阵(向量(),2,8,dimnames =列表(c (), c(“cpdID”、“cpdName”,“rtMin”,“rt”、“rtMax”,“mzMin”,“mz”,“mzMax”))),stringsAsFactors = FALSE) input_targetFeatTable [1] < - c(“符合”、“Cpd 1”,3310。, 3344.888, 3390。input_targetFeatTable[2，] <- c("ID-2"， "Cpd 2"， 3280. input_targetFeatTable[2，], 3385.577, 3440。， 496.195038, 496.2, 496.204962) input_targetFeatTable[，c(3:8)] <- sapply(input_targetFeatTable[，c(3:8)]， as.numeric) rownames(input_targetFeatTable) <- NULL pander::pandoc。表(input_targetFeatTable位数= 9 ) ## ----------------------------------------------------------------------------- 库(peakPantheR)注释< - peakPantheR_singleFileSearch (singleSpectraDataPath = input_spectraPath targetFeatTable = input_targetFeatTable peakStatistic = TRUE, curveModel =“skewedGaussian”,verbose = TRUE ) ## ----------------------------------------------------------------------------- 注释美元抽搐 ## ----------------------------------------------------------------------------- ## 美元收购时间不能从NetCDF提取文件注释acquTime # # - eval = FALSE ------------------------------------------------------------ # 注释peakTable # #美元——结果=“黑名单”,回声= FALSE ------------------------------------------ # 使用pandoc改善可读性老鸨::pandoc。table(annotation$peakTable, digits = 7) ## ----------------------------------------------------------------------------- annotation$curveFit ## ----------------------------------------------------------------------------- annotation$ROIsDataPoint ## ---- out.width = "700px", echo = FALSE--------------------------------------- knitr::include_graphics("../man/figures/singleFileSearch_EICsPlot.png") ## ---- echo = FALSE------------------------------------------------------------ devtools::session_info()