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);
an <- findIsotopes(an); #optional step
an <- findAdducts(an, polarity="positive")
pspec2metfrag(an, pspecidx=c(1))
Run the code above in your browser using DataLab