## Continuing the Example from '?calibrateDepth':
utils::example("calibrateDepth", package="diveMove",
ask=FALSE, echo=FALSE)
## 'diveModel' method
dm <- getDiveModel(dcalib, 100)
plotDiveModel(dm, diveNo=100)
## 'TDRcalibrate' method
plotDiveModel(dcalib, diveNo=100)Run the code above in your browser using DataLab