Basic Examples
Basic Examples
Retrieve the graph:
In[]:=
ResourceData["Davis Southern Women Social Network"]
Out[]=
Summary properties:
In[]:=
ResourceData["Davis Southern Women Social Network",All]["Summary"]
Out[]=
Name | Davis Southern Women Social Network |
VertexCount | 32 |
EdgeCount | 89 |
Description | The network of a Southern women social club |
ByteCount |
Basic Applications
Basic Applications
Find the women that attended the most events:
In[]:=
g=ResourceData["Davis Southern Women Social Network"];
In[]:=
women=VertexList[g][[;;18]];
In[]:=
mostEvents=MaximalBy[women,VertexOutDegree[g,#]&]
Out[]=
{Evelyn Jefferson,Nora Fayette,Theresa Anderson}
Show the events that these women attended:
In[]:=
HighlightGraph[g,Table[Append[EdgeList[g,i_],i],{i,mostEvents}]]
Out[]=
Find the event that was attended by the most women:
In[]:=
events=VertexList[g][[19;;]];
In[]:=
bigEvent=MaximalBy[events,VertexInDegree[g,#]&]//First
Out[]=
Event 8