## Not run:
# library(oce)
# data(coastlineWorld)
# mapPlot(coastlineWorld, type='l',
# longitudelim=c(-70,-50), latitudelim=c(40,50),
# proj="polyconic", orientation=c(90, -90,0), grid=TRUE)
# data(topoWorld)
# tlon <- topoWorld[['longitude']][550:650]
# tlat <- topoWorld[['latitude']][240:300]
# z <- topoWorld[['z']][550:650, 240:300]
# mapImage(tlon, tlat, z)
# mapLines(coastlineWorld[['longitude']], coastlineWorld[['latitude']])
# ## End(Not run)
Run the code above in your browser using DataLab