library(oce)
data(sealevelHalifax)
# Overall plot
plot(sealevelHalifax)
# Illustrate storm surge during Hurricane Juan
plot(sealevelHalifax,which=1,xlim=as.POSIXct(c("2003-09-24","2003-10-05"), tz="UTC"))
abline(v=as.POSIXct("2003-09-29 04:00:00", tz="UTC"), col="red")
mtext("Hurricane
Juan", at=as.POSIXct("2003-09-29 04:00:00", tz="UTC"), col="red")
Run the code above in your browser using DataLab