# NOT RUN {
library(oce)
data(section)
sectionWest <- subset(section, longitude < -60)
spine <- list(longitude=c(-74.5, -69.2, -55), latitude=c(38.6, 36.25, 36.25))
sectionWithSpine <- addSpine(sectionWest, spine)
plot(sectionWithSpine, which="map")
plot(sectionWithSpine, xtype="distance", which="temperature")
plot(sectionWithSpine, xtype="spine", which="temperature")
# }
Run the code above in your browser using DataLab