library(oce)
data(a03)
GS <- subset(a03, indices=124:102)
GSg <- sectionGrid(GS, p=seq(0, 5000, 100))
data(coastlineWorld)
plot(GSg, coastline=coastlineWorld, map.xlim=c(-80,-60))
# Plot stations individually (good for quality-control)
pdf("a03_stations.pdf")
for (s in seq_along(na03$data$station)) {
plot(na03$data$station[[s]])
}
dev.off()
Run the code above in your browser using DataLab