Commit 296d2320 authored by Konrad Zych's avatar Konrad Zych

bugfix

parent b6788279
Pipeline #3057 passed with stage
in 5 minutes and 30 seconds
...@@ -21,7 +21,7 @@ suppressMessages(library('methods')) ...@@ -21,7 +21,7 @@ suppressMessages(library('methods'))
option_list = list( option_list = list(
make_option('--feat_in', type='character', help='Input file containing features'), make_option('--feat_in', type='character', help='Input file containing features'),
make_option('--mlr_models_list', type='character', help='Input RData file containing the trained models'), make_option('--mlr_models_list', type='character', help='Input RData file containing the trained models'),
make_option('--label_in', type='character', default='NULL', help='Input file containing labels'), make_option('--label_in', type='character', help='Input file containing labels'),
make_option('--test_sets', type='character', default='NULL', help='Input file specifying which examples to use for testing'), make_option('--test_sets', type='character', default='NULL', help='Input file specifying which examples to use for testing'),
make_option('--pred', type='character', default="pred.tsv", help='Output file to which predictions will be written') make_option('--pred', type='character', default="pred.tsv", help='Output file to which predictions will be written')
) )
...@@ -45,11 +45,7 @@ if (is.null(opt$test_sets)) { ...@@ -45,11 +45,7 @@ if (is.null(opt$test_sets)) {
feat <- read.features(opt$feat_in) feat <- read.features(opt$feat_in)
if (is.null(opt$label_in)) { label <- read.labels(opt$label_in, feat)
cat('fn.test.label not specified: skipping evaluation\n')
}else{
label <- read.labels(opt$label_in, feat)
}
start.time <- proc.time()[1] start.time <- proc.time()[1]
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment