library(oce)
data(adp)
adp.enu <- adp.xyz2enu(adp.beam2xyz(adp))
# Plot overview images
plot(adp.enu)
# Plot diagnostic timeseries. Angles should be constant for a mooring.
plot(adp.enu, which=13:18)
Run the code above in your browser using DataLab