From 5b0a64e821e2c3c193272dc9395a9b0ee7020239 Mon Sep 17 00:00:00 2001
From: Francesco Sabatini <francesco.sabatini@idiv.de>
Date: Mon, 30 Nov 2020 18:09:13 +0100
Subject: [PATCH] Fixed bug in A98 optimized
---
code/A98_PredictorsExtract.R | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/code/A98_PredictorsExtract.R b/code/A98_PredictorsExtract.R
index a1153a1..19e18c0 100644
--- a/code/A98_PredictorsExtract.R
+++ b/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)}
}
--
GitLab