powered by
areaPolygon(xy, r=6378137)
xy <- rbind(c(-180,-20), c(-140,55), c(10, 0), c(-140,-60), c(-180,-20)) areaPolygon(xy)
Run the code above in your browser using DataLab