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

test_sacurine_default <- function() {

    testDirC <- "sacurine"
    argLs <- list(respC = "gender",
                  methodC = "all",
                  bootI = "5",
                  pvalN = "0.05",
                  seedI = "123")

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

    checkEquals(outLs[["varDF"]]["Oxoglutaric acid", "gender_tier_S"], "plsda|randomforest|svm")

}