diff --git a/RCleanDscret.R b/RCleanDscret.R
index a82735d..17bd6fb 100644
--- a/RCleanDscret.R
+++ b/RCleanDscret.R
@@ -407,6 +407,19 @@ attr(scrawdat,"scaled:center") <- NULL
 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(.) %>%