optimize processing time in the sampling routine of model_opt.r

demo/HabitatSampler.r

@@ -73,7 +73,7 @@ shp<-readOGR(paste(dataPath,"Example_Reference_Points.shp", sep=""))
 proj4string(shp)<- "+proj=utm +zone=33 +datum=WGS84 +units=m +no_defs +ellps=WGS84 +towgs84=0,0,0"
 shp<-spTransform(shp,CRS( "+proj=utm +zone=32 +datum=WGS84 +units=m +no_defs +ellps=WGS84 +towgs84=0,0,0"))
 ref<-as.data.frame(extract(a1,shp))
-
+ -
 
 ##1.c.1##
 p <- as(extent(a1), 'SpatialPolygons')