diff --git a/RPostClean.R b/RPostClean.R
index 99428bc..c6bd7ed 100644
--- a/RPostClean.R
+++ b/RPostClean.R
@@ -18,6 +18,7 @@ dndat <- function(NDATA){
 	colnames(DDATA) <- colnames(NDATA)
 	i = 1
 	for(i in 1:rownd){
+	    j <- 1
 		for(j in 1:colnd){
 			if(is.na(NDATA[i,j])==FALSE){