# \donttest{
#load raster
DEM <- terra::rast(system.file("extdata", "example_raster.tif", package = 'rLakeHabitat'))
.old_wd <- setwd(tempdir())
#run function
animBathy(DEM, units = 'm', littoral = TRUE, secchi = 1, by = 5)
setwd(.old_wd)# }
Run the code above in your browser using DataLab