Alternative model evaluation

work on nested CV

R/01_01_range_map_preparation.R

@@ -79,8 +79,8 @@ geometries_unique = range_maps_gridded_id %>%
   group_by(geom_id) %>% 
   slice_head(n = 1)
 
-geom_dist = sf::st_distance(geometries_unique, geometries_unique)  # Takes ~ 10 mins
-  %>% as.matrix()
+geom_dist = sf::st_distance(geometries_unique, geometries_unique)  %>%  # Takes ~ 10 mins
+  as.matrix()
 
 range_maps_split = range_maps_gridded_id %>% 
   group_by(name_matched) %>%