# Set up local system centered on London
london <- c(-0.1, 51.5)
# Convert nearby points to local coordinates
pts <- cbind(
lon = c(-0.1, -0.2, 0.0),
lat = c(51.5, 51.6, 51.4)
)
localcartesian_fwd(pts, lon0 = london[1], lat0 = london[2])
# Round-trip conversion
fwd <- localcartesian_fwd(pts, lon0 = -0.1, lat0 = 51.5)
localcartesian_rev(fwd$x, fwd$y, fwd$z, lon0 = -0.1, lat0 = 51.5)
Run the code above in your browser using DataLab