# need access to CDF (raw data)
require(gcspikelite)
gcmsPath <- paste(find.package("gcspikelite"), "data", sep="/")
# full paths to file names
cdfFiles <- dir(gcmsPath, "CDF", full=TRUE)
# create a 'peaksDataset' object and add XCMS peaks to it
pd <- peaksDataset(cdfFiles[1], mz=seq(50,550), rtrange=c(7.5,8.5))
pd <- addXCMSPeaks(cdfFiles[1], pd, peakPicking=c('mF'),
snthresh=3, fwhm=4, step=1, steps=2, mzdiff=0.5)
Run the code above in your browser using DataLab