From 556b97bfaf00fc921d3839f78598eab25ed40d4e Mon Sep 17 00:00:00 2001
From: Efrain Gonzalez <egonz340@fiu.edu>
Date: Wed, 26 Jul 2017 15:30:57 -0400
Subject: [PATCH] Update Now outputting the z-score file

---
 RCleanDscret.R | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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(.) %>%
-- 
2.29.0