library(magrittr)
# Create a random, directed graph with 18 nodes
# and 22 edges
random_graph <-
create_random_graph(
n = 18,
m = 22,
directed = TRUE,
fully_connected = TRUE,
set_seed = 20) %>%
set_global_graph_attrs(
'graph', 'layout', 'sfdp') %>%
set_global_graph_attrs(
'graph', 'overlap', 'false')
# Find all common neighbor nodes for nodes `5`
# and `7` (there are no common neighbors)
random_graph %>%
get_common_nbrs(c(5, 7))
#> [1] NA
# Find all neighbor nodes for nodes `9` and `17`
random_graph %>%
get_common_nbrs(c(9, 17))
#> [1] "1"
Run the code above in your browser using DataLab