#--- Load raster ---#
r <- system.file("extdata", "mraster.tif", package = "sgsR")
mr <- terra::rast(r)
calculate_sampsize(
mraster = mr,
rse = 0.01
)
calculate_sampsize(
mraster = mr
)
calculate_sampsize(
mraster = mr,
rse = 0.025,
start = 0.01,
end = 0.08,
increment = 0.01
)
#--- higher variance leads to need for more samples ---#
Run the code above in your browser using DataLab