R/squares.r

In shipunov: Miscellaneous Functions from Alexey Shipunov

Defines functions Squares

Documented in Squares

Squares <- function(ppts, relative=FALSE) {
sq <- sapply(ppts, Polyarea) # absolute areas
if (relative) sq <- sq/sum(sq) # relative areas
sq
}

Try the shipunov package in your browser