Mercurial > repos > ethevenot > heatmap
comparison tests/heatmap_tests.R @ 0:ad06aeed02c9 draft
planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
author | ethevenot |
---|---|
date | Tue, 02 Aug 2016 06:26:41 -0400 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
-1:000000000000 | 0:ad06aeed02c9 |
---|---|
1 test_input_cut4 <- function() { | |
2 | |
3 testDirC <- "input" | |
4 argLs <- list(disC = "1-cor", | |
5 cutSamN = "4", | |
6 cutVarN = "3", | |
7 corMetC = "spearman", | |
8 aggMetC = "ward", | |
9 colC = "blueOrangeRed", | |
10 scaL = "TRUE", | |
11 cexN = "0.8") | |
12 | |
13 argLs <- c(defaultArgF(testDirC), argLs) | |
14 outLs <- wrapperCallF(argLs) | |
15 | |
16 checkEqualsNumeric(outLs[['samDF']][13, 'heat_clust'], 4) | |
17 | |
18 } | |
19 | |
20 test_exa1_cut3 <- function() { | |
21 | |
22 testDirC <- "exa1" | |
23 argLs <- list(disC = "1-cor", | |
24 cutSamN = "3", | |
25 cutVarN = "4", | |
26 corMetC = "spearman", | |
27 aggMetC = "ward", | |
28 colC = "blueOrangeRed", | |
29 scaL = "TRUE", | |
30 cexN = "1") | |
31 | |
32 argLs <- c(defaultArgF(testDirC), argLs) | |
33 outLs <- wrapperCallF(argLs) | |
34 | |
35 checkEqualsNumeric(outLs[['varDF']]['V24', 'heat_clust'], 4) | |
36 | |
37 } | |
38 | |
39 test_exa2_cut4 <- function() { | |
40 | |
41 testDirC <- "exa2" | |
42 argLs <- list(disC = "1-cor", | |
43 cutSamN = "1", | |
44 cutVarN = "1", | |
45 corMetC = "spearman", | |
46 aggMetC = "ward", | |
47 colC = "blueOrangeRed", | |
48 scaL = "TRUE", | |
49 cexN = "1") | |
50 | |
51 argLs <- c(defaultArgF(testDirC), argLs) | |
52 outLs <- wrapperCallF(argLs) | |
53 | |
54 checkEquals(outLs[['varDF']]['V31', 'meta2'], 'AM') | |
55 | |
56 } | |
57 |