Mercurial > repos > ethevenot > qualitymetrics
view runit/qualitymetrics_tests.R @ 3:acdf51018708 draft default tip
planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit b7e47e59ea753fe9f73f2b83bcaae895b21269f6
author | ethevenot |
---|---|
date | Wed, 28 Feb 2018 09:32:42 -0500 |
parents | 596320b84315 |
children |
line wrap: on
line source
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) }