water <- define_water(ph = 4, temp = 25, alk = 5) %>%
decarbonate_ph(co2_removed = .95)
example_df <- water_df %>%
define_water_df() %>%
decarbonate_ph_df(
input_water = "defined", output_water = "decarb",
co2_removed = .95, pluck_cols = TRUE
)
Run the code above in your browser using DataLab