Mercurial > repos > ethevenot > biosigner
annotate runit/biosigner_tests.R @ 3:fa80bd02055f draft default tip
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit 23d58cfd97411ad5d272971896914ce99e30b0ab
author | ethevenot |
---|---|
date | Tue, 06 Jun 2017 11:44:00 -0400 |
parents | b2414be87d4b |
children |
rev | line source |
---|---|
2
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
1 test_sacurine_default <- function() { |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
2 |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
3 testDirC <- "sacurine" |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
4 argLs <- list(respC = "gender", |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
5 methodC = "all", |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
6 bootI = "5", |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
7 pvalN = "0.05", |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
8 seedI = "123") |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
9 |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
10 argLs <- c(defaultArgF(testDirC), argLs) |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
11 outLs <- wrapperCallF(argLs) |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
12 |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
13 checkEquals(outLs[["varDF"]]["Oxoglutaric acid", "gender_tier_S"], "plsda|randomforest|svm") |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
14 |
b2414be87d4b
planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79
ethevenot
parents:
diff
changeset
|
15 } |