# NOT RUN {
# A BA graph is quite centralized
g <- sample_pa(1000, m = 4)
centr_degree(g, normalized = FALSE)$centralization %>%
`/`(centr_degree_tmax(g))
centr_degree(g, normalized = TRUE)$centralization
# }
Run the code above in your browser using DataLab