data(divesTDR)
divesTDR
data(divesTDRcalibrate)
divesTDRcalibrate
diveX <- extractDive(divesTDR, 9, getDAct(divesTDRcalibrate, "dive.id"))
plotTDR(diveX, interact=FALSE)
diveX <- extractDive(divesTDRcalibrate, 5:10)
plotTDR(diveX, interact=FALSE)Run the code above in your browser using DataLab