library(oce)
t <- seq.POSIXt(from=as.POSIXct("2007-01-01"), to=as.POSIXct("2007-01-30"),
length.out=200)
tt <- as.numeric(t - t[1], units="hours")
u <- cos(tt*2*pi/240)
v <- sin(tt*2*pi/240)
stickplot(t, u, v)
Run the code above in your browser using DataLab