example_ct <- define_water(ph = 7.5, temp = 25) %>%
solvect_chlorine(time = 30, residual = 1, baffle = 0.7)
library(dplyr)
ct_calc <- water_df %>%
define_water_chain() %>%
solvect_chlorine_once(residual = 2, time = 10, baffle = .5)
chlor_resid <- water_df %>%
mutate(br = 50) %>%
define_water_chain() %>%
mutate(
residual = seq(1, 12, 1),
time = seq(2, 24, 2),
baffle = 0.7
) %>%
solvect_chlorine_once()
Run the code above in your browser using DataLab