# \donttest{
library(oce)
data(coastlineWorld)
mapPlot(coastlineWorld,
type = "l",
longitudelim = c(-80, 10), latitudelim = c(35, 80),
projection = "+proj=merc"
)
# Great circle from New York to Paris (Lindberg's flight)
l <- geodGc(c(-73.94, 2.35), c(40.67, 48.86), 1)
mapLines(l$longitude, l$latitude, col = "red", lwd = 2)
# }
Run the code above in your browser using DataLab