Mercurial > repos > caleb-easterly > peca

diff peca.R @ 3:784c107c5861 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/caleb-easterly/galaxytools/peca
author caleb-easterly
date Thu, 22 Feb 2018 11:33:37 -0500
parents f50bb34c1a37
children 5a39fa8a235a
line wrap: on
line diff
--- a/peca.R	Thu Feb 22 11:28:22 2018 -0500
+++ b/peca.R	Thu Feb 22 11:33:37 2018 -0500
@@ -17,8 +17,8 @@
                            sep = '\t')
 
     # read 2nd and 3rd argument, which are path to files with group 1 and 2 column indices 
-    group1_ind_file <- read.csv(args[2], header = FALSE)[1, ]
-    group2_ind_file <- read.csv(args[3], header = FALSE)[1, ]
+    group1_ind_file <- as.vector(as.matrix(read.csv(args[2], header = FALSE)[1, ]))
+    group2_ind_file <- as.vector(as.matrix(read.csv(args[3], header = FALSE)[1, ]))
 
     # read 4th argument, which is output file name
     out_file <- args[4]