diff runit/profia_tests.R @ 0:39ccace77270 draft

planemo upload for repository https://github.com/workflow4metabolomics/profia.git commit 2757590af8c7ba9833ba3bebd7da7f96b20d1128-dirty
author ethevenot
date Sun, 26 Mar 2017 17:37:12 -0400
parents
children 3f8ae071bdda
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/runit/profia_tests.R	Sun Mar 26 17:37:12 2017 -0400
@@ -0,0 +1,16 @@
+test_plasfia_default <- function() {
+
+    testDirC <- "plasfia"
+    argLs <- list(zipfile = "./plasfia/plasFIA.zip",
+                  library = "NULL",
+                  ppmN = "2",
+                  ppmGroupN = "1",
+                  fracGroupN = "0.1",
+                  kI = "2")
+
+    argLs <- c(defaultArgF(testDirC), argLs)
+    outLs <- wrapperCallF(argLs)
+
+    checkEqualsNumeric(outLs[["datMN"]]["C100a", "M86.0965"], 1313797.6184402, tolerance = 1e-7)
+
+}