cg <- caugi(
A %-->% B + C,
B %-->% D,
C %-->% D,
class = "DAG"
)
# Get GraphML string
graphml <- to_graphml(cg)
cat(graphml@content)
# Write to file
if (FALSE) {
write_graphml(cg, "graph.graphml")
}
Run the code above in your browser using DataLab