diff runit/biosigner_tests.R @ 2:b2414be87d4b draft

planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
author ethevenot
date Sat, 06 Aug 2016 12:17:12 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/runit/biosigner_tests.R	Sat Aug 06 12:17:12 2016 -0400
@@ -0,0 +1,15 @@
+test_sacurine_default <- function() {
+
+    testDirC <- "sacurine"
+    argLs <- list(respC = "gender",
+                  methodC = "all",
+                  bootI = "5",
+                  pvalN = "0.05",
+                  seedI = "123")
+
+    argLs <- c(defaultArgF(testDirC), argLs)
+    outLs <- wrapperCallF(argLs)
+
+    checkEquals(outLs[["varDF"]]["Oxoglutaric acid", "gender_tier_S"], "plsda|randomforest|svm")
+
+}