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 <- makeSection(ctd, ctd.warmed)
summary(section)
s2 <- makeSection(ctd)
s2 <- s2 + ctd.warmed
plot(s2)
plot(sectionSmooth(sectionGrid(makeSection(dir("*.csv")))))
Run the code above in your browser using DataLab