library(oce)
data(ctd)
ctd.warmed <- ctd
ctd.warmed$data$temperature <- ctd.warmed$data$temperature + 0.5
ctd.warmed$metadata$latitude <- ctd.warmed$metadata$latitude + 0.1
section <- make.section(ctd, ctd.warmed)
summary(section)
s2 <- make.section(ctd)
s2 <- s2 + ctd.warmed
plot(s2)
plot(section.smooth(section.grid(make.section(dir("*.csv")))))
Run the code above in your browser using DataLab