# Create an adjacency matrix
adj_matrix <-
sample(
0:1, 100,
replace = TRUE,
prob = c(0.9,0.1)
) %>%
matrix(ncol = 10)
# Create a graph from the adjacency matrix
graph <- from_adj_matrix(adj_matrix)
Run the code above in your browser using DataLab