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