powered by
rm.arc(dag, arc)
dag$arc
add.arc
add.node
rm.node
dag1<-demo.dag1(); dag1$arc; dag1rma<-rm.arc(dag1, 2);
Run the code above in your browser using DataLab