Mercurial > repos > ethevenot > univariate

comparison runit/univariate_tests.R @ 3:140290de7986 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/univariate.git commit 27bc6157f43574f038b3fb1be1f46ce4786e24b1
author ethevenot
date Sun, 30 Oct 2016 14:17:09 -0400
parents 09799fc16bc6
children
comparison
equal deleted inserted replaced
2:09799fc16bc6 3:140290de7986
1 test_input_anova <- function() {
2
3 testDirC <- "input"
4 argLs <- list(facC = "qual",
5 tesC = "anova",
6 adjC = "fdr",
7 thrN = "0.05")
8
9 argLs <- c(defaultArgF(testDirC), argLs)
10 outLs <- wrapperCallF(argLs)
11
12 checkEqualsNumeric(outLs[["varDF"]]["v6", "qual_anova_fdr"], 1.924156e-03, tolerance = 1e-6)
13
14 checkEqualsNumeric(outLs[["varDF"]]["v4", "qual_anova_D.C_fdr"], 0.01102016, tolerance = 1e-6)
15
16 }
17
1 test_input_kruskal <- function() { 18 test_input_kruskal <- function() {
2 19
3 testDirC <- "input" 20 testDirC <- "input"
4 argLs <- list(facC = "ageGroup", 21 argLs <- list(facC = "qual",
5 tesC = "kruskal", 22 tesC = "kruskal",
6 adjC = "fdr", 23 adjC = "fdr",
7 thrN = "0.05") 24 thrN = "0.05")
8 25
9 argLs <- c(defaultArgF(testDirC), argLs) 26 argLs <- c(defaultArgF(testDirC), argLs)
10 outLs <- wrapperCallF(argLs) 27 outLs <- wrapperCallF(argLs)
11 28
12 checkEqualsNumeric(outLs[["varDF"]]["HMDB01032", "ageGroup_kruskal_senior.experienced_pva"], 0.1231246, tolerance = 1e-6) 29 checkEqualsNumeric(outLs[["varDF"]]["v4", "qual_kruskal_fdr"], 0.0008194662, tolerance = 1e-7)
30
31 checkEqualsNumeric(outLs[["varDF"]]["v6", "qual_kruskal_D.A_fdr"], 0.002945952, tolerance = 1e-7)
13 32
14 } 33 }
15 34
16 test_example1_wilcoxDif <- function() { 35 test_example1_wilcoxDif <- function() {
17 36