R/dr2d.R

Defines functions dr2d

Documented in dr2d

dr2d <-
function(dr, dlat = 1, dlon = 2, startLat = 50)
{
  hemi <- sign(dr + 1e-06)
  lat <- startLat + dlat*(abs(dr)%/%100)
  lon <- dlon*(dr%%(hemi*100))
  data.frame(lat = lat + dlat/2, lon =  lon + dlon/2)
}

Try the geo package in your browser

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

geo documentation built on May 2, 2019, 5:22 p.m.