annotate runit/transformation_tests.R @ 2:0ccfc3e15710 draft

planemo upload for repository https://github.com/workflow4metabolomics/transformation.git commit b0373e2f4702a572450205419e2d64579c24c9ae

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)
 
}