# NOT RUN {
# data
data("occ_p", package = "rangemap")
# preparing spatial points
occ <- as.data.frame(unique(occ_p))
WGS84 <- sp::CRS("+init=epsg:4326")
occ_sp <- sp::SpatialPointsDataFrame(coords = occ[, 2:3], data = occ,
proj4string = WGS84)
# reprojecting
LAEA <- LAEA_projection(spatial_object = occ_sp)
occ_pr <- sp::spTransform(occ_sp, LAEA)
# convex hull polygon
cvx_hull <- hull_polygon(occ_pr, hull_type = "convex")
# }
Run the code above in your browser using DataLab