library(oce)
data(adp)
# Velocity components. (Note: we should probably trim some bins at top.)
plot(adp)
# Note that tides have moved the mooring.
plot(adp, which=15:18)
# Do currents line up with bathymetry?
par(mfrow=c(1,2))
plot(adp, which="uv+ellipse+arrow")
data(coastlineSLE)
plot(coastlineSLE, clongitude=adp[["longitude"]], clatitude=adp[["latitude"]], span=50)
points(adp[["longitude"]], adp[["latitude"]], pch='+', cex=2, col='red')
Run the code above in your browser using DataLab