library(oce)
data(ctd)
ctdWarmed <- ctd
ctdWarmed[["temperature"]] <- ctdWarmed[["temperature"]] + 0.5
ctdWarmed[["latitude"]] <- ctdWarmed[["latitude"]] + 0.1
section <- makeSection(ctd, ctdWarmed)
summary(section)
s2 <- makeSection(ctd)
s2 <- s2 + ctdWarmed
plot(s2)
plot(sectionSmooth(sectionGrid(makeSection(dir("*.csv")))))
Run the code above in your browser using DataLab