Mercurial > repos > ethevenot > heatmap

view 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
line wrap: on
line source

test_input_cut4 <- function() {

    testDirC <- "input"
    argLs <- list(disC = "1-cor",
                  cutSamN = "4",
                  cutVarN = "3",
                  corMetC = "spearman",
                  aggMetC = "ward",
                  colC = "blueOrangeRed",
                  scaL = "TRUE",
                  cexN = "0.8")

    argLs <- c(defaultArgF(testDirC), argLs)
    outLs <- wrapperCallF(argLs)
 
    checkEqualsNumeric(outLs[['samDF']][13, 'heat_clust'], 4)

}

test_exa1_cut3 <- function() {

    testDirC <- "exa1"
    argLs <- list(disC = "1-cor",
                  cutSamN = "3",
                  cutVarN = "4",
                  corMetC = "spearman",
                  aggMetC = "ward",
                  colC = "blueOrangeRed",
                  scaL = "TRUE",
                  cexN = "1")

    argLs <- c(defaultArgF(testDirC), argLs)
    outLs <- wrapperCallF(argLs)

    checkEqualsNumeric(outLs[['varDF']]['V24', 'heat_clust'], 4)

}

test_exa2_cut4 <- function() {

    testDirC <- "exa2"
    argLs <- list(disC = "1-cor",
                  cutSamN = "1",
                  cutVarN = "1",
                  corMetC = "spearman",
                  aggMetC = "ward",
                  colC = "blueOrangeRed",
                  scaL = "TRUE",
                  cexN = "1")

    argLs <- c(defaultArgF(testDirC), argLs)
    outLs <- wrapperCallF(argLs)

    checkEquals(outLs[['varDF']]['V31', 'meta2'], 'AM')

}