[Raster-commits] r392 - pkg/raster/R

[noreply at r-forge.r-project.org]

Author: jacobvanetten
Date: 2009-04-03 09:50:04 +0200 (Fri, 03 Apr 2009)
New Revision: 392

Modified:
   pkg/raster/R/distance.R
Log:


Modified: pkg/raster/R/distance.R
===================================================================
--- pkg/raster/R/distance.R	2009-04-03 07:21:44 UTC (rev 391)
+++ pkg/raster/R/distance.R	2009-04-03 07:50:04 UTC (rev 392)
@@ -49,7 +49,6 @@
 					accDist[index] <- pmin(transitionValues,accDist[index])
 				}
 			}
-			accDist[is.na(values(object))] <- NA
 			outRaster <- setValues(outRaster, accDist)	
 			if (filename != "") {
 				outRaster <- writeRaster(outRaster)
@@ -63,7 +62,7 @@
 			nrows <- nrow(object)
 			ncols <- ncol(object)
 
-			m <- c(-Inf, 0, 0,  NA, NA, 0,  0, Inf, 1)
+			m <- c(-Inf, Inf, 0)
 			rsl1 <- reclass(object, m, filename=tempfile(), overwrite=TRUE)
 			rsl2 <- raster(tempfile())