cdfpath <- file.path(find.package("faahKO"), "cdf")
my.input.files <- dir(c(paste(cdfpath, "WT", sep='/'),
paste(cdfpath, "KO", sep='/')), full.names=TRUE)
# create xcmsSet object
xs <- new("xcmsSet")
xs@filepaths <- my.input.files
x<-combine_spectra(xs=xs, mzbin=0.25,
linear=TRUE, continuum=FALSE)
plot(x$mz, x$intensity, type='l',
xlab='m/Z', ylab='ion intensity')
Run the code above in your browser using DataLab