## Not run: library(xcms)
# library(faahKO) ## These files do not have this problem to correct for but just for an example
# cdfpath <- system.file("cdf", package = "faahKO")
# cdffiles <- list.files(cdfpath, recursive = TRUE, full.names = TRUE)
# xr<-xcmsRaw(cdffiles[1])
# xr
# ##Lets assume that the lockmass starts at 1 and is every 100 scans
# lockMass<-xcms:::makeacqNum(xr, freq=100, start=1)
# ## these are equalvent
# lockmass2<-AutoLockMass(xr)
# all((lockmass == lockmass2) == TRUE)
#
# ob<-stitch(xr, lockMass)
# ## End(Not run)
Run the code above in your browser using DataLab