Displaying 1 result from an estimated 1 matches for "newimgname".
2010 Oct 06
1
R getting slower until it breaks...
...esPlacettes[,2] - xmin(imgRaster) - (tailleFenetres/2) # The image origin for calculation is in the top left corner
y1<- ymax(imgRaster) - tableDesPlacettes[,3] - (tailleFenetres/2)
coo <- cbind(x1,y1)
newValues<- t(apply(coo,1,latlong_to_pixels,facteurMetreParPixel,tailleFenetres))
newImgName<- paste(newImagesDirectory,substr(Type,1,3),"_","GC",tableDesPlacettes[,1],".tif",sep="")
apply(cbind(newValues,1:length(newImgName)),1,make.tiff,Type,imgRaster,nom=newImgName)
setwd(lastWD)
}
###########################
## Executing fonctions:
#########...