From f2cad6d27210eb287665a7f7ac8afd957a0d2d29 Mon Sep 17 00:00:00 2001
From: Efrain Gonzalez <egonz340@fiu.edu>
Date: Sun, 25 Jun 2017 22:50:06 -0400
Subject: [PATCH] Update to dndat function

---
 RCleanDscret.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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{
-- 
2.29.0