# Data simulation
set.seed(1)
simul1 <- SimulateGraphical(pk = 30)
set.seed(2)
simul2 <- SimulateGraphical(pk = 30)
# Edge-wise comparison of the two graphs
mygraph <- GraphComparison(
graph1 = simul1,
graph2 = simul2
)
plot(mygraph, layout = igraph::layout_with_kk(mygraph))
Run the code above in your browser using DataLab