# NOT RUN {
library(oce)
# Recreate data(met) and plot u(t) and v(t)
metFile <- download.met(id=6358, year=2003, month=9, destdir=".")
met <- read.met(metFile)
met <- oceSetData(met, "time", met[["time"]]+4*3600,
note="add 4h to local time to get UTC time")
plot(met, which=3:4)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab