library(oce)
data(ctd)
ctdWarmed <- ctd
temperature(ctdWarmed) <- temperature(ctdWarmed) + 0.5
latitude(ctdWarmed) <- latitude(ctdWarmed) + 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