inst/unitTests/runit.xcmsRawCopy.R

test.rawMat <- function() {
    file <- system.file('cdf/KO/ko15.CDF', package = "faahKO")
    xraw <- xcmsRaw(file)
    xrawCopy <- deepCopy(xraw)

    checkTrue(all(xraw@env$mz == xrawCopy@env$mz))

    xrawCopy@env$mz <-     xrawCopy@env$mz+1
    checkTrue(all(xraw@env$mz != xrawCopy@env$mz))

}
sneumann/xcms-presvnbridge documentation built on May 30, 2019, 6:02 a.m.