cg1 <- caugi(A %-->% B, B %-->% C)
cg2 <- caugi(X %-->% Y, Y %-->% Z)
p1 <- plot(cg1, main = "Graph 1")
p2 <- plot(cg2, main = "Graph 2")
# Vertical composition
p1 / p2
# Mixed composition
(p1 + p2) / p1
Run the code above in your browser using DataLab