regulate_toc(50, 5, 2)
regulated <- water_df %>%
dplyr::select(toc_raw = toc, alk_raw = alk) %>%
regulate_toc_df(toc_finished = seq(0, 1.2, 0.1))
regulated <- water_df %>%
define_water_df() %>%
chemdose_ph_df(alum = 30, output_water = "dosed") %>%
chemdose_toc_df("dosed") %>%
pluck_water(c("coagulated", "defined"), c("toc", "alk")) %>%
dplyr::select(toc_finished = coagulated_toc, toc_raw = defined_toc, alk_raw = defined_alk) %>%
regulate_toc_df()
Run the code above in your browser using DataLab