# NOT RUN {
dag <- dagify(y ~ x + z2 + w2 + w1,
x ~ z1 + w1,
z1 ~ w1 + v,
z2 ~ w2 + v,
w1 ~~ w2)
ggdag_classic(dag)
ggdag_classic(dag) + theme_dag_blank()
ggdag_classic(dagitty::randomDAG(5, .5))
# }
Run the code above in your browser using DataCamp Workspace