# NOT RUN {
# Create a cycle graph
graph <-
create_graph() %>%
add_cycle(n = 5) %>%
add_cycle(n = 5)
# Get a count of weakly-connected
# components in the graph
graph %>% count_w_connected_cmpts()
# }
Run the code above in your browser using DataLab