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