suppressMessages(library('igraph'))
suppressMessages(library('causaleffect'))
s <- graph.formula(W -+ X,X -+ W,W -+ Y,Y -+ W,W -+ R,R -+ X,X -+ Y, simplify=FALSE)
s <- set_edge_attr(s, 'description', 1:4, 'U')

causal.effect('Y', c("X"), G = s)

quit()
