Commit 769f081f9b31cbc0a244813efb135609926f88cf
1 parent
c9b2687075
Exists in
master
Don't use this code yet
update to discretization part
Showing
1 changed file
with
2 additions
and
2 deletions
Show diff stats
RAutoClDs.R
| ... | ... | @@ -169,10 +169,10 @@ dndat <- function(NDATA){ |
| 169 | 169 | if(NDATA[i,j] < -1){ |
| 170 | 170 | DDATA[i,j]=0L |
| 171 | 171 | } |
| 172 | - if(NDATA[i,j] > 1){ | |
| 172 | + else if(NDATA[i,j] > 1){ | |
| 173 | 173 | DDATA[i,j]=2L |
| 174 | 174 | } |
| 175 | - if(-1 <= NDATA[i,j] && NDATA[i,j] < 1){ | |
| 175 | + else if(-1 <= NDATA[i,j] && NDATA[i,j] < 1){ | |
| 176 | 176 | DDATA[i,j]=1L |
| 177 | 177 | } |
| 178 | 178 | } else{ |