library(CAMERA)
file <- system.file('mzdata/MM14.mzdata', package = "CAMERA")
xs <- xcmsSet(file, method="centWave", ppm=30, peakwidth=c(5,10))
an <- xsAnnotate(xs)
an <- groupFWHM(an)
#Searches for Peaks with water loss
xs.pseudo <- findNeutralLoss(an,mzdiff=18.01,mzabs=0.01)
xs.pseudo@peaks #show Hits
Run the code above in your browser using DataLab