From d0434e850280a47cc524d3a1014b671faba506f9 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Fri, 23 Feb 2018 16:12:23 -0500 Subject: [PATCH] Update outputting 4 files: aftexcel,avg,zscore,dscrt --- RAutoClDs.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/RAutoClDs.R b/RAutoClDs.R index 6a7ea88..815b534 100644 --- a/RAutoClDs.R +++ b/RAutoClDs.R @@ -413,7 +413,7 @@ THEFT <- function(){ .[[1]] %>% .[length(.)] %>% gsub("\\D","",.) %>% - c("GSE",.,"newout.txt") %>% + c("GSE",.,"avg.txt") %>% paste(collapse = "") noutput <- newoutput %>% t()%>% @@ -436,7 +436,7 @@ THEFT <- function(){ .[[1]] %>% .[length(.)] %>% gsub("\\D","",.) %>% - c("GSE",.,"avg.txt") %>% + c("GSE",.,"zscore.txt") %>% paste(collapse = "") zscraw <- scrawdat %>% t()%>% @@ -444,7 +444,7 @@ THEFT <- function(){ zscraw <- cbind(rownames(zscraw),zscraw) colnames(zscraw) <- c("Gene Symbol",subjnam) rownames(zscraw) <- NULL - write.table(zscraw, file = nfnewout, sep = "\t",col.names = TRUE,row.names = FALSE) + write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = FALSE) ##Discretized the Data @@ -766,7 +766,7 @@ THEFT <- function(){ zscraw <- cbind(rownames(zscraw),zscraw) colnames(zscraw) <- c("Gene Symbol",subjnam) rownames(zscraw) <- NULL - write.table(zscraw, file = nfnewout, sep = "\t",col.names = TRUE,row.names = FALSE) + write.table(zscraw, file = nfnzsc, sep = "\t",col.names = TRUE,row.names = FALSE) ##Discretized the Data dialzdat <- scrawdat %>% -- 2.29.0