Updated Now outputting z-score file as well

Efrain Gonzalez
1 parent 2677909e39
Showing 1 changed file with 26 additions and 0 deletions Show diff stats
RAutoClDs.R
@@ -412,6 +412,19 @@ THEFT &lt;- 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 &lt;- 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(.) %>%
...	...	@@ -412,6 +412,19 @@ THEFT <- function(){
412	412	attr(scrawdat,"scaled:scale") <- NULL
413	413	colnames(scrawdat) <- rownames(tabRDATID)
414	414
	415	+ #Outputting the Z-score file
	416	+ nfnzsc <- strsplit(alz,"[\\]") %>%
	417	+ .[[1]] %>%
	418	+ .[length(.)] %>%
	419	+ gsub("\\D","",.) %>%
	420	+ c("GSE",.,"zscore.txt") %>%
	421	+ paste(collapse = "")
	422	+ zscraw <- scrawdat %>%
	423	+ t()%>%
	424	+ as.data.frame(.,stringsAsFactors = FALSE)
	425	+ colnames(zscraw) <- subjnam
	426	+ write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = TRUE)
	427	+
415	428	##Discretized the Data
416	429	dialzdat <- scrawdat %>%
417	430	dndat(.) %>%
...	...	@@ -700,6 +713,19 @@ THEFT <- function(){
700	713	attr(scrawdat,"scaled:scale") <- NULL
701	714	colnames(scrawdat) <- rownames(tabRDATID)
702	715
	716	+ #Outputting the Z-score file
	717	+ nfnzsc <- strsplit(alz,"[\\]") %>%
	718	+ .[[1]] %>%
	719	+ .[length(.)] %>%
	720	+ gsub("\\D","",.) %>%
	721	+ c("GSE",.,"zscore.txt") %>%
	722	+ paste(collapse = "")
	723	+ zscraw <- scrawdat %>%
	724	+ t()%>%
	725	+ as.data.frame(.,stringsAsFactors = FALSE)
	726	+ colnames(zscraw) <- subjnam
	727	+ write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = TRUE)
	728	+
703	729	##Discretized the Data
704	730	dialzdat <- scrawdat %>%
705	731	dndat(.) %>%