Mercurial > repos > ethevenot > heatmap

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