academikuser

# load up area shape file:
```{r}
library(maptools)
area <- readShapePoly("ne_10m_parks_and_protected_lands_area.shp")

# # or file.choose:
# area <- readShapePoly(file.choose())

library(RColorBrewer)
colors <- brewer.pal(9, "BuGn")