diff --git a/RAutoClDs.R b/RAutoClDs.R
index 7e648ad..c7933ec 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -1,6 +1,5 @@
-
 #Efrain H. Gonzalez
-#6/22/2017
+#6/25/2018
 options(digits = 11)
 #Libraries required to run the code
 library(pryr)
@@ -325,7 +324,7 @@ THEFT <- function(){
 				cbind(ALZWORDF,.)
 				
 			#Raw file is output
-			nfnaex <- strsplit(alz,"[\\]") %>%
+			nfnaex <- strsplit(alz,"[\\|/]") %>%
 				.[[1]] %>%
 				.[length(.)] %>%
 				gsub("\\D","",.) %>%
@@ -409,7 +408,7 @@ THEFT <- function(){
 			##Outputting non Z-score Average over genes
 			newoutput <-NuRDATN
 			colnames(newoutput) <- rownames(tabRDATID)
-			nfnewout <- strsplit(alz,"[\\]") %>%
+			nfnewout <- strsplit(alz,"[\\|/]") %>%
 	            .[[1]] %>%
             	.[length(.)] %>%
             	gsub("\\D","",.) %>%
@@ -432,7 +431,7 @@ THEFT <- function(){
 			colnames(scrawdat) <- rownames(tabRDATID)
 			
 			#Outputting the Z-score file
-			nfnzsc <- strsplit(alz,"[\\]") %>%
+			nfnzsc <- strsplit(alz,"[\\|/]") %>%
 	            .[[1]] %>%
             	.[length(.)] %>%
             	gsub("\\D","",.) %>%
@@ -648,7 +647,7 @@ THEFT <- function(){
 					cbind(ALZWORDF,.)
 					
 				#Raw file is output
-				nfnaex <- strsplit(alz,"[\\]") %>%
+				nfnaex <- strsplit(alz,"[\\|/]") %>%
 					.[[1]] %>%
 					.[length(.)] %>%
 					gsub("\\D","",.) %>%
@@ -731,7 +730,7 @@ THEFT <- function(){
 				##Outputting non Z-score Average over genes
 			newoutput <-NuRDATN
 			colnames(newoutput) <- rownames(tabRDATID)
-			nfnewout <- strsplit(alz,"[\\]") %>%
+			nfnewout <- strsplit(alz,"[\\|/]") %>%
 	            .[[1]] %>%
             	.[length(.)] %>%
             	gsub("\\D","",.) %>%
@@ -754,7 +753,7 @@ THEFT <- function(){
 			colnames(scrawdat) <- rownames(tabRDATID)
 			
 			#Outputting the Z-score file
-			nfnzsc <- strsplit(alz,"[\\]") %>%
+			nfnzsc <- strsplit(alz,"[\\|/]") %>%
 	            .[[1]] %>%
             	.[length(.)] %>%
             	gsub("\\D","",.) %>%