# NOT RUN {
# Create a new graph and add 2 prisms
graph <-
create_graph() %>%
add_prism(3, "prism", "a") %>%
add_prism(3, "prism", "b")
# Get node information from this graph
node_info(graph)
#> id type label deg indeg outdeg loops
#> 1 1 prism a 3 1 2 0
#> 2 2 prism a 3 1 2 0
#> 3 3 prism a 3 1 2 0
#> 4 4 prism a 3 2 1 0
#> 5 5 prism a 3 2 1 0
#> 6 6 prism a 3 2 1 0
#> 7 7 prism b 3 1 2 0
#> 8 8 prism b 3 1 2 0
#> 9 9 prism b 3 1 2 0
#> 10 10 prism b 3 2 1 0
#> 11 11 prism b 3 2 1 0
#> 12 12 prism b 3 2 1 0
# }
Run the code above in your browser using DataLab