diff --git a/RAutoClDs.R b/RAutoClDs.R
index 5d14264..78bd116 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -412,6 +412,19 @@ THEFT <- function(){
 			attr(scrawdat,"scaled:scale") <- NULL
 			colnames(scrawdat) <- rownames(tabRDATID)
 			
+			#Outputting the Z-score file
+			nfnzsc <- strsplit(alz,"[\\]") %>%
+	            .[[1]] %>%
+            	.[length(.)] %>%
+            	gsub("\\D","",.) %>%
+	            c("GSE",.,"zscore.txt") %>%
+	            paste(collapse = "")
+            zscraw <- scrawdat %>%
+	            t()%>%
+	            as.data.frame(.,stringsAsFactors = FALSE)
+            colnames(zscraw) <- subjnam
+            write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = TRUE)
+			
 			##Discretized the Data
 			dialzdat <- scrawdat %>%
 				dndat(.) %>%
@@ -700,6 +713,19 @@ THEFT <- function(){
 				attr(scrawdat,"scaled:scale") <- NULL
 				colnames(scrawdat) <- rownames(tabRDATID)
 				
+				#Outputting the Z-score file
+			    nfnzsc <- strsplit(alz,"[\\]") %>%
+                    .[[1]] %>%
+                    .[length(.)] %>%
+                    gsub("\\D","",.) %>%
+                    c("GSE",.,"zscore.txt") %>%
+                    paste(collapse = "")
+                zscraw <- scrawdat %>%
+                    t()%>%
+                    as.data.frame(.,stringsAsFactors = FALSE)
+                colnames(zscraw) <- subjnam
+                write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = TRUE)
+				
 				##Discretized the Data
 				dialzdat <- scrawdat %>%
 					dndat(.) %>%