library(oce)
data(ctd.raw)
plot(ctd.raw) # barely recognizable, due to pre- and post-cast junk
plot(ctdTrim(ctd.raw)) # looks like a real profile ...
plot(ctdDecimate(ctdTrim(ctd.raw),method="boxcar")) # ... smoothed
Run the code above in your browser using DataLab