Mercurial > repos > lecorguille > xcms_plot_chromatogram

comparison xcms_plot_chromatogram.r @ 9:271c9d5f0d10 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit dec989d87d183bd3b79a61838eb5088a194ef29d
author lecorguille
date Mon, 03 Jun 2019 07:12:50 -0400
parents 7c0cc7a3c3db
children dbd877060ac3
comparison
equal deleted inserted replaced
8:f1a287a8509b 9:271c9d5f0d10
46 cat("\tMAIN PROCESSING INFO\n") 46 cat("\tMAIN PROCESSING INFO\n")
47 47
48 48
49 cat("\t\tDRAW GRAPHICS\n") 49 cat("\t\tDRAW GRAPHICS\n")
50 50
51 register(SerialParam())
51 if (!is.null(chromTIC) || is.null(chromTIC)) { cat("\t\t\tCompute TIC\n"); chromTIC <- chromatogram(xdata, aggregationFun = "sum") } 52 if (!is.null(chromTIC) || is.null(chromTIC)) { cat("\t\t\tCompute TIC\n"); chromTIC <- chromatogram(xdata, aggregationFun = "sum") }
52 if (!is.null(chromBPI) || is.null(chromBPI)) { cat("\t\t\tCompute BPI\n"); chromBPI <- chromatogram(xdata, aggregationFun = "max") } 53 if (!is.null(chromBPI) || is.null(chromBPI)) { cat("\t\t\tCompute BPI\n"); chromBPI <- chromatogram(xdata, aggregationFun = "max") }
53 54
54 if (!is.null(chromTIC_adjusted)) chromTIC <- chromTIC_adjusted 55 if (!is.null(chromTIC_adjusted)) chromTIC <- chromTIC_adjusted
55 if (!is.null(chromBPI_adjusted)) chromBPI <- chromBPI_adjusted 56 if (!is.null(chromBPI_adjusted)) chromBPI <- chromBPI_adjusted