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

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

Author: rhijmans
Date: 2009-02-22 07:13:17 +0100 (Sun, 22 Feb 2009)
New Revision: 291

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


Modified: pkg/raster/R/mCalc.R
===================================================================
--- pkg/raster/R/mCalc.R	2009-02-22 06:10:56 UTC (rev 290)
+++ pkg/raster/R/mCalc.R	2009-02-22 06:13:17 UTC (rev 291)
@@ -37,19 +37,13 @@
 				outraster <- setValues(outraster, apply(values(x), 1, fun), r) 
 				outraster <- writeRaster(outraster, filetype=filetype, overwrite=overwrite)
 			}
+	
 			if (r %in% track) {
 				elapsed <- (proc.time() - starttime)[3]
 				tpr <- elapsed /r
 				ttg <- round(tpr/60 * (nrow(x) - r), digits=1)
 				cat('row', r, '-', ttg, 'minutes to go\n')
 			}
-
-			if (r %in% track) {
-				elapsed <- (proc.time() - starttime)[3]
-				tpr <- elapsed /r
-				ttg <- round(tpr/60 * (nrow(x) - r), digits=1)
-				cat('row', r, '-', ttg, 'minutes to go\n')
-			}
 		
 		}
 		if (filename(outraster) == "") {