R/locdist.R

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

Defines functions locdist

Documented in locdist

locdist <-
function(scale = "nmi", type = "p")
{
        lat <- geolocator(n = 2, type = type)
        x <- arcdist(lat$lat[1], lat$lon[1], lat$lat[2], lat$lon[2])
        if(scale == "km")
                x <- x * 1.852
        return(x)
}

Try the geo package in your browser