adj <- matrix(0, 6, 6)
adj[cbind(c(1, 1, 2, 4, 4, 5, 3), c(2, 3, 3, 5, 6, 6, 4))] <- 1
adj <- adj + t(adj)
rownames(adj) <- colnames(adj) <- LETTERS[1:6]
centrality_length_scaled_betweenness(adj)
centrality_delta_betweenness(adj, betweenness_delta = 2)
centrality_ego_betweenness(adj)
centrality_delta_closeness(adj, closeness_delta = 2)
Run the code above in your browser using DataLab