diff --git a/RPostClean.R b/RPostClean.R
index ecb7946..99428bc 100644
--- a/RPostClean.R
+++ b/RPostClean.R
@@ -143,7 +143,7 @@ for(k in 2:dim(dialzdat)[2]-1){
 }
 
 
-#The End the full data we seem to have found Carmen
+#The End the full data
 Fullalzdw <- bind_rows(RAWWORD,dialzdat)
 
 #Create the file