powered by
dag2cpdag(dag)
udag2pdag
pdag2dag
p <- 10 # number of random variables s <- 0.4 # sparseness of the graph ## generate random data set.seed(42) g <- randomDAG(p,s) # generate a random DAG res <- dag2cpdag(g)
Run the code above in your browser using DataLab