程序代写代做代考 —


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) ```