# 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)
# Use modeled decay curve:
define_water(ph = 7.5, alk = 100, doc = 2, uv254 = .02, br = 50) %>%
solvect_o3(time = 10, dose = 2, baffle = 0.5)
# \donttest{
library(dplyr)
ct_calc <- water_df %>%
mutate(br = 50) %>%
define_water_chain() %>%
mutate(
dose = 2,
O3time = 10,
) %>%
solvect_o3_once(time = O3time, baffle = .7)
# }
Run the code above in your browser using DataLab