Mercurial > repos > ethevenot > transformation

view runit/transformation_tests.R @ 1:d9e05021553c draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/workflow4metabolomics/transformation.git commit c4b65942d74d5bdfd46e748c0040a8b5ebe4fd1d
author ethevenot
date Sat, 06 Aug 2016 12:02:52 -0400
parents
children
line wrap: on
line source

test_input_log10 <- function() {

    testDirC <- "input"
    argLs <- list(method = "log10")

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

    checkEqualsNumeric(outLs[['datMN']]['HU_021', 'HMDB03072'], 4.817089, tolerance = 1e-6)
 
}

test_input_sqrt <- function() {

    testDirC <- "input"
    argLs <- list(method = "sqrt")

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

    checkEqualsNumeric(outLs[['datMN']]['HU_021', 'HMDB03072'], 256.177640, tolerance = 1e-6)
 
}