BW <- beaked_whale
track <- ptrack(
A = BW$A$data, M = BW$M$data, s = 3,
sampling_rate = BW$A$sampling_rate,
fc = NULL, return_pe = TRUE
)$track
tortuosity <- tortuosity(track, sampling_rate = BW$A$sampling_rate, intvl = 25)
Run the code above in your browser using DataLab