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)