# NOT RUN {
# Create an undirected PA
# graph with 100 nodes, adding
# 2 edges at every time step
pa_graph <-
create_graph(
directed = FALSE) %>%
add_pa_graph(
n = 100,
m = 1)
# Get a count of nodes
pa_graph %>% node_count()
#> [1] 100
# Get a count of edges
pa_graph %>% edge_count()
#> [1] 99
# }
Run the code above in your browser using DataLab