From 3a23b98ac69f879f4133a47b4ad4029b2ed458c5 Mon Sep 17 00:00:00 2001
From: Efrain Gonzalez <egonz340@fiu.edu>
Date: Fri, 23 Feb 2018 16:09:12 -0500
Subject: [PATCH] Updated to output 4 files: aftexcel,avg,zscore,dscrt

---
 RCleanDscret.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/RCleanDscret.R b/RCleanDscret.R
index c311a3c..3f8ab7f 100644
--- a/RCleanDscret.R
+++ b/RCleanDscret.R
@@ -438,7 +438,7 @@ for(j in 1:length(tabRDATID)){
 	       	zscraw <- cbind(rownames(zscraw),zscraw)
             colnames(zscraw) <- c("Gene Symbol",subjnam)
         	rownames(zscraw) <- NULL
-            write.table(zscraw, file = nfnewout, sep = "\t",col.names = TRUE,row.names = FALSE)
+            write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = FALSE)
             
             
 ##Discretized the Data
-- 
2.29.0