Fixed bug in A98 optimized

code/A98_PredictorsExtract.R

@@ -90,7 +90,7 @@ PredExtr <- function(x.shp, myfunction=NA, output=NA,
       return(nearest.tmp)
     }
 
-    out[i.toassign,] <- mypredictor@data[nearest[,"ID"],]
+    out[i.toassign,] <- tmp.mypredictor@data[nearest[,"ID"],]
    }
     if(!is.na(output)) {write.csv(out, file = output)} else{return(out)}
   }