diff --git a/RAutoClDs.R b/RAutoClDs.R
index 2cf8af9..ae53876 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -169,10 +169,10 @@ dndat <- function(NDATA){
 				if(NDATA[i,j] < -1){
 					DDATA[i,j]=0L
 				}
-				if(NDATA[i,j] > 1){
+				else if(NDATA[i,j] > 1){
 					DDATA[i,j]=2L
 				}
-				if(-1 <= NDATA[i,j] && NDATA[i,j] < 1){
+				else if(-1 <= NDATA[i,j] && NDATA[i,j] < 1){
 					DDATA[i,j]=1L
 				}
 			} else{