# \donttest{
library(terra)
# Create sample raster
r <- rast(ncol=10, nrow=10)
values(r) <- 1:100
# Create test occurrences
set.seed(0)
longitude <- sample(-50:50,
size = 20, replace = FALSE)
set.seed(0)
latitude <- sample(-30:30,
size = 20, replace = FALSE)
occurrences <- as.data.frame(cbind(longitude,latitude))
# Here's the function
result <- marineBackground(occs = occurrences, buff = 100000,
fraction = .9, partCount = 2, clipToOcean = FALSE)
# }
Run the code above in your browser using DataLab