# \donttest{
lagos_path <- system.file("extdata/conejos",
package = "bamm")
enm_path <- list.files(lagos_path,
pattern = ".tif",
full.names = TRUE)[seq(1,10)]
en_models <- raster::stack(enm_path)
ngbs_vect <- sample(1:2,replace = TRUE,
size = raster::nlayers(en_models))
init_coords <- read.csv(file.path(lagos_path,
"lagos_initit.csv"))[seq(1,10),]
nsteps <- 10
sdm_comm <- bamm::community_sim(en_models = en_models,
ngbs_vect = ngbs_vect,
init_coords = init_coords,
nsteps = nsteps,
threshold = 0.1)
pamt10 <- bamm::csim2pam(community_sim = sdm_comm ,
which_steps = 10)
pams <- bamm::csim2pam(community_sim = sdm_comm ,
which_steps = seq_len(10))
rich_pam <- bamm::pam2richness(pams,which_steps = c(1,5))
print(rich_pam)
# }
Run the code above in your browser using DataLab