Mercurial > repos > ethevenot > heatmap

annotate runit/heatmap_tests.R @ 0:81ffd91ba495 draft default tip

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