[GRASS-SVN] r36357 - grass-addons/vector/v.autokrige

[svn_grass at osgeo.org]

Author: mathieug
Date: 2009-03-13 11:17:04 -0400 (Fri, 13 Mar 2009)
New Revision: 36357

Modified:
   grass-addons/vector/v.autokrige/v.autokrige
Log:
use ksh ; added tryCatch in R script

Modified: grass-addons/vector/v.autokrige/v.autokrige
===================================================================
--- grass-addons/vector/v.autokrige/v.autokrige	2009-03-13 15:14:30 UTC (rev 36356)
+++ grass-addons/vector/v.autokrige/v.autokrige	2009-03-13 15:17:04 UTC (rev 36357)
@@ -340,7 +340,7 @@
 	attr(sitesR, "proj4string") <-CRS(G$proj4)
 
 	cat("ordinary kriging","\n")
-	kriging_result = autoKrige(as.formula(paste(column,"~",1)), sitesR[column_], mask_SG, model = modelslist, fix.values = c(nugget,range,sill), debug.level=-1, verbose=TRUE)
+	kriging_result = autoKrige(as.formula(paste(column,"~",1)), sitesR[column], mask_SG, model = modelslist, fix.values = c(nugget,range,sill), debug.level=-1, verbose=TRUE)
 
 	cat("send raster to GRASS","\n")
 	writeRAST6(kriging_result$krige_output,rastername,zcol=1,NODATA=0)