Mercurial > repos > lecorguille > xcms_plot_chromatogram
changeset 4:954499828c1d draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit d6c70bb63fd89932c9f95010d6f2c9297df96155
| author | lecorguille |
|---|---|
| date | Fri, 06 Apr 2018 11:12:44 -0400 |
| parents | 60b156e58529 |
| children | a5ba342e72e0 |
| files | xcms_plot_chromatogram.r |
| diffstat | 1 files changed, 3 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/xcms_plot_chromatogram.r Thu Apr 05 18:06:32 2018 -0400 +++ b/xcms_plot_chromatogram.r Fri Apr 06 11:12:44 2018 -0400 @@ -54,6 +54,9 @@ if (!exists("chromTIC") || is.null(chromTIC)) { cat("\t\t\tCompute TIC\n"); chromTIC <- chromatogram(xdata, aggregationFun = "sum") } if (!exists("chromBPI") || is.null(chromBPI)) { cat("\t\t\tCompute BPI\n"); chromBPI <- chromatogram(xdata, aggregationFun = "max") } +if (exists("chromTIC_adjusted")) chromTIC <- chromTIC_adjusted +if (exists("chromBPI_adjusted")) chromBPI <- chromBPI_adjusted + getPlotChromatogram(chromTIC, xdata, pdfname="TICs.pdf", aggregationFun = "sum") getPlotChromatogram(chromBPI, xdata, pdfname="BPIs.pdf", aggregationFun = "max")