Dibuja un diagrama causal que represente la relación causal entre las variables X, Z and Y

library(dagitty)
graph <- dagitty( "dag {
  X -> Y
  Y -> Z
}")
plot(graph)