Update Now outputting the z-score file

Efrain Gonzalez
1 parent c2f90a541f
Showing 1 changed file with 13 additions and 0 deletions Show diff stats
RCleanDscret.R
@@ -407,6 +407,19 @@ attr(scrawdat,&quot;scaled:center&quot;) &lt;- 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(.) %>%
...	...	@@ -407,6 +407,19 @@ attr(scrawdat,"scaled:center") <- NULL
407	407	attr(scrawdat,"scaled:scale") <- NULL
408	408	colnames(scrawdat) <- rownames(tabRDATID)
409	409
	410	+#Outputting the Z-score file
	411	+nfnzsc <- strsplit(alz,"[\\]") %>%
	412	+ .[[1]] %>%
	413	+ .[length(.)] %>%
	414	+ gsub("\\D","",.) %>%
	415	+ c("GSE",.,"zscore.txt") %>%
	416	+ paste(collapse = "")
	417	+zscraw <- scrawdat %>%
	418	+ t()%>%
	419	+ as.data.frame(.,stringsAsFactors = FALSE)
	420	+colnames(zscraw) <- subjnam
	421	+write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = TRUE)
	422	+
410	423	##Discretized the Data
411	424	dialzdat <- scrawdat %>%
412	425	dndat(.) %>%