data(divesTDRcalibrate)
divesTDRcalibrate # show
## Beginning times of each successive phase in record
getGAct(divesTDRcalibrate, "begin")
## Factor of dive IDs
dids <- getDAct(divesTDRcalibrate, "dive.id")
table(dids[dids > 0]) # samples per dive
## Factor of dive phases for given dive
getDPhaseLab(divesTDRcalibrate, 19)Run the code above in your browser using DataLab