fixed bug with reference column

SnakeChunks · Aug 18, 2018 · 9727937 · 9727937
1 parent ceaa64a
commit 9727937
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/RSnakeChunks/misc/deseq2.R b/scripts/RSnakeChunks/misc/deseq2.R
@@ -205,7 +205,7 @@ if ("test" %in% (tolower(colnames(design)))) {
 i <- 1
 for (i in 1:nrow(design.table)) {
     ## Define reference and test conditions from the design file
-    ref.condition <- as.vector(unlist(design.table[i, ref.column]))
+    ref.condition <- as.vector(unlist(design.table[i, reference.column]))
     test.condition <- as.vector(unlist(design.table[i, test.column]))
 
     ## Select reference and test samples