## 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