moved dds_raw outside the if statement

ajitjohnson · Apr 10, 2020 · 212c1a6 · 212c1a6
1 parent 6ba0804
commit 212c1a6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/arseq.R b/R/arseq.R
@@ -81,9  81,11 @@ arseq <- function(data,meta,design, contrast, dds=NULL, qc= TRUE, dgea=TRUE, var
     print("Generating the DESeq object")
     dds <- DESeqDataSetFromMatrix(countData = data, colData = meta, design = design)
     dds <- DESeq(dds)
-    dds_raw <- dds
   }
 
   # to return
   dds_raw <- dds
 
   # Get the normalized matrix for heatmaps
   print("Normalizing data and saving the normalized data")
   n_data <- log2(counts(dds, normalized=TRUE) 1)