diff runit/transformation_tests.R @ 1:d9e05021553c draft

planemo upload for repository https://github.com/workflow4metabolomics/transformation.git commit c4b65942d74d5bdfd46e748c0040a8b5ebe4fd1d

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/runit/transformation_tests.R	Sat Aug 06 12:02:52 2016 -0400
@@ -0,0 +1,24 @@
+test_input_log10 <- function() {
+
+    testDirC <- "input"
+    argLs <- list(method = "log10")
+
+    argLs <- c(defaultArgF(testDirC), argLs)
+    outLs <- wrapperCallF(argLs)
+
+    checkEqualsNumeric(outLs[['datMN']]['HU_021', 'HMDB03072'], 4.817089, tolerance = 1e-6)
+ 
+}
+
+test_input_sqrt <- function() {
+
+    testDirC <- "input"
+    argLs <- list(method = "sqrt")
+
+    argLs <- c(defaultArgF(testDirC), argLs)
+    outLs <- wrapperCallF(argLs)
+
+    checkEqualsNumeric(outLs[['datMN']]['HU_021', 'HMDB03072'], 256.177640, tolerance = 1e-6)
+ 
+}
+