R/lat2rA.R

lat2rA <-
function(lat, scale = "km")
{
  if (scale == "Miles")
    30. * arcdist(lat, -0.5, lat, 0.5, scale = scale)
  else
    1.852*30*arcdist(lat, -0.5, lat, 0.5, scale = scale)
}

Try the geoextras package in your browser

Any scripts or data that you put into this service are public.

geoextras documentation built on May 2, 2019, 5:56 p.m.