# Create a cycle graph
graph <-
  create_graph() %>%
  add_cycle(n = 5)
# Get a count of automorphisms
graph %>%
  count_automorphisms()
# Create a full graph and then
# count the automorphisms
create_graph() %>%
  add_full_graph(n = 10) %>%
  count_automorphisms()
Run the code above in your browser using DataLab