## Not run:
# library(oce)
# data(coastlineWorld)
# longitude <- coastlineWorld[['longitude']]
# latitude <- coastlineWorld[['latitude']]
# mapPlot(longitude, latitude, type='l', grid=FALSE,
# longitudelim=c(-80,10), latitudelim=c(0,120),
# projection="orthographic", orientation=c(45,-100,0))
# mapZones()
# ## End(Not run)
Run the code above in your browser using DataLab