comparison edgeR_repenrich.R @ 2:15e3e29f310e draft

planemo upload for repository https://github.com/ARTbio/tools-artbio/tree/master/tools/repenrich commit c89c33e5ea8fc63f3ea5c0f66ebc5fa822ac734b

1:51b4590a972d

filesi <- fromJSON(opt$alignmentA, method = "C", unexpected.escape = "error")
filesj <- fromJSON(opt$alignmentB, method = "C", unexpected.escape = "error")
sizes <- c()
for (file in filesi) {
    sizes <- c(sizes, read.delim(file, header=FALSE)[1,1])
    }
for (file in filesj) {
    sizes <- c(sizes, read.delim(file, header=FALSE)[1,1])
    }

# build a meta data object

meta <- data.frame(

2:15e3e29f310e

filesi <- fromJSON(opt$alignmentA, method = "C", unexpected.escape = "error")
filesj <- fromJSON(opt$alignmentB, method = "C", unexpected.escape = "error")
sizes <- c()
for (file in filesi) {
    sizes <- c(sizes, read.delim(file, header=TRUE)[1,1])
    }
for (file in filesj) {
    sizes <- c(sizes, read.delim(file, header=TRUE)[1,1])
    }

# build a meta data object

meta <- data.frame(