From 8f5633acac34bdcb69f93a3599d82bc641fe79c2 Mon Sep 17 00:00:00 2001
From: Holger Brandl <holgerbrandl@gmail.com>
Date: Fri, 18 Sep 2015 15:22:50 +0200
Subject: [PATCH] fixed fc analysis for replicated scheme

---
 dge_workflow/featcounts_deseq.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/dge_workflow/featcounts_deseq.R b/dge_workflow/featcounts_deseq.R
index d83df30..2a85e4a 100755
--- a/dge_workflow/featcounts_deseq.R
+++ b/dge_workflow/featcounts_deseq.R
@@ -73,7 +73,7 @@ genesAfter <- nrow(countMatrix)
 # TODO add general info about the deseq process/model here
 
 
-get_sample_from_replicate <- function(repName) str_match(repName, "(.*)_[0-9]{1}$")[,2]
+get_sample_from_replicate <- function(repName) str_match(repName, "(.*)_[R]?[0-9]{1}$")[,2]
 
 # Define or load a contrasts matrix
 if(!is.null(contrasts_file)){
-- 
GitLab