
Functions to identify sections of a TDR record displaying one of three possible activities: dry, wet, and trivial wet.
.detPhase(time, depth, dry.thr, wet.cond, wet.thr, interval)
POSIXct
object with date and time for all depths.
numeric vector with depth readings.
As passed from
calibrateDepth
.
As passed from calibrateDepth
; sampling
interval in seconds.
A list with components:
Numeric vector identifying each activity phase, starting from 1 for every input record.
Factor with levels “L” indicating dry, “W” indicating wet, “U” for underwater (above dive criterion), “D” for diving, “Z” for trivial wet animal activities. Only “L”, “W”, and “Z” are actually represented.
A POSIXct
object as long as the number of
unique activity phases identified, indicating the start times for
each activity phase.
A POSIXct
object as long as the number of
unique activity phases identified, indicating the end times for each
activity phase.
See calibrateDepth
.
# NOT RUN {
data(divesTDR)
depths <- getDepth(divesTDR)
times <- getTime(divesTDR)
detp <- diveMove:::.detPhase(times, depths, dry.thr=70, wet.thr=3610,
interval=getDtime(divesTDR))
## Plot detected phases
plotTDR(times, depths)
rect(xleft=detp$begin, xright=detp$end, ybottom=0, ytop=-4,
col=seq_along(detp$begin))
# }
Run the code above in your browser using DataLab