occs <- read.csv(system.file("extdata/Bassaricyon_neblina.csv",
package = "wallace"))[, 2:3]
occs$occID <- 1:nrow(occs)
pathShp <- list.files(system.file("extdata/shp", package = "wallace"),
full.names = TRUE)
nameShp <- list.files(system.file("extdata/shp", package = "wallace"),
full.names = FALSE)
userBgbf <- penvs_userBgExtent(bgShp_path = pathShp, bgShp_name = nameShp,
userBgBuf = 0.2, occs = occs)
Run the code above in your browser using DataLab