# NOT RUN {
# Create a random graph
graph <-
create_random_graph(
n = 10, m = 22,
set_seed = 23)
# Get the authority centrality scores
# for all nodes in the graph
get_authority_centrality(graph)
#> id authority_centrality
#> 1 1 0.0000000
#> 2 2 0.0000000
#> 3 3 0.3237777
#> 4 4 0.0000000
#> 5 5 0.8083310
#> 6 6 0.8593282
#> 7 7 0.7895083
#> 8 8 0.4482946
#> 9 9 0.8023324
#> 10 10 1.0000000
# }
Run the code above in your browser using DataLab