# Dive to 25 m for 20 min with safety stop
d1 <- dive(c(25,20),c(5,5))
# plot it
plot.dive(d1)
# Dive to 18 m for 30 min with safety stop, on Nitrox EANx 36
d3 <- dive(nitrox(0.36), c(18,30), c(5,3))
plot.dive(d3)
Run the code above in your browser using DataLab