R/rA.R

In geo: Draw and Annotate Maps, Especially Charts of the North Atlantic

rA <-
function (r, scale = "nmi") 
{
  if(!(scale == "nmi" | scale == "km")) 
    stop("Unit square (nautical) miles or kilometers only")
  A <- sapply(r, function(x) geoarea(rPeri(x)))
  if(scale == "nmi") {
    A/1.852^2
  }
  else {
    A
  }
}