data(faux.mesa.high)
summary(faux.mesa.high, print.adj = FALSE)
fmh.ego <- as.egor(faux.mesa.high)
# Same actor attributes
fmh.template <- template_network(fmh.ego, N=network.size(faux.mesa.high))
summary(fmh.template, print.adj = FALSE)
# Twice the actors, same distribution
fmh2.template <- template_network(fmh.ego, N=2*network.size(faux.mesa.high))
summary(fmh2.template, print.adj = FALSE)
Run the code above in your browser using DataLab