# Bridge node connecting two components
adj <- matrix(c(0,1,1,0,0, 1,0,1,0,0, 1,1,0,1,0, 0,0,1,0,1, 0,0,0,1,0), 5, 5)
network_cut_vertices(adj) # Node 3 is cut vertex
network_cut_vertices(adj, count_only = TRUE) # 1
Run the code above in your browser using DataLab