# NOT RUN {
dag <- matrix(data = c(0,0,0,
1,0,0,
1,1,0),nrow = 3,ncol = 3)
dist <- list(a="gaussian",b="gaussian",c="gaussian")
colnames(dag) <- rownames(dag) <- names(dist)
essentialGraph(dag.m = dag)
# }
Run the code above in your browser using DataLab