example_dbp <- define_water(8, 20, 66, toc = 4, uv254 = .2, br = 50) %>%
ozonate_bromate(dose = 1.5, time = 5, model = "Ozekin")
example_dbp <- define_water(7.5, 20, 66, toc = 4, uv254 = .2, br = 50) %>%
ozonate_bromate(dose = 3, time = 15, model = "Sohn")
example_df <- water_df %>%
dplyr::slice_head(n = 6) %>%
dplyr::mutate(br = 50) %>%
define_water_df() %>%
dplyr::mutate(
dose = c(seq(.5, 3, .5)),
OzoneTime = 30
) %>%
ozonate_bromate_df(time = OzoneTime, model = "Sohn", pluck_cols = TRUE)
Run the code above in your browser using DataLab