| oxtox {scuba} | R Documentation |
Computes pulmonary oxygen toxicity dose for a given dive profile and breathing gas (air or nitrox).
oxtox(d, progressive=FALSE)
d |
The dive profile. An object of class "dive".
|
progressive |
Logical flag. If FALSE, the total oxygen toxicity from the
dive is calculated. If TRUE, the cumulative oxygen toxicity
at each time point during the dive is calculated.
|
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. Not applicable to gas mixtures other than nitrox (oxygen-nitrogen mixtures).
Adrian Baddeley adrian@maths.uwa.edu.au http://www.maths.uwa.edu.au/~adrian/
# 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)