water <- define_water(toc = 2.5, uv254 = .05, doc = 1.5) %>%
pac_toc(dose = 15, time = 50, type = "wood")
library(dplyr)
example_df <- water_df %>%
define_water_chain("raw") %>%
mutate(dose = seq(11, 22, 1), PACTime = 30) %>%
pac_toc_chain(input_water = "raw", time = PACTime, type = "wood")
# \donttest{
# Initialize parallel processing
library(furrr)
# plan(multisession)
example_df <- water_df %>%
define_water_chain("raw") %>%
pac_toc_chain(input_water = "raw", dose = 4, time = 8)
# Optional: explicitly close multisession processing
# plan(sequential)
# }
Run the code above in your browser using DataLab