change to as("Raster") it is faster

LandSciTech · Mar 13, 2024 · ecd0e46 · ecd0e46
1 parent 34355a0
commit ecd0e46
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/getGraph.R b/R/getGraph.R
@@ -34,7 +34,7 @@ getGraph<- function(sim, neighbourhood,method="gdistance"){
                   rook=4,
                   octagon=8,
                   queen=8)
-    x = gdistance::transition(raster::raster(sim$costSurface), transitionFunction=function(x) 1/mean(x), directions=dirs)
+    x = gdistance::transition(as(sim$costSurface, "Raster"), transitionFunction=function(x) 1/mean(x), directions=dirs)
 
     if(neighbourhood=="octagon"){
       #correct for diagonal distances and other aspects of geographic distance