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.