Code
library(dagitty)
dag <- dagitty('dag {
Treatment -> Outcome
Confounder -> Treatment
Confounder -> Outcome
Treatment -> PostTreatment -> Outcome
}')
plot(dag)Plot coordinates for graph not supplied! Generating coordinates, see ?coordinates for how to set your own.
