powered by
graph
pc()
skeleton()
fci()
getGraph(x)
"graph"
fci
A <- rbind(c(0,1,0,0,1), c(0,0,0,1,1), c(1,0,0,1,0), c(1,0,0,0,1), c(0,0,0,1,0)) sum(A) # 9 getGraph(A) ## a graph with 5 nodes and 'sum(A)' edges
Run the code above in your browser using DataLab