# NOT RUN {
# Create a directed graph with 5 nodes
graph <-
create_graph() %>%
add_path(5)
# Find all common neighbor nodes for nodes
# `1` and `2` (there are no common neighbors)
graph %>% get_common_nbrs(c(1, 2))
#> [1] NA
# Find all common neighbor nodes for nodes
# `1` and `3`
graph %>% get_common_nbrs(c(1, 3))
#> [1] 2
# }
Run the code above in your browser using DataLab