Mercurial > repos > caleb-easterly > peca

comparison 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
comparison
equal deleted inserted replaced
2:36b7a5891000 3:784c107c5861
15 quant_file <- read.delim(args[1], 15 quant_file <- read.delim(args[1],
16 na.strings = c("0", "NA"), 16 na.strings = c("0", "NA"),
17 sep = '\t') 17 sep = '\t')
18 18
19 # read 2nd and 3rd argument, which are path to files with group 1 and 2 column indices 19 # read 2nd and 3rd argument, which are path to files with group 1 and 2 column indices
20 group1_ind_file <- read.csv(args[2], header = FALSE)[1, ] 20 group1_ind_file <- as.vector(as.matrix(read.csv(args[2], header = FALSE)[1, ]))
21 group2_ind_file <- read.csv(args[3], header = FALSE)[1, ] 21 group2_ind_file <- as.vector(as.matrix(read.csv(args[3], header = FALSE)[1, ]))
22 22
23 # read 4th argument, which is output file name 23 # read 4th argument, which is output file name
24 out_file <- args[4] 24 out_file <- args[4]
25 25
26 # get vectors of column names 26 # get vectors of column names