From c2f90a541fbda7cd5b56082c0cfc65cdc84acd66 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 26 Jul 2017 15:28:10 -0400 Subject: [PATCH] Updated Now outputting z-score file as well --- RAutoClDs.R | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) 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(.) %>% -- 2.29.0