library(tidywater)
water <- define_water(ph = 7, temp = 25, alk = 100, toc = 5.0, doc = 4.0, uv254 = .1) %>%
biofilter_toc(ebct = 10, ozonated = FALSE)
library(purrr)
library(tidyr)
library(dplyr)
example_df <- water_df %>%
define_water_chain() %>%
biofilter_toc_chain(input_water = "defined_water", ebct = 10, ozonated = FALSE)
example_df <- water_df %>%
define_water_chain() %>%
mutate(
BiofEBCT = c(10, 10, 10, 15, 15, 15, 20, 20, 20, 25, 25, 25),
ozonated = c(rep(TRUE, 6), rep(FALSE, 6))
) %>%
biofilter_toc_chain(input_water = "defined_water", ebct = BiofEBCT)
# \donttest{
# Initialize parallel processing
library(furrr)
# plan(multisession)
example_df <- water_df %>%
define_water_chain() %>%
biofilter_toc_chain(input_water = "defined_water", ebct = c(10, 20))
# Optional: explicitly close multisession processing
# plan(sequential)
# }
Run the code above in your browser using DataLab