water <- define_water(ph = 8, toc = 2.5, uv254 = .05, doc = 1.5) %>%
gac_toc(media_size = "8x30", ebct = 20, model = "Zachman", bed_vol = 15000)
# \donttest{
example_df <- water_df %>%
define_water_df() %>%
dplyr::mutate(
model = "WTP",
media_size = "8x30",
ebct = 10,
bed_vol = rep(c(12000, 15000, 18000), 4)
) %>%
gac_toc_df()
example_df <- water_df %>%
define_water_df("raw") %>%
dplyr::mutate(
model = "WTP",
bed_vol = 15000
) %>%
gac_toc_df(input_water = "raw")
# }
Run the code above in your browser using DataLab