scuba (version 1.1-9)

oxtox: Pulmonary Oxygen Toxicity

Description

Computes pulmonary oxygen toxicity dose for a given dive profile and breathing gas (air or nitrox).

Usage

oxtox(d, progressive=FALSE)

Arguments

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.

Value

• 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.

Warnings

Not applicable to altitude dives. Not applicable to gas mixtures other than nitrox (oxygen-nitrogen mixtures).

Details

Computes the total dose of pulmonary oxygen toxicity from the given dive profile, by $$\int_0^T \left( \frac{\mbox{ppO}_2 - 0.5}{0.5} \right)^{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.

See Also

ead, eadtable, mod, maxmix

Examples

# 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)