library(oce)
data(coastlineWorld)
mapPlot(coastlineWorld, type='l',
latitudelim=c(35,80), longitudelim=c(-80,10),
projection="orthographic", orientation=c(35, -35, 0))
## Airplanes travelling between New York and London
## pass over Newfoundland and Nova Scotia.
lon <- c(-74.0064, 0.1062)
lat <- c(40.7142, 51.5171)
l <- geodGc(lon, lat, d=1)
mapLines(l$longitude, l$latitude, col='red', lwd=2)
Run the code above in your browser using DataLab