example_pb <- define_water(
ph = 7.5, temp = 25, alk = 93, cl = 240,
tot_po4 = 0, so4 = 150, tds = 200
) %>%
dissolve_pb()
example_pb <- define_water(
ph = 7.5, temp = 25, alk = 93, cl = 240,
tot_po4 = 0, so4 = 150, tds = 200
) %>%
dissolve_pb(pyromorphite = "Xie")
example_df <- water_df %>%
define_water_df() %>%
dissolve_pb_df(output_col_result = "dissolved_lead", pyromorphite = "Xie")
Run the code above in your browser using DataLab