# NOT RUN {
# Create a cycle graph
graph <-
create_graph() %>%
add_cycle(n = 5)
# Determine the graph's minimum
# eccentricity
get_min_eccentricity(graph)
#> [1] 2
# Create a full graph and then
# get the minimum eccentricity
# value for that
create_graph() %>%
add_full_graph(n = 10) %>%
get_min_eccentricity()
#> [1] 1
# }
Run the code above in your browser using DataLab