library(network)
m <- matrix(rbinom(1000,1,.4),15,5)
diag(m) <- 0
g <- network(m, directed=FALSE)
summary(g)
plot(g)