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