# Create a random graph
graph <-
create_random_graph(
30, 50, set_seed = 1)
# Get the articulation points in the graph (i.e.,
# those nodes that if any were to be removed, the
# graph would become disconnected)
get_articulation_points(graph)
#> [1] "8" "22" "24"
Run the code above in your browser using DataLab