Mercurial > repos > ethevenot > heatmap

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
1 test_input_cut4 <- function() {
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
2
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
3 testDirC <- "input"
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
4 argLs <- list(disC = "1-cor",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
5 cutSamN = "4",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
6 cutVarN = "3",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
7 corMetC = "spearman",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
8 aggMetC = "ward",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
9 colC = "blueOrangeRed",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
10 scaL = "TRUE",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
11 cexN = "0.8")
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
12
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
13 argLs <- c(defaultArgF(testDirC), argLs)
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
14 outLs <- wrapperCallF(argLs)
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
15
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
16 checkEqualsNumeric(outLs[['samDF']][13, 'heat_clust'], 4)
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
17
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
18 }
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
19
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
20 test_exa1_cut3 <- function() {
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
21
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
22 testDirC <- "exa1"
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
23 argLs <- list(disC = "1-cor",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
24 cutSamN = "3",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
25 cutVarN = "4",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
26 corMetC = "spearman",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
27 aggMetC = "ward",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
28 colC = "blueOrangeRed",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
29 scaL = "TRUE",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
30 cexN = "1")
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
31
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
32 argLs <- c(defaultArgF(testDirC), argLs)
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
33 outLs <- wrapperCallF(argLs)
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
34
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
35 checkEqualsNumeric(outLs[['varDF']]['V24', 'heat_clust'], 4)
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
36
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
37 }
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
38
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
39 test_exa2_cut4 <- function() {
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
40
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
41 testDirC <- "exa2"
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
42 argLs <- list(disC = "1-cor",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
43 cutSamN = "1",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
44 cutVarN = "1",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
45 corMetC = "spearman",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
46 aggMetC = "ward",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
47 colC = "blueOrangeRed",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
48 scaL = "TRUE",
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
49 cexN = "1")
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
50
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
51 argLs <- c(defaultArgF(testDirC), argLs)
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
52 outLs <- wrapperCallF(argLs)
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
53
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
54 checkEquals(outLs[['varDF']]['V31', 'meta2'], 'AM')
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
55
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
56 }
ad06aeed02c9 planemo upload for repository https://github.com/workflow4metabolomics/heatmap.git commit 7e599d006e53fefb7e1b923ba8894b4fb19f9cfa-dirty
ethevenot
parents:
diff changeset
57