# NOT RUN {
# Create a random, directed graph with 18 nodes
# and 22 edges
graph <-
create_random_graph(
n = 18, m = 22,
set_seed = 23)
# Get degree histogram data for the
# `random_graph` (reporting on total degree)
graph %>%
get_degree_histogram(mode = "total")
#> degree total_degree_hist
#> 1 0 1
#> 2 1 4
#> 3 2 4
#> 4 3 4
#> 5 4 5
# }
Run the code above in your browser using DataLab