Tag Info

New answers tagged

2

rg = RandomGraph[WattsStrogatzGraphDistribution[30, 0.3, 3]] gc = FindGraphCommunities[rg, Method -> "Hierarchical"] (* {{6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17}, {4, 18, 19, 20, 21, 22, 23, 24, 25, 26}, {1, 2, 3, 5, 27, 28, 29, 30}} *) CommunityGraphPlot[rg, gc] expdata = Join @@ MapIndexed[Thread[{#1, First@#2}] &, gc] (* {{6, ...



Top 50 recent answers are included