diff --git a/RAutoClDs.R b/RAutoClDs.R
index 6a7ea88..815b534 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -413,7 +413,7 @@ THEFT <- function(){
 	            .[[1]] %>%
             	.[length(.)] %>%
             	gsub("\\D","",.) %>%
-	            c("GSE",.,"newout.txt") %>%
+	            c("GSE",.,"avg.txt") %>%
 	            paste(collapse = "")
             noutput <- newoutput %>%
 	            t()%>%
@@ -436,7 +436,7 @@ THEFT <- function(){
 	            .[[1]] %>%
             	.[length(.)] %>%
             	gsub("\\D","",.) %>%
-	            c("GSE",.,"avg.txt") %>%
+	            c("GSE",.,"zscore.txt") %>%
 	            paste(collapse = "")
             zscraw <- scrawdat %>%
 	            t()%>%
@@ -444,7 +444,7 @@ THEFT <- function(){
 	       	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
@@ -766,7 +766,7 @@ THEFT <- function(){
 	       	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
 				dialzdat <- scrawdat %>%