—
title: “Untitled”
output: pdf_document
—
“`{r setup, include=FALSE}
library(igraph)
m <- matrix(c(0,1,1,1,0,1,0,1,0,0,1,1,0,0,0,1,0,0,0,1,0,0,0,1,0), nrow = 5, ncol = 5, byrow = FALSE)
g <- graph_from_adjacency_matrix(m, mode = c("undirected"))
plot(g)
m2 <- matrix(c(0,1,0,0,1,0,0,0,0,0,0,1,0,0,0,1,
1,0,1,0,0,1,0,0,0,0,1,0,0,0,0,1,
0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,1,
0,0,1,0,0,0,1,1,0,0,0,0,0,0,1,0,
1,0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,
0,1,1,0,0,0,0,0,0,0,0,0,1,1,0,0,
0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,0,
0,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,1,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,0,1,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,
0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,
1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0),nrow = 16, ncol = 16, byrow = FALSE)
g2 <- graph_from_adjacency_matrix(m2, mode = c("undirected"))
plot(g2)
```