From 769f081f9b31cbc0a244813efb135609926f88cf Mon Sep 17 00:00:00 2001
From: Efrain Gonzalez <egonz340@fiu.edu>
Date: Tue, 20 Jun 2017 16:10:36 -0400
Subject: [PATCH] Don't use this code yet update to discretization part

---
 RAutoClDs.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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