data(teaMerged)
pks <- getAllPeaks(teaMerged$CList, span = 11)
warping.models <- correctRT(teaMerged$CList, reference = 2,
what = "models")
pks.corrected <- correctPeaks(pks, warping.models)
pkTab <- getPeakTable(pks.corrected, response = "area")
Run the code above in your browser using DataLab