data/EFnet.R

In mbojan/isnar: Introduction to Social Network Analysis with R

elist <- structure(c(1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 7, 7, 8, 8, 9, 9, 10, 10,
                     11, 11, 12, 13, 13, 14, 14, 15, 15, 16, 16, 17, 17, 18,
                     19, 19, 20, 20, 21, 21, 22, 22, 23, 23, 24, 25, 26, 27,
                     28, 29, 2, 7, 3, 8, 4, 9, 5, 10, 6, 11, 12, 8, 13, 9, 14,
                     10, 15, 11, 16, 12, 17, 18, 14, 19, 15, 20, 16, 21, 17,
                     22, 18, 23, 24, 20, 25, 21, 26, 22, 27, 23, 28, 24, 29,
                     30, 26, 27, 28, 29, 30), .Dim = c(49L, 2L))

x <- c(2, 2, 2, 2, 2, 2, 1, 1, 2, 2, 1, 2, 1, 1, 2, 2, 1, 2, 1, 1, 
1, 1, 2, 2, 2, 2, 2, 2, 2, 2)

nams <- paste(rep(LETTERS[1:5], each=6), rep(1:6, 5), sep="")

library(igraph)
EFnet <- igraph::graph.edgelist(elist, directed=FALSE)
igraph::V(EFnet)$type <- x
igraph::V(EFnet)$name <- nams
rm(x, elist, nams)