require(rangeMapper)
require(sf)
wrens = system.file('extdata','wrens.GeoJSON',package = 'rangeMapper') %>% st_read
# or simpler
wrens = read_wrens()
plot(male_wing ~ female_wing, wrens)
plot(sf::st_geometry(wrens))
Run the code above in your browser using DataLab