# \donttest{
if(interactive()){
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)
# manually choose the size of spatial blocks
cv_block_size(x = pa_data,
column = "occ",
min_size = 2e5,
max_size = 9e5)
}
# }
Run the code above in your browser using DataLab