b <- initialize_graph(igraph::graph_from_literal(X -+ Z, Z -+ Y, X -+ Y, Ur -+ Z, Ur -+ Y))
medmod <- create_response_function(b)
find_all_paths(medmod, "X", "Y")
igraph::all_simple_paths(b, "X", "Y", mode = "out")
Run the code above in your browser using DataLab