diff --git a/RAutoClDs.R b/RAutoClDs.R
index e9447b1..141a80f 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -356,7 +356,12 @@ THEFT <- function(){
 			z <- 1
 			naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE)
 			for(z in 1:dim(RAWWORD)[1]){
-				naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,])))
+			    if(sum(is.na(RAWWORD[z,])) > 0){
+				    naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,])))
+				}
+				if(length(grep("NA",RAWWORD[z,])) > 0){
+	                naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1]
+	            }
 				z <- z + 1
 			}
 			
@@ -639,7 +644,12 @@ THEFT <- function(){
 				z <- 1
 				naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE)
 				for(z in 1:dim(RAWWORD)[1]){
-					naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,])))
+				    if(sum(is.na(RAWWORD[z,])) > 0){
+					    naroww[z,1] <- as.integer(sum(is.na(RAWWORD[z,])))
+				    }
+					if(length(grep("NA",RAWWORD[z,])) > 0){
+		                naroww[z,1] <- as.integer(length(grep("NA",RAWWORD[z,]))) + naroww[z,1]
+                	}
 					z <- z + 1
 				}