breakpoint <- define_water(7.5, 20, 65, free_chlorine = 5, tot_nh3 = 1) %>%
chemdose_chloramine(time = 40, cl2 = 2, nh3 = 1, use_free_cl_slot = TRUE)
# \donttest{
breakpoint <- water_df %>%
dplyr::mutate(free_chlorine = 5, tot_nh3 = 1) %>%
define_water_df() %>%
dplyr::mutate(
time = 8,
cl2dose = rep(c(2, 3, 4), 4)
) %>%
chemdose_chloramine_df(
output_water = "final",
cl2 = cl2dose,
use_free_cl_slot = TRUE,
use_tot_nh3_slot = TRUE,
pluck_cols = TRUE
)
# }
Run the code above in your browser using DataLab