library(oce)
data(sealevelHalifax)
x <- sealevelHalifax[["elevation"]]
yM2 <- predict(tidem(sealevelHalifax, constituents="M2"))
yS2 <- predict(tidem(sealevelHalifax, constituents="S2"))
plotTaylor(x, cbind(yM2, yS2))
Run the code above in your browser using DataLab