## Not run:
# library(oce)
# # Gulf Stream
# data(section)
# GS <- subset(section, 109<=stationId&stationId<=129)
# GSg <- sectionGrid(GS, p=seq(0, 5000, 100))
# plot(GSg, map.xlim=c(-80,-60))
# ## End(Not run)
Run the code above in your browser using DataLab