# Create a random graph using the
# `add_gnm_graph()` function and
# get the nodes in the graph periphery
create_graph() %>%
add_gnm_graph(
n = 28,
m = 35,
set_seed = 23) %>%
get_periphery()
Run the code above in your browser using DataLab