Mercurial > repos > iuc > deseq2

diff deseq2.R @ 16:a416957ee305 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/deseq2 commit 81fa5b04b9ba9d4b1b59192af0adb1e1e18ca22b
author iuc
date Fri, 03 Aug 2018 17:23:46 -0400
parents 9a616afdbda5
children d9e5cadc7f0b
line wrap: on
line diff
--- a/deseq2.R	Sat May 19 03:55:48 2018 -0400
+++ b/deseq2.R	Fri Aug 03 17:23:46 2018 -0400
@@ -203,7 +203,7 @@
 if (!useTXI & hasHeader) {
     countfiles <- lapply(as.character(sampleTable$filename), function(x){read.delim(x, row.names=1)})
     tbl <- do.call("cbind", countfiles)
-    rownames(sampleTable) <- colnames(tbl) # take sample ids from header
+    colnames(tbl) <- rownames(sampleTable) # take sample ids from header
 
     # check for htseq report lines (from DESeqDataSetFromHTSeqCount function)
     oldSpecialNames <- c("no_feature", "ambiguous", "too_low_aQual",