Mercurial > repos > ethevenot > transformation
comparison 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 |
comparison
equal
deleted
inserted
replaced
0:eacea1349a7c | 1:d9e05021553c |
---|---|
1 test_input_log10 <- function() { | |
2 | |
3 testDirC <- "input" | |
4 argLs <- list(method = "log10") | |
5 | |
6 argLs <- c(defaultArgF(testDirC), argLs) | |
7 outLs <- wrapperCallF(argLs) | |
8 | |
9 checkEqualsNumeric(outLs[['datMN']]['HU_021', 'HMDB03072'], 4.817089, tolerance = 1e-6) | |
10 | |
11 } | |
12 | |
13 test_input_sqrt <- function() { | |
14 | |
15 testDirC <- "input" | |
16 argLs <- list(method = "sqrt") | |
17 | |
18 argLs <- c(defaultArgF(testDirC), argLs) | |
19 outLs <- wrapperCallF(argLs) | |
20 | |
21 checkEqualsNumeric(outLs[['datMN']]['HU_021', 'HMDB03072'], 256.177640, tolerance = 1e-6) | |
22 | |
23 } | |
24 |