## Not run:
# library(oce)
# # Arctic oscillation
# ao <- read.index("http://www.esrl.noaa.gov/psd/data/correlation/ao.data")
# recent <- subset(ao, t > as.POSIXct("2000-01-01"))
# oce.plot.ts(recent$t, recent$index)
# ## End(Not run)
Run the code above in your browser using DataLab