# NOT RUN {
# Create a cycle graph
graph <-
create_graph() %>%
add_cycle(n = 5)
# Get a count of mutally-connected
# node pairs
count_mutual_node_pairs(graph)
#> [1] 0
# Create a full graph and then
# count the mutally-connected
# node pairs
create_graph() %>%
add_full_graph(n = 10) %>%
count_mutual_node_pairs()
#> [1] 45
# }
Run the code above in your browser using DataLab