# Generate a set of edge multiplicity sequences (random multigraphs) and
# its probability distribution using rsm_model() with degree sequence [4,4,6,6]
rsm <- rsm_model(deg.seq = c(4,4,6,6))
mg <- as.matrix(rsm$m.seq)
mg.p <- rsm$prob.dists[, 1]
# Generate edge assignment probabilities from which the second set of
# edge multiplicity sequences is generated from using the iea_model()
deg.f <- (4*5)/2 - 1
eap <- get_edge_assignment_probs(m = 10,
deg.seq = c(4,4,6,6), model = 'IEAS')
# Perform the test
test <- gof_stats(m = 10, dof = deg.f,
m.seq = mg, prob.mg = mg.p, eap)
Run the code above in your browser using DataLab