Displaying 1 result from an estimated 1 matches for "taillefenetres".
2010 Oct 06
1
R getting slower until it breaks...
...on principal #####
make.NDVI.photo<- function(tableDesPlacettes,Type,newImagesDirectory,textAndImgDirectory="U:\\kNN_Valcartier\\Photo aerienne"){
lastWD<- getwd()
setwd(textAndImgDirectory)
imgRaster<- stack(imageAssociee)
x1<- tableDesPlacettes[,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(Typ...