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 Pseudspecta with water loss
hits <- findNeutralLossSpecs(an, mzdiff=18.01, mzabs=0.01)
Run the code above in your browser using DataLab