# NOT RUN {
library(oce)
data(coastlineWorld)
mapPlot(coastlineWorld, type='l',
longitudelim=c(-80, 10), latitudelim=c(0, 120),
projection="+proj=ortho +lon_0=-40")
lon <- c(-63.5744, 0.1062) # Halifax CA to London UK
lat <- c(44.6479, 51.5171)
mapPoints(lon, lat, col='red')
mapLines(lon, lat, col='red')
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab