Mercurial > repos > ethevenot > heatmap

comparison tests/heatmap_tests.R @ 0:ad06aeed02c9 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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