Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["Dolphin Social Network"]
Out[]=
Summary properties:
In[]:=
ResourceData["Dolphin Social Network",All]["Summary"]
Out[]=
Name | Dolphin Social Network |
VertexCount | 62 |
EdgeCount | 159 |
Description | An undirected social network of frequent associations |
ByteCount |
Basic Applications
Basic Applications
Find the communities between the dolphins:
In[]:=
g=ResourceData["Dolphin Social Network"];
In[]:=
communities=FindGraphCommunities[g,Method"Hierarchical"]
Out[]=
{{CCL,Double,Fork,Grin,Hook,Kringel,Scabs,Shmuddel,SMN5,SN100,SN4,SN63,SN9,Stripes,Thumper,TR99,TSN103,Whitetip,Zap,Zipfel},{Beescratch,DN16,DN21,Feather,Gallatin,Jet,MN23,Mus,Notch,Number1,Quasi,Ripplefluke,SN89,SN90,TR82,Upbang,Wave,Web},{Cross,Five,Haecksel,Jonah,MN105,MN60,MN83,Patchback,Topless,Trigger,Vau},{Beak,Bumper,DN63,Fish,Knit,Oscar,PL,SN96,TR77},{TR120,TSN83},{TR88},{Zig}}
Predict the split of the network in the case of a conflict:
In[]:=
HighlightGraph[g,Subgraph[g,#]&/@communities,GraphHighlightStyle"DehighlightHide"]
Out[]=