Mercurial > repos > lecorguille > xcms_retcor
comparison xcms_retcor.r @ 20:c914743e3f2f draft
planemo upload for repository https://github.com/workflow4metabolomics/xcms commit 6f3e71bbe985b4c6af622c9395762b17416062ca
| author | lecorguille |
|---|---|
| date | Tue, 30 Apr 2019 04:05:00 -0400 |
| parents | 62171c2b2834 |
| children | 972e76582173 |
comparison
equal
deleted
inserted
replaced
| 19:9784ec912994 | 20:c914743e3f2f |
|---|---|
| 64 | 64 |
| 65 adjustRtimeParam <- do.call(paste0(method,"Param"), args) | 65 adjustRtimeParam <- do.call(paste0(method,"Param"), args) |
| 66 print(adjustRtimeParam) | 66 print(adjustRtimeParam) |
| 67 xdata <- adjustRtime(xdata, param=adjustRtimeParam) | 67 xdata <- adjustRtime(xdata, param=adjustRtimeParam) |
| 68 | 68 |
| 69 cat("\t\t\tCompute and Store TIC and BPI\n") | 69 #cat("\t\t\tCompute and Store TIC and BPI\n") |
| 70 chromTIC_adjusted = chromatogram(xdata, aggregationFun = "sum") | 70 #chromTIC_adjusted = chromatogram(xdata, aggregationFun = "sum") |
| 71 chromBPI_adjusted = chromatogram(xdata, aggregationFun = "max") | 71 #chromBPI_adjusted = chromatogram(xdata, aggregationFun = "max") |
| 72 | 72 |
| 73 cat("\n\n") | 73 cat("\n\n") |
| 74 | 74 |
| 75 | 75 |
| 76 # -- TIC -- | 76 # -- TIC -- |