R/rectIntersect.R

In sneumann/MetShot: High throughput prioritized acquisition and processing of tandem mass spectra

rectIntersect <-
function (r1,r2) {
  return (  r1[,"rtmin"] %within% r2[c("rtmin","rtmax")]
          & r1[,"rtmax"] %within% r2[c("rtmin","rtmax")]
          & r1[,"mzmin"] %within% r2[c("mzmin","mzmax")]
          & r1[,"mzmax"] %within% r2[c("mzmin","mzmax")] )
}