cg <- caugi(
A %-->% B + C,
B %-->% D,
C %-->% D,
class = "DAG"
)
# Get DOT string
dot <- to_dot(cg)
dot@content
# With custom attributes
dot <- to_dot(
cg,
graph_attrs = list(rankdir = "LR"),
node_attrs = list(shape = "box")
)
Run the code above in your browser using DataLab