# NOT RUN {
DO.sat1 <- DO.saturation(DO.mgl = 5.5,
temp.C = 20, elevation.m = 1000)
DO.sat2 <- DO.saturation(DO.mgl = 5.5,
temp.C = 20, bar.press = 674.1, bar.units = "mmHg")
DO.sat1
DO.sat2
# Will ya look at that...
# }
Run the code above in your browser using DataLab