# NOT RUN {
A <- rbind(c(0,1,0,0,1),
c(0,0,0,1,1),
c(1,0,0,1,0),
c(1,0,0,0,1),
c(0,0,0,1,0))
sum(A) # 9
getGraph(A) ## a graph with 5 nodes and 'sum(A)' edges
# }
Run the code above in your browser using DataLab