Description Usage Arguments Examples
Find the dives' bottom start and end
1 2 | bottom_delim(obj, method = c("vspd", "haslsey", "bsm", "std"), dvs = NULL,
...)
|
obj |
An object of class |
method |
the method to used. See help for functions in see also section
to get details about possible options. When |
dvs |
a delim table such as return by |
... |
arguments to be passed to |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | data(exses)
dvs_vspd <- bottom_delim(exses$tdr)
dvs_halsey <- bottom_delim(exses$tdr, method = "halsey")
dvs_bsm <- bottom_delim(exses$tdr, method = "bsm")
dvs_std <- bottom_delim(exses$tdr, method = "std")
# Example using the four methods
n_dv <- 300
opar <- par(no.readonly = TRUE) ; par(mfrow = c(2, 2))
exses$delim <- dvs_vspd
tdrply(plot, 1:2, no = n_dv, obj = exses, main = 'method = "vspd"')
tdrply(points, 1:2, ty = "_", no = n_dv, obj = exses, col = "red")
exses$delim <- dvs_halsey
tdrply(plot, 1:2, no = n_dv, obj = exses, main = 'method = "halsey"')
tdrply(points, 1:2, ty = "_", no = n_dv, obj = exses, col = "red")
exses$delim <- dvs_bsm
tdrply(plot, 1:2, no = n_dv, obj = exses, main = 'method = "bsm"')
tdrply(points, 1:2, ty = "_", no = n_dv, obj = exses, col = "red")
exses$delim <- dvs_std
tdrply(plot, 1:2, no = n_dv, obj = exses, main = 'method = "std"')
tdrply(points, 1:2, ty = "_", no = n_dv, obj = exses, col = "red")
par(opar)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.