Mercurial > repos > caleb-easterly > peca

changeset 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 36b7a5891000
children 07bd2582526b
files peca.R test-data/group1.txt test-data/group2.txt
diffstat 3 files changed, 3 insertions(+), 8 deletions(-) [+]
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]
--- a/test-data/group1.txt	Thu Feb 22 11:28:22 2018 -0500
+++ b/test-data/group1.txt	Thu Feb 22 11:33:37 2018 -0500
@@ -1,3 +1,1 @@
-2
-3
-4
+2,3,4
--- a/test-data/group2.txt	Thu Feb 22 11:28:22 2018 -0500
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,3 +0,0 @@
-5
-6
-7