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")
library(dplyr)
example_df <- water_df %>%
slice_head(n = 6) %>%
mutate(br = 50) %>%
define_water_chain() %>%
mutate(
dose = c(seq(.5, 3, .5)),
OzoneTime = 30
) %>%
ozonate_bromate_chain(time = OzoneTime, model = "Sohn")
# \donttest{
# Initialize parallel processing
library(furrr)
# plan(multisession)
example_df <- water_df %>%
mutate(br = 50) %>%
define_water_chain() %>%
ozonate_bromate_chain(dose = 4, time = 8)
# Optional: explicitly close multisession processing
# plan(sequential)
# }
Run the code above in your browser using DataLab