## Not run:
# library(faahKO)
# para <- new("metaXpara")
# dir.case(para) <- system.file("cdf/KO", package = "faahKO")
# dir.ctrl(para) <- system.file("cdf/WT", package = "faahKO")
# ## set parameters for peak picking
# xcmsSet.peakwidth(para) <- c(20,50)
# xcmsSet.snthresh(para) <- 10
# xcmsSet.prefilter(para) <- c(3,100)
# xcmsSet.noise(para) <- 0
# xcmsSet.nSlaves(para) <- 4
# ## run peak picking
# p <- peakFinder(para)
# ## End(Not run)
Run the code above in your browser using DataLab