# Use kd from experimental data (recommended):
define_water(ph = 7.5, temp = 25) %>%
solvect_o3(time = 10, dose = 2, kd = -0.5, baffle = 0.9)
define_water(ph = 7.5, alk = 100, doc = 2, uv254 = .02, br = 50) %>%
solvect_o3(time = 10, dose = 2, baffle = 0.5)
Run the code above in your browser using DataLab