Mercurial > repos > ethevenot > qualitymetrics

diff 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
line wrap: on
line diff
--- a/runit/qualitymetrics_tests.R	Fri Oct 21 12:56:22 2016 -0400
+++ b/runit/qualitymetrics_tests.R	Thu Jan 11 12:52:08 2018 -0500
@@ -12,3 +12,20 @@
     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)
+ 
+}