# \donttest{
library(blockCV)
# import presence-absence species data
points <- read.csv(system.file("extdata/", "species.csv", package = "blockCV"))
pa_data <- sf::st_as_sf(points, coords = c("x", "y"), crs = 7845)
# spatial clustering
sc <- cv_cluster(x = pa_data, k = 5)
# now plot the create folds
cv_plot(cv = sc,
x = pa_data, # sample points
nrow = 2,
points_alpha = 0.5)
# }
Run the code above in your browser using DataLab