diff --git a/RCleanDscret.R b/RCleanDscret.R
index 64413c5..e0b757f 100644
--- a/RCleanDscret.R
+++ b/RCleanDscret.R
@@ -315,7 +315,7 @@ colnames(ALZDAT) <- gcnames(ALZDAT)
 
 #Full RAW Data
 Fullalzdwr <- ALZDAT %>%
-	as.data.frame() %>%
+	as.data.frame(.,stringsAsFactors = FALSE) %>%
 	cbind(ALZWORDF,.)