search for: windowrang

...from=2,to=nrow(frame))) { if(nrow(newframe) < 2000) { lowppm <- round(frame[int,][["Mass"]]-frame[int, [["Mass"]]/1E6*ppmrange,digits=digit) highppm <- round(frame[int,][["Mass"]]+frame[int, [["Mass"]]/1E6*ppmrange,digits=digit) windowrange <- seq(from=lowppm,to=highppm,by=10^(-digit)) if (sum(round(windowrange,digits=digit) %in% round(presence,digits=digit)) < 1) { newframe <- rbind(newframe,frame[int,]) presence <- c(presence,windowrange) } } else { break() } }