inst/unitTests/runit.findPeaksCentWave.fitGauss.plot.R

test.findPeaksCentWave <- function() {
    file <- system.file('cdf/KO/ko15.CDF', package = "faahKO")
    xraw <- xcmsRaw(file)
    p <- findPeaks.centWave(xraw, fitgauss=T, verbose=T, sleep=0.001)
}
sneumann/xcms-presvnbridge documentation built on May 30, 2019, 6:02 a.m.