This function calculates the corrected equilibrium constant for temperature and ionic strength
Examples
water_defined <- define_water(7, 20, 50, 100, 80, 10, 10, 10, 10, tot_po4 = 1)
#> Warning: User entered total hardness is >10% different than calculated hardness.
correct_k(water_defined)
#> k1co3 k2co3 k1po4 k2po4 k3po4 kocl
#> 1 4.974812e-07 5.82167e-11 0.008584056 8.453217e-08 6.537799e-13 3.151725e-08
#> knh4 kso4 kbo3 k1sio4 k2sio4 kch3coo
#> 1 4.674863e-10 0.0164065 9.021809e-10 1.423268e-10 6.745386e-14 2.057709e-05