library(oce)
data(sealevel.tuk)
tide <- tidem(sealevel.tuk)
plot(sealevel.tuk$data$t, sealevel.tuk$data$eta, type='l', ylim=c(-2,5))
lines(sealevel.tuk$data$t, sealevel.tuk$data$eta - predict(tide), col="red")
Run the code above in your browser using DataLab