Mercurial > repos > ethevenot > transformation
diff runit/transformation_tests.R @ 1:d9e05021553c draft
planemo upload for repository https://github.com/workflow4metabolomics/transformation.git commit c4b65942d74d5bdfd46e748c0040a8b5ebe4fd1d
author | ethevenot |
---|---|
date | Sat, 06 Aug 2016 12:02:52 -0400 |
parents | |
children |
line wrap: on
line diff
--- /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) + +} +