d.wave: 'd.wave' 2D lunge detector for individual dive, with...
In embiuw/dWave:

Description Usage Arguments Value Author(s) See Also Examples

d.wave 2D lunge detector for individual dive, with validation

d.wave(data = df, dive = 96, presmooth.window = 4, pk.per = 16,
  per.rng = 20, min.pkdist = 40, a.pk = 0.05, pk.env = 0.85,
  return.wavelet = F, outliers = "flag", edges = "flag",
  plotting = T)

`data`	Data frame containing dive info (e.g. created using `read.depth`, `read.lunges`, `join.dstamp` and `number.dive`).
`dive`	Sequence number of dive to be analysed.
`presmooth.window`	Initial window of smooth for gaussian running mean filter
`pk.per`	Peak wavelet period for weighted power analysis
`per.rng`	Range of all periods to be considered in weighted power analysis
`min.pkdist`	Minimum period between consecutive peaks
`a.pk`	Minimum amplitude for peak to be considered significant
`pk.env`	Proportion of a.pk, used to set the duration of what is considered a peak
`return.wavelet`	Logical, whether wavelet object should be returned or only the detected peaks
`outliers`	Logical, either flag outliers or delete them (flag by default, change to 'omit' to omit)
`edges`	Logical, either flag edge peaks or delete them (flag by default, change to 'omit' to omit)
`plotting`	Whether to plot the results or not

Returns a list with objects parameters, containing all parameters used when running detector, wavelet containing the wavelet output (if return.wavelet was set to TRUE) and peaks data frame containing the detected peaks

Martin Biuw

read.lunges to read lunge event timestamps, read.depth to read depth time series, join.dstamp to merge lunge events and dive data, number.dive to add dive numeric ID column, run.d.wave to run d.wave on entire data record from an animal.

Other Lunge detector functions: d.wave.TDR.original, d.wave.TDR, dstamp.plot, filter.lunges, gpsWhale, import.all.rene, join.dstamp, matDive, matLunge, match.lunges, mkDygraph, ncWhale, number.dive, optim.d.wave, read.depth, read.lunges, run.d.wave, whale2dstamp, wt.image.plot

d <- read.depth(whalename='mn16_Jan25b')
t <- read.lunges(whalename='mn16_Jan25b')
df <- join.dstamp(d, t)
df$dive <- number.dive(df$depth)
d103 <- d.wave(dive=103)