# NOT RUN {
# Compare with topoWorld in oce
library("oce")
data(topoWorld, package="oce")
w <- topoWorld
contour(w[['longitude']], w[['latitude']], w[['z']], level=0, drawlabels=FALSE)
data(topo2, package="ocedata")
lon <- seq(-179.5, 178.5, by=2)
lat <- seq(-89.5, 88.5, by=2)
contour(lon, lat, topo2, level=0, add=TRUE, col='red', lty='dotted', drawlabels=FALSE)
# }
Run the code above in your browser using DataLab