## Not run:
# library(oce)
# par(mfrow=c(2,1))
# # 1. AO, Arctic oscillation
# ao <- read.index("http://www.esrl.noaa.gov/psd/data/correlation/ao.data")
# aorecent <- subset(ao, t > as.POSIXct("2000-01-01"))
# oce.plot.ts(aorecent$t, aorecent$index)
# # 2. SOI, probably more up-to-date then data(soi, package="ocedata")
# soi <- read.index("http://www.cgd.ucar.edu/cas/catalog/climind/SOI.signal.ascii")
# soirecent <- subset(soi, t > as.POSIXct("2000-01-01"))
# oce.plot.ts(soirecent$t, soirecent$index)
# ## End(Not run)
Run the code above in your browser using DataLab