Mercurial > repos > bebatut > compute_wilcoxon_test

diff compute_wilcoxon_test.R @ 2:309fac5c91d8 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/asaim/galaxytools/tree/master/tools/compute_wilcoxon_test commit 450b58f2de19b05cd05c27ae77376fb1b71f5646
author bebatut
date Thu, 21 Apr 2016 04:20:40 -0400
parents bba4cafe21a8
children
line wrap: on
line diff
--- a/compute_wilcoxon_test.R	Thu Apr 14 10:37:32 2016 -0400
+++ b/compute_wilcoxon_test.R	Thu Apr 21 04:20:40 2016 -0400
@@ -9,12 +9,16 @@
   'paired','f',2,'logical',
   'exact','g',2,'logical',
   'correct','h',2, 'logical',
-  'mu','i',2,'integer'
+  'mu','i',2,'integer',
+  'header','y',2,'logical'
 ), byrow=TRUE, ncol=4);
 
 options = getopt(option_specification);
 
-data = read.table(options$input_file, sep = '\t', h = T)
+header = TRUE
+if(!is.null(options$header)) header = options$header
+
+data = read.table(options$input_file, sep = '\t', h = header)
 
 column1_id = 1
 if(!is.null(options$column1_id)) column1_id = options$column1_id
@@ -48,4 +52,4 @@
 m[5,] = c('alternative',test$alternative)
 m[6,] = c('method',test$method)
 write.table(m, file = options$output_file, sep = "\t", quote = FALSE, 
-    row.names = FALSE, col.names = FALSE)
\ No newline at end of file
+    row.names = FALSE, col.names = FALSE)