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")
Run the code above in your browser using DataLab