data(fivenets)
# bernoulli graph
fit <- ergmito(fivenets ~ edges)
# all ties have the same likelihood
# which is roughly equal to:
# mean(nedges(fivenets)/(nvertex(fivenets)*(nvertex(fivenets) - 1)))
predict(fit)
# If we take into account vertex attributes, now the story is different!
fit <- ergmito(fivenets ~ edges + nodematch("female"))
# Not all ties have the same likelihood, since it depends on homophily!
predict(fit)
Run the code above in your browser using DataLab