cg <- caugi(
A %-->% B + C,
B %-->% D,
C %-->% D,
class = "DAG"
)
if (FALSE) {
# Write to file
write_dot(cg, "graph.dot")
# With custom attributes
write_dot(
cg,
"graph.dot",
graph_attrs = list(rankdir = "LR")
)
}
Run the code above in your browser using DataLab