water_defined <- define_water(7, 20, 50, 100, 80, 10, 10, 10, 10) %>%
balance_ions()
water_defined <- define_water(7, 20, 50, tot_hard = 150) %>%
balance_ions(anion = "so4")
example_df <- water_df %>%
define_water_chain() %>%
balance_ions_chain(anion = "so4", cation = "ca")
# \donttest{
# Initialize parallel processing
library(furrr)
# plan(multisession)
example_df <- water_df %>%
define_water_chain() %>%
balance_ions_chain()
# Optional: explicitly close multisession processing
# plan(sequential)
# }
Run the code above in your browser using DataLab