Fix indexing into raw data

sneumann · Apr 4, 2016 · 9874bea · 9874bea
1 parent f9be4f4
commit 9874bea
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/xcmsRaw.R b/R/xcmsRaw.R
@@ -1936,8 +1936,8 @@ setMethod("findmzROI", "xcmsRaw", function(object, mzrange=c(0.0,0.0), scanrange
                 if(is.unsorted(scan[,"mz"])){
                     message("Scan ", i, " is unsorted. Fixing.")
                     o <- order(scan[,"mz"])
-                    start <- object@scanindex[i]
-                    end <- start+nrow(scan)
+                    start <- object@scanindex[i]+1
+                    end <- start+nrow(scan)-1
                     object@env$mz[start:end] <- scan[o, "mz"]
                     object@env$intensity[start:end] <- scan[o, "intensity"]
                 }