Mercurial > repos > ethevenot > qualitymetrics

annotate runit/qualitymetrics_tests.R @ 1:6d3b7b6573d8 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/qualitymetrics.git commit 60328240b89497f9dc7633b10b2a550b10da00c7
author ethevenot
date Fri, 21 Oct 2016 12:56:22 -0400
parents b4f5b5bc01dd
children 596320b84315
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
1 test_input_default <- function() {
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
2
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
3 testDirC <- "input"
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
4 argLs <- list(CV = "FALSE",
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
5 Compa = "TRUE",
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
6 seuil = 1,
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
7 poolAsPool1L = "TRUE")
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
8
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
9 argLs <- c(defaultArgF(testDirC), argLs)
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
10 outLs <- wrapperCallF(argLs)
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
11
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
12 checkEqualsNumeric(outLs[["varDF"]]["met_033", "blankMean_over_sampleMean"], 0.004417387, tolerance = 1e-6)
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
13
b4f5b5bc01dd planemo upload for repository https://github.com/workflow4metabolomics/qualitymetrics.git commit 73366dd3473c509341ab9ba1df8ba748d08a50a1
ethevenot
parents:
diff changeset
14 }