R/rem_low_intens.R

Defines functions rem_low_intens

rem_low_intens <- function(peaklist2) {
  target <- grep("mzML.1", colnames(peaklist2))
  samples <- peaklist2[,target]
  samples1 <- samples[,-blanks]
  int1 <- apply(samples1, 1, max)
  lim <- min(int1) *10
  peaklist3 <- peaklist2[which(int1 >= lim), ]
  return(peaklist3)
}
lucanard/GH_OMIC documentation built on Nov. 9, 2020, 6:23 p.m.