comparison runit/biosigner_tests.R @ 2:b2414be87d4b draft

planemo upload for repository https://github.com/workflow4metabolomics/biosigner.git commit d85321a93588817e9e8884b90dde6331292bbe79

2:b2414be87d4b

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")

}