# \donttest{
library(blockCV)
# import presence-absence species data
points <- read.csv(system.file("extdata/", "species.csv", package = "blockCV"))
# make an sf object from data.frame
pa_data <- sf::st_as_sf(points, coords = c("x", "y"), crs = 7845)
# load raster data
path <- system.file("extdata/au/", package = "blockCV")
files <- list.files(path, full.names = TRUE)
covars <- terra::rast(files)
# spatial autocorrelation of a binary/continuous response
sac1 <- cv_spatial_autocor(x = pa_data,
column = "occ", # binary or continuous data
plot = TRUE)
# spatial autocorrelation of continuous raster files
sac2 <- cv_spatial_autocor(r = covars,
num_sample = 5000,
plot = TRUE)
# show the result
summary(sac2)
# }
Run the code above in your browser using DataLab