powered by
Calculates the "true" centre of gravity (weighted) from a set of lat longs, using cartesian geometry
trueCOGll(thepoints)
set of points c(lat,long)
a point (lat,long) from centre
Descartes, R., 1637. Discours de la methode. A Leyde, De l<U+2019>imprimerie de I. Maire, Paris.
# NOT RUN { lat <- runif (200,-24,-12) long <- runif (200,43,51) ll <- data.frame(lat,long) cp <- trueCOGll(ll) # }
Run the code above in your browser using DataLab