library(purrr)
library(furrr)
library(tidyr)
library(dplyr)
example_df <- water_df %>%
mutate(br = 50) %>%
define_water_chain("raw") %>%
ozonate_bromate_once(input_water = "raw", dose = 3, time = 8)
example_df <- water_df %>%
mutate(br = 50) %>%
define_water_chain("raw") %>%
mutate(
dose = c(seq(.5, 3, .5), seq(.5, 3, .5)),
time = 10
) %>%
ozonate_bromate_once(input_water = "raw")
example_df <- water_df %>%
mutate(br = 80) %>%
define_water_chain("raw") %>%
mutate(time = 8) %>%
ozonate_bromate_once(
input_water = "raw", dose = 6, model = "Sohn"
)
# \donttest{
# Initialize parallel processing
plan(multisession, workers = 2) # Remove the workers argument to use all available compute
example_df <- water_df %>%
mutate(br = 50) %>%
define_water_chain() %>%
ozonate_bromate_once(input_water = "defined_water", dose = 4, time = 8)
# Optional: explicitly close multisession processing
plan(sequential)
# }
Run the code above in your browser using DataLab