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