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