From 743d3ade8da05c5c367d65f30fb3ecae74297464 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 31 May 2017 12:22:27 -0400 Subject: [PATCH] Update to RClean2 --- RClean2.R | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/RClean2.R b/RClean2.R index e042964..ac43c35 100644 --- a/RClean2.R +++ b/RClean2.R @@ -265,13 +265,13 @@ Fullalzdw <- ALZDAT %>% cbind(ALZWORDF,.) -nfna <- strsplit(alz,"[\\]") %>% - .[[1]] %>% - .[length(.)] %>% - gsub("\\D","",.) %>% - c("GSE",.,"after.txt") %>% - paste(collapse = "") -write.matrix(Fullalzdw,file = nfna,sep = "\t") +#nfna <- strsplit(alz,"[\\]") %>% +# .[[1]] %>% +# .[length(.)] %>% +# gsub("\\D","",.) %>% +# c("GSE",.,"after.txt") %>% +# paste(collapse = "") +#write.matrix(Fullalzdw,file = nfna,sep = "\t") #Perfect for excel viewing nfnaex <- strsplit(alz,"[\\]") %>% .[[1]] %>% @@ -279,6 +279,6 @@ nfnaex <- strsplit(alz,"[\\]") %>% gsub("\\D","",.) %>% c("GSE",.,"aftexcel.txt") %>% paste(collapse = "") -write.table(t(Fullalzdw), file = nfnaex, sep = "\t") +write.table(t(Fullalzdw), file = nfnaex, sep = "\t",row.names = FALSE) -- 2.29.0