rm_secu — rm_secu • DiveR

Remove the last security desaturation stop (3min at 3m)

rm_secu(dive)

Arguments

dive	`dive` object.

Author

Jaunatre Maxime <maxime.jaunatre@yahoo.fr>

Examples

d1 <- dive(20, 40)
d2 <- rm_secu(d1)
plot(d1)
plot(d2, add = TRUE, col = "darkred")

# When there is other desat stops
d1 <- dive(39, 22)
d2 <- rm_secu(d1)
plot(d1)
plot(d2, add = TRUE, col = "darkred")