###################################################
### chunk number 1: EICPspec1
###################################################
library(CAMERA)
file <- system.file('mzdata/MM14.mzdata', package = "CAMERA")
xr   <- xcmsRaw(file)
xs   <- xcmsSet(c(file), method="centWave", ppm=30, peakwidth=c(5,10))
an   <- xsAnnotate(xs)
an   <- groupFWHM(an)
an   <- findAdducts(an, polarity="positive")
plotEICs(an, xr, pspecIdx=c(1), maxlabel=5)


###################################################
### chunk number 2: Pspec1
###################################################
plotPeaks(an, pspec=1, maxlabel=5)