From 24ce5ef2bd876e1b80a99230eb9de4b08cb1f1f2 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Mon, 25 Jun 2018 17:21:15 -0400 Subject: [PATCH] Update --- RCleanDscret.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/RCleanDscret.R b/RCleanDscret.R index 639cb56..5c153d3 100644 --- a/RCleanDscret.R +++ b/RCleanDscret.R @@ -1,4 +1,4 @@ -##Posted 6/15/2017 +##Posted 06/25/2018 options(digits = 11) #Libraries required to run the code @@ -320,7 +320,7 @@ Fullalzdwr <- ALZDAT %>% #Raw file is output -nfnaex <- strsplit(alz,"[\\]") %>% +nfnaex <- strsplit(alz,"[\\|/]") %>% .[[1]] %>% .[length(.)] %>% gsub("\\D","",.) %>% @@ -403,7 +403,7 @@ for(j in 1:length(tabRDATID)){ ##Outputting non Z-score Average over genes newoutput <-NuRDATN colnames(newoutput) <- rownames(tabRDATID) - nfnewout <- strsplit(alz,"[\\]") %>% + nfnewout <- strsplit(alz,"[\\|/]") %>% .[[1]] %>% .[length(.)] %>% gsub("\\D","",.) %>% @@ -426,7 +426,7 @@ for(j in 1:length(tabRDATID)){ colnames(scrawdat) <- rownames(tabRDATID) #Outputting the Z-score file - nfnzsc <- strsplit(alz,"[\\]") %>% + nfnzsc <- strsplit(alz,"[\\|/]") %>% .[[1]] %>% .[length(.)] %>% gsub("\\D","",.) %>% -- 2.29.0