simpl

Remove points of curve when isodepth around

simpl(dtcurve)

Arguments

dtcurve	a curve dive list

Author

Jaunatre Maxime <maxime.jaunatre@yahoo.fr>

Examples

cons <- conso(dive = dive(20,40), tank(12, 200), cons = 20)
#> Warning: No tank is available between 40 and 41.7 minutes so you died. Try again !
#> Warning: No tank is available between 41.7 and 44.7 minutes so you died. Try again !
#> Warning: No tank is available between 44.7 and 45.2 minutes so you died. Try again !
cons$dtcurve
#>     times depths pressure
#> 1     0.0      0      1.0
#> 2     0.0     20      3.0
#> 21   20.0     20      3.0
#> 211  30.0     20      3.0
#> 3    40.0     20      3.0
#> 4    41.7      3      1.3
#> 5    44.7      3      1.3
#> 6    45.2      0      1.0
simpl(cons$dtcurve)
#>   times depths pressure
#> 1   0.0      0      1.0
#> 2   0.0     20      3.0
#> 3  40.0     20      3.0
#> 4  41.7      3      1.3
#> 5  44.7      3      1.3
#> 6  45.2      0      1.0