data(gs, package="ocedata")
if (FALSE) {
library(oce)
data(coastlineWorldMedium, package="ocedata")
plot(coastlineWorldMedium, span=3200,
clongitude=mean(gs$longitude), clatitude=mean(gs$latitude))
data(topoWorld, package="oce")
contour(topoWorld[["longitude"]]-360,
topoWorld[["latitude"]], -topoWorld[["z"]],
level=1000*(1:5), col='brown', add=TRUE)
for (i in gs$month)
lines(gs$longitude, gs$latitude[,i], col='blue')
}
Run the code above in your browser using DataLab