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

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

Author: jacobvanetten
Date: 2009-04-03 09:21:44 +0200 (Fri, 03 Apr 2009)
New Revision: 391

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


Modified: pkg/raster/R/distance.R
===================================================================
--- pkg/raster/R/distance.R	2009-04-03 06:55:26 UTC (rev 390)
+++ pkg/raster/R/distance.R	2009-04-03 07:21:44 UTC (rev 391)
@@ -17,7 +17,7 @@
 		if(dataContent(object)=='all' & canProcessInMemory(object, 5)){
 			outRaster <- raster(object, filename=filename)
 
-			fromCells <- which(!is.na(values(object) > 0))
+			fromCells <- which(!is.na(values(object)))
 			toCells <- (1:n)[-fromCells]
 			accDist <- rep(0,times=n)
 			accDist[toCells] <- Inf