diff biosigner_wrapper.R @ 2:b2414be87d4b draft

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

--- a/biosigner_wrapper.R	Sat Jul 30 12:21:07 2016 -0400
+++ b/biosigner_wrapper.R	Sat Aug 06 12:17:12 2016 -0400
@@ -5,9 +5,6 @@
 argVc <- unlist(parseCommandArgs(evaluate=FALSE))
 
 
-#### Start_of_tested_code  <- function() {}
-
-
 ##------------------------------
 ## Initializing
 ##------------------------------
@@ -172,7 +169,8 @@
 if(sum(tierMC %in% tierVc)) {
     cat("\nSignificant features from '", paste(tierVc, collapse = "', '"), "' tiers:\n", sep = "")
     print(tierMC[apply(tierMC, 1, function(rowVc) sum(rowVc %in% tierVc) > 0), ,
-                         drop = FALSE])
+                 drop = FALSE])
+
     cat("\nAccuracy:\n")
     print(round(getAccuracyMN(bsnLs), 3))
 } else
@@ -222,9 +220,5 @@
 
 options(stringsAsFactors = strAsFacL)
 
-
-#### End_of_tested_code <- function() {}
-
-
 rm(list = ls())