# NOT RUN {
mex_concor <- blockmodel_concor(mpn_elite_mex)
mex_concor
plot(mex_concor)
usa_concor <- blockmodel_concor(mpn_elite_usa_advice)
usa_concor
plot(usa_concor)
summarise_statistics(node_degree(mpn_elite_mex),
cutree(cluster_structural_equivalence(mpn_elite_mex), 3))
summarise_statistics(node_triad_census(mpn_elite_mex),
cutree(cluster_structural_equivalence(mpn_elite_mex), 3))
# }
Run the code above in your browser using DataLab