# \donttest{
model_path <- system.file("extdata/Lepus_californicus_cont.tif",
package = "bamm")
model <- raster::raster(model_path)
model <- model > 0.7
csd_plot <- bamm::csd_estimate(model,
dispersal_steps=c(2,4,8))
csd_plot$plot
# }
Run the code above in your browser using DataLab