data(divesTDRcalibrate)
tdr <- getTDR(divesTDRcalibrate)
## Extract the gross activity from an already calibrated TDR object
gross.act <- getGAct(divesTDRcalibrate)
detd <- diveMove:::.detDive(getDepth(tdr), gross.act[[2]], 3)Run the code above in your browser using DataLab