| oxtox | R Documentation |
Computes pulmonary oxygen toxicity dose for a given dive profile and breathing gas.
oxtox(d, progressive=FALSE, warn=TRUE)
d |
The dive profile. An object of class |
progressive |
Logical flag. If |
warn |
Logical flag indicating whether to issue a warning if the partial pressure of oxygen exceeds a threshold (1.4, 1.5 or 1.6 ata). |
Computes the total dose of pulmonary oxygen toxicity from the given dive profile, by
integral of ((ppO2 - 0.5)/0.5)^0.83 dt
The maximum tolerable dose per day is usually reckoned as 1500 OTU. Allowing 650 OTU for recompression therapy implies a working maximum of 850 OTU per day.
If progressive=FALSE, a single numeric value,
the total pulmonary oxygen toxicity dose in OTU.
If progressive=TRUE, a numeric vector containing the
cumulative pulmonary oxygen toxicity dose in OTU at each
time point during the dive. The corresponding time points can be
extracted by times.dive.
Not applicable to altitude dives.
.
Bookspan, J. (1995) Diving physiology in plain English. Undersea and Hyperbaric Medicine Society, Kensington, Maryland (USA). ISBN 0-930406-13-3.
Brubakk, A.O. and Neuman, T.S. (eds.) (2003) Bennett and Elliott's Physiology and Medicine of Diving. 5th Edition. Saunders. ISBN 0-7020-2571-2
Buehlmann, A.A., Voellm, E.B. and Nussberger, P. (2002) Tauchmedizin. 5e Auflage. Springer-Verlag.
Wienke, B.R. (1994) Basic diving physics and applications. Best Publishing Co.
ppO2,
ead, eadtable,
mod,
maxmix
# Nitrox II (36% oxygen) at 30 metres for 27 minutes d <- dive(nitrox(0.36), c(30,27)) oxtox(d) # Same as above, followed by safety stop on 100% oxygen d <- dive(nitrox(0.36), c(30,27),5, nitrox(1), c(5,5)) oxtox(d)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.