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