# NOT RUN {
# data
data("occ_p", package = "rangemap")
occ <- unique(occ_p)
WGS84 <- sp::CRS("+init=epsg:4326")
occ_sp <- sp::SpatialPointsDataFrame(coords = occ[, 2:3], data = occ,
proj4string = WGS84)
LAEA <- LAEA_projection(spatial_object = occ_sp)
occ_pr <- sp::spTransform(occ_sp, LAEA)
sp <- as.character(occ[1, 1])
# AOO
aoo_pe <- aoo(occ_pr = occ_pr, species = sp)
# }
Run the code above in your browser using DataLab