# NOT RUN {
# occurrences
data("occ_f", package = "rangemap")
occ <- unique(occ_f)
# polygons
poly <- simple_wmap("simple", "Cuba")
LAEA <- LAEA_projection(occ[, 2:3])
poly_pr <- sp::spTransform(poly, LAEA)
# to fix topology problems
poly_pr <- rgeos::gBuffer(poly_pr, width = 0)
# EOO
eoo_pe <- eoo(occurrences = occ, polygons = poly_pr)
# }
Run the code above in your browser using DataLab