Mercurial > repos > ethevenot > qualitymetrics

comparison runit/qualitymetrics_tests.R @ 2:596320b84315 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/qualitymetrics.git commit 95d4658e5d9dd0421c9336b2232cc81f32879621
author ethevenot
date Thu, 11 Jan 2018 12:52:08 -0500
parents b4f5b5bc01dd
children
comparison
equal deleted inserted replaced
1:6d3b7b6573d8 2:596320b84315
10 outLs <- wrapperCallF(argLs) 10 outLs <- wrapperCallF(argLs)
11 11
12 checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6) 12 checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6)
13 13
14 } 14 }
15
16 test_formatOrder <- function() {
17
18 ## two first samples swapped in sampleMetadata
19
20 testDirC <- "formatOrder"
21 argLs <- list(CV = "FALSE",
22 Compa = "TRUE",
23 seuil = 1,
24 poolAsPool1L = "TRUE")
25
26 argLs <- c(defaultArgF(testDirC), argLs)
27 outLs <- wrapperCallF(argLs)
28
29 checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6)
30
31 }