Mercurial > repos > bebatut > compute_wilcoxon_test

comparison 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
comparison
equal deleted inserted replaced
1:ff9e8750bb26 2:309fac5c91d8
7 'column2_id', 'd', 2, 'integer', 7 'column2_id', 'd', 2, 'integer',
8 'alternative','e',2,'character', 8 'alternative','e',2,'character',
9 'paired','f',2,'logical', 9 'paired','f',2,'logical',
10 'exact','g',2,'logical', 10 'exact','g',2,'logical',
11 'correct','h',2, 'logical', 11 'correct','h',2, 'logical',
12 'mu','i',2,'integer' 12 'mu','i',2,'integer',
13 'header','y',2,'logical'
13 ), byrow=TRUE, ncol=4); 14 ), byrow=TRUE, ncol=4);
14 15
15 options = getopt(option_specification); 16 options = getopt(option_specification);
16 17
17 data = read.table(options$input_file, sep = '\t', h = T) 18 header = TRUE
19 if(!is.null(options$header)) header = options$header
20
21 data = read.table(options$input_file, sep = '\t', h = header)
18 22
19 column1_id = 1 23 column1_id = 1
20 if(!is.null(options$column1_id)) column1_id = options$column1_id 24 if(!is.null(options$column1_id)) column1_id = options$column1_id
21 x = data[,column1_id] 25 x = data[,column1_id]
22 y = NULL 26 y = NULL