library(igraph)
g <- threshold_graph(20, 0.1)
P <- neighborhood_inclusion(g)
d <- dominance_graph(P)
if (FALSE) {
plot(d)
}
# to reduce overplotting use transitive reduction
P <- transitive_reduction(P)
d <- dominance_graph(P)
if (FALSE) {
plot(d)
}
Run the code above in your browser using DataLab