comparison runit/qualitymetrics_tests.R @ 0:b4f5b5bc01dd draft

planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
author ethevenot
date Sat, 06 Aug 2016 12:01:17 -0400
parents
children 596320b84315
comparison
equal deleted inserted replaced
-1:000000000000 0:b4f5b5bc01dd
1 test_input_default <- function() {
2
3 testDirC <- "input"
4 argLs <- list(CV = "FALSE",
5 Compa = "TRUE",
6 seuil = 1,
7 poolAsPool1L = "TRUE")
8
9 argLs <- c(defaultArgF(testDirC), argLs)
10 outLs <- wrapperCallF(argLs)
11
12 checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6)
13
14 }