inst/unitTests/runit.unusedGroups.R

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

testGroup <- function() {
    classes <- sampclass(faahko)
    levels(classes) <- c(levels(classes), "Leftover")

    xs <- faahko
    sampclass(xs) <- classes
    xsg <- group(xs)

    checkEquals(sampclass(xs), sampclass(xsg))
}