#--- Load raster and access files ---#
r <- system.file("extdata", "sraster.tif", package = "sgsR")
sr <- terra::rast(r)
a <- system.file("extdata", "access.shp", package = "sgsR")
ac <- sf::st_read(a)
#--- perform simple random sampling ---#
sample_srs(
raster = sr,
nSamp = 200,
)
Run the code above in your browser using DataLab