annotate runit/qualitymetrics_tests.R @ 3:acdf51018708 draft default tip

planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit b7e47e59ea753fe9f73f2b83bcaae895b21269f6

test_input_default <- function() {

    testDirC <- "input"
    argLs <- list(CV = "FALSE",
                  Compa = "TRUE",
                  seuil = 1,
                  poolAsPool1L = "TRUE")

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

    checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6)
 
}

test_formatOrder <- function() {

    ## two first samples swapped in sampleMetadata

    testDirC <- "formatOrder"
    argLs <- list(CV = "FALSE",
                  Compa = "TRUE",
                  seuil = 1,
                  poolAsPool1L = "TRUE")

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

    checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6)
 
}