Mercurial > repos > iuc > edger
comparison edger.R @ 9:6e53e565fc6a draft
"planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/edger commit 8c4b8f8711df0a4d6fa98fa8a6f91b977395d62c"
author | iuc |
---|---|
date | Sat, 26 Jun 2021 19:09:53 +0000 |
parents | 3d89af8a44f0 |
children | a8305cf0c951 |
comparison
equal
deleted
inserted
replaced
8:3d89af8a44f0 | 9:6e53e565fc6a |
---|---|
275 counts <- counts[, -1] | 275 counts <- counts[, -1] |
276 countsrows <- nrow(counts) | 276 countsrows <- nrow(counts) |
277 | 277 |
278 # Process factors | 278 # Process factors |
279 if (is.null(opt$factInput)) { | 279 if (is.null(opt$factInput)) { |
280 factordata <- read.table(opt$factFile, header = TRUE, sep = "\t", strip.white = TRUE) | 280 factordata <- read.table(opt$factFile, header = TRUE, sep = "\t", strip.white = TRUE, stringsAsFactors = TRUE) |
281 # check samples names match | 281 # check samples names match |
282 if (!any(factordata[, 1] %in% colnames(counts))) { | 282 if (!any(factordata[, 1] %in% colnames(counts))) { |
283 stop("Sample IDs in factors file and count matrix don't match") | 283 stop("Sample IDs in factors file and count matrix don't match") |
284 } | 284 } |
285 # order samples as in counts matrix | 285 # order samples as in counts matrix |