R/RT_cleaner.R

Defines functions RT_cleaner

RT_cleaner <- function(peaklist3, RTmax) {
  if (is.null(RTmax)) {
    peaklist4 <- peaklist3
    } else {
  RT <- peaklist3$rt/60
  peaklist4 <- peaklist3[which(RT <= RTmax), ]
  return(peaklist4)
    }
}
lucanard/GH_OMIC documentation built on Nov. 9, 2020, 6:23 p.m.