##To convert pH from the total scale to the seawater and free scales
## (at salinity=35, temperature=25oC and atmospheric pressure):
pHconv(35, 25, 0)
conv <- pHconv()
c(pHtotal=8, pHSWS=8+conv$pHtotal2SWS, pHfree=8+conv$pHtotal2free)
Run the code above in your browser using DataLab