# NOT RUN {
data(buoy, package="ocedata")
par(mfrow=c(3,1))
plot(buoy$time, buoy$wind, ylab="Wind Speed [m/s]")
plot(buoy$time, buoy$height, ylab="Wave height [m]")
plot(buoy$time, buoy$period, ylab="Wave period [s]")
# }
Run the code above in your browser using DataLab