Mercurial > repos > artbio > repenrich
comparison edgeR_repenrich.R @ 2:15e3e29f310e draft
planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/repenrich commit c89c33e5ea8fc63f3ea5c0f66ebc5fa822ac734b
author | artbio |
---|---|
date | Tue, 19 Sep 2017 17:23:15 -0400 |
parents | f6f0f1e5e940 |
children | 83b5ea7cc342 |
comparison
equal
deleted
inserted
replaced
1:51b4590a972d | 2:15e3e29f310e |
---|---|
99 | 99 |
100 filesi <- fromJSON(opt$alignmentA, method = "C", unexpected.escape = "error") | 100 filesi <- fromJSON(opt$alignmentA, method = "C", unexpected.escape = "error") |
101 filesj <- fromJSON(opt$alignmentB, method = "C", unexpected.escape = "error") | 101 filesj <- fromJSON(opt$alignmentB, method = "C", unexpected.escape = "error") |
102 sizes <- c() | 102 sizes <- c() |
103 for (file in filesi) { | 103 for (file in filesi) { |
104 sizes <- c(sizes, read.delim(file, header=FALSE)[1,1]) | 104 sizes <- c(sizes, read.delim(file, header=TRUE)[1,1]) |
105 } | 105 } |
106 for (file in filesj) { | 106 for (file in filesj) { |
107 sizes <- c(sizes, read.delim(file, header=FALSE)[1,1]) | 107 sizes <- c(sizes, read.delim(file, header=TRUE)[1,1]) |
108 } | 108 } |
109 | 109 |
110 # build a meta data object | 110 # build a meta data object |
111 | 111 |
112 meta <- data.frame( | 112 meta <- data.frame( |