library(dplyr)
ozone_resid <- water_df %>%
mutate(br = 50) %>%
define_water_chain() %>%
solveresid_o3_once(dose = 2, time = 10)
ozone_resid <- water_df %>%
mutate(br = 50) %>%
define_water_chain() %>%
mutate(
dose = seq(1, 12, 1),
time = seq(2, 24, 2)
) %>%
solveresid_o3_once()
Run the code above in your browser using DataLab