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","",.) %>%