R/quantify.R

In hcji/TarMet: Targeted Metabolic and Stable Isotope Tracer.

getQuantifiedResult <- function(SamplesEICs, targetRtLeft, targetRtRight){
  res <- lapply(SamplesEICs, function(EICs){
    round(getArea(EICs, targetRtLeft, targetRtRight), 2)
  })
  res <- do.call(cbind, res)
  return(res)
}