d <- find_dives(beaked_whale$P,300)
X <- crop_all(c(d$start[1], d$end[1]), beaked_whale) #crop all data to 1st dive
plott_base(X = list(X$P, X$A), r = c(1, 0), panel_labels = c('Depth', 'Acc'))
Run the code above in your browser using DataLab