Create O2.saturation.R