## Not run:
# library(oce)
# data(sealevelTuktoyaktuk)
# time <- sealevelTuktoyaktuk[["time"]]
# elevation <- sealevelTuktoyaktuk[["elevation"]]
# oce.plot.ts(time, elevation, type='l', ylab="Height [m]", ylim=c(-2,6))
# legend("topleft", legend=c("Tuktoyaktuk (1975)","Detided"),
# col=c("black","red"),lwd=1)
# tide <- tidem(sealevelTuktoyaktuk)
# detided <- elevation - predict(tide)
# lines(time, detided, col="red")
# ## End(Not run)
Run the code above in your browser using DataLab