Mercurial > repos > ethevenot > profia

view runit/profia_tests.R @ 3:de9d1270a9ae draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/workflow4metabolomics/profia.git commit d7c2aaa255108244f5be6fb7e48b3dec76422ebe
author ethevenot
date Wed, 28 Feb 2018 11:22:30 -0500
parents 3f8ae071bdda
children
line wrap: on
line source

test_plasfia_default <- function() {

    testDirC <- "plasfia"
    argLs <- list(zipfile = "./plasfia/plasFIA.zip",
                  library = "NULL",
                  ppmN = "2",
                  dmzN = "0.0005",
                  ppmGroupN = "1",
                  dmzGroupN = "0.0005",
                  fracGroupN = "0.1",
                  imputeC = "randomForest")

    argLs <- c(defaultArgF(testDirC), argLs)
    outLs <- wrapperCallF(argLs)

    checkEqualsNumeric(outLs[["datMN"]]["C100a", "M86.0965"], 1365657.4687182, tolerance = 1e-7)

}