inst/unitTests/runit.diffreport.R

In sneumann/xcms-presvnbridge: LC/MS and GC/MS Data Analysis

testDiffreport <- function() {
    g <- group(faahko)
    f <- fillPeaks(g)
    d <- diffreport(f)
}

testAnova <- function() {
    g <- group(faahko)
    f <- fillPeaks(g)
    sampclass(f) <- rep(1:4,3)
    d <- diffreport(f)
    d$anova
}