library(CAMERA)
#Single sample
file <- system.file('mzdata/MM14.mzdata', package = "CAMERA")
xs <- xcmsSet(file, method="centWave", ppm=30, peakwidth=c(5,10))
xsa <- xsAnnotate(xs)
xsa.grp <- groupDen(xsa, bw=0.5)
#Multiple sample
library(faahKO)
xs <- group(faahko)
#With specific selected sample
xsa <- xsAnnotate(xs, sample=1)
xsa.grp <- groupDen(xsa)
#With automatic selection
xsa.auto <- xsAnnotate(xs)
xsa.grp.auto <- groupDen(xsa.auto)
Run the code above in your browser using DataLab