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_df() %>%
balance_ions_df(anion = "so4", cation = "ca")
Run the code above in your browser using DataLab