## Complementer of a ring
g <- graph.ring(10)
graph.complementer(g)
## A graph and its complementer give together the full graph
g <- graph.ring(10)
gc <- graph.complementer(g)
gu <- graph.union(g, gc)
gu
graph.isomorphic(gu, graph.full(vcount(g)))
Run the code above in your browser using DataCamp Workspace