# NOT RUN {
library(oce)
data(coastlineWorld)
par(mar=rep(1,4))
mapPlot(coastlineCut(coastlineWorld,70), projection="+proj=wintri +lon_0=70")
data(conveyor, package="ocedata")
## Main path
lon <- subset(conveyor, path==1)$longitude
lat <- subset(conveyor, path==1)$latitude
mapLines(lon, lat, col="blue", lwd=3)
## Secondary path (in Indian Ocean)
lon <- subset(conveyor, path==2)$longitude
lat <- subset(conveyor, path==2)$latitude
mapLines(lon, lat, col="darkgreen", lwd=3)
# }
Run the code above in your browser using DataLab