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