# 1. Compare the SSRI and placebo arms of the depression_bdi study
# against the wait list control:
fit <- lm(bdi_post ~ condition, data = depression_bdi)
ci_dunnett(fit, control = "wait_list")
# 2. One-sided: a treatment that works pulls the posttest BDI down,
# so the directional alternative is "less":
ci_dunnett(fit, control = "wait_list", alternative = "less")
Run the code above in your browser using DataLab