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