# All possible degree sequences for
# a network with 4 nodes and 5 edges
D <- nsumk(4, 10)
# Remove degree sequences with isolated nodes
D <- D[-which(rowSums(D == 0) > 0), ]
# All edge multiplicity sequences/multigraph with 2 nodes and 4 edges
r <- (2*3)/2 # vertex pair sites (or length of edge multiplicity sequences)
mg <- nsumk(r,4) # number of rows give number of possible multigraphs
Run the code above in your browser using DataLab