(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 44523, 938] NotebookOptionsPosition[ 42189, 886] NotebookOutlinePosition[ 42829, 909] CellTagsIndexPosition[ 42743, 904] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["", "DataResourceWhiteSection", CellFrameMargins->0, CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Retrieve the graph:", "Text"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellLabel->"In[2]:="], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Elisabeth", "James", "Anna", "John", "Dorothy", "Linda", "Michael", "Larry", "Carol", "Nancy", "David", "Nora", "Julia", "Ben", "Oscar", "Felicia", "Arlene", "Rudy"}, { Null, {{1, 3}, {2, 3}, {2, 6}, {2, 8}, {2, 10}, {3, 6}, {3, 8}, {3, 10}, {6, 8}, {6, 10}, {8, 10}, {4, 5}, {4, 11}, {5, 11}, {6, 7}, {6, 12}, {6, 13}, {7, 12}, {7, 13}, {12, 13}, {8, 9}, {8, 14}, {8, 15}, {9, 14}, {9, 15}, {14, 15}, {10, 11}, {10, 17}, {11, 17}, {15, 16}, {17, 18}}}, {ImageSize -> 225, VertexCoordinates -> {{0.49299999999999994`, 0.254}, { 0.7899999999999998, 0.522}, {0.7369999999999999, 0.32200000000000006`}, {0.08100000000000002, 0.954}, { 0.3549999999999999, 1.}, {0.9889999999999999, 0.332}, { 1.0939999999999999`, 0.}, {0.9168857917946751, 0.7230801022364712}, { 0.9550000000000001, 0.98}, {0.48762352289187855`, 0.5692955271901442}, {0.249, 0.756}, {1.23, 0.22600000000000003`}, { 0.853, 0.116}, {1.189, 0.7}, {1.222, 0.962}, {1.313, 1.15}, { 0.21300000000000002`, 0.52}, {0., 0.41000000000000003`}}, VertexLabels -> { Placed["Name", Above], "Felicia" -> Placed["Name", Before], "Michael" -> Placed["Name", After], "David" -> Placed["Name", After], "Julia" -> Placed["Name", Before], "Rudy" -> Placed["Name", {{0, -0.5}, {0, 1}}], "Anna" -> Placed["Name", Below], "James" -> Placed["Name", {{0.5, 1.5}, {1, 0}}], "Larry" -> Placed["Name", {{0, 0.5}, {1, 0}}], "Oscar" -> Placed["Name", {{0.5, 1.5}, {1, 0}}], "Linda" -> Placed["Name", {Above, After}], "Arlene" -> Placed["Name", Below], "Elisabeth" -> Placed["Name", Below], "Ben" -> Placed["Name", Below]}, VertexSize -> {{"Scaled", 0.02}}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[CompressedData[" 1:eJxTTMoPSmVmYGCQB2ImKI5Msb7v33vffsUxb/NOxwv2endV2BqnPre/8D34 8dLZV+zdHlaJrHN/ae+XJBBhueUBQfkb50AS7+2LMya+rbG/iiFvNNv2vkL4 W/sN594/rFB+jiH/WPepl6Xpffvzvg8dVps/wrAP3Xx0eXTz0eXRzVe5/bMu a88W+12ePEza7e/st8u1vg7ccc2eAQw+YMivkYkChth5+39XKl6qGb7AUI8u j+5eKX2Qgz5C1TMwoMujux9dHt396PLr3EEB+tleaUMRUOQMhvymue+XH/N+ bS/JEsanu2kvhnvQ9aPLo+tHd++EQ181Yvrf2cf0gxjvMeTR3Y8uvwBs4Wf7 NDB4hiEfBU6vn+3ByeXEOwz70PWjy6PrR3cPevyhy98DJSfn0/ZLCmy5ri9+ gKEeXR49PNHDD9296O5D55vGgVLiV6j6Txj2weLJDsgrsL1lDwAhCuOj "]]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[ 0.7]}], {DiskBox[{0.49299999999999994, 0.254}, 0.017454137045411326], InsetBox["\<\"Elisabeth\"\>", Offset[{0, -2}, {0.49299999999999994, 0.23654586295458868}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{0.7899999999999998, 0.522}, 0.017454137045411326], InsetBox["\<\"James\"\>", {0.7899999999999998, 0.5569082740908227}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.7369999999999999, 0.32200000000000006}, 0.017454137045411326], InsetBox["\<\"Anna\"\>", Offset[{0, -2}, {0.7369999999999999, 0.30454586295458874}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{0.08100000000000002, 0.954}, 0.017454137045411326], InsetBox["\<\"John\"\>", Offset[{0, 2}, {0.08100000000000002, 0.9714541370454113}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.3549999999999999, 1.}, 0.017454137045411326], InsetBox["\<\"Dorothy\"\>", Offset[{0, 2}, {0.3549999999999999, 1.0174541370454113}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9889999999999999, 0.332}, 0.017454137045411326], InsetBox["\<\"Linda\"\>", Offset[{2, 2}, {1.0064541370454112, 0.34945413704541134}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.0939999999999999, 0.}, 0.017454137045411326], InsetBox["\<\"Michael\"\>", Offset[{2, 0}, {1.1114541370454112, 0.}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{0.9168857917946751, 0.7230801022364712}, 0.017454137045411326], InsetBox["\<\"Larry\"\>", {0.8994316547492638, 0.7230801022364712}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.9550000000000001, 0.98}, 0.017454137045411326], InsetBox["\<\"Carol\"\>", Offset[{0, 2}, {0.9550000000000001, 0.9974541370454113}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.48762352289187855, 0.5692955271901442}, 0.017454137045411326], InsetBox["\<\"Nancy\"\>", Offset[{0, 2}, {0.48762352289187855, 0.5867496642355555}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.249, 0.756}, 0.017454137045411326], InsetBox["\<\"David\"\>", Offset[{2, 0}, {0.2664541370454113, 0.756}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{1.23, 0.22600000000000003}, 0.017454137045411326], InsetBox["\<\"Nora\"\>", Offset[{0, 2}, {1.23, 0.24345413704541136}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { DiskBox[{0.853, 0.116}, 0.017454137045411326], InsetBox["\<\"Julia\"\>", Offset[{-2, 0}, {0.8355458629545887, 0.116}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{1.189, 0.7}, 0.017454137045411326], InsetBox["\<\"Ben\"\>", Offset[{0, -2}, {1.189, 0.6825458629545886}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{1.222, 0.962}, 0.017454137045411326], InsetBox["\<\"Oscar\"\>", {1.222, 0.9969082740908226}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { DiskBox[{1.313, 1.15}, 0.017454137045411326], InsetBox["\<\"Felicia\"\>", Offset[{-2, 0}, {1.2955458629545886, 1.15}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { DiskBox[{0.21300000000000002, 0.52}, 0.017454137045411326], InsetBox["\<\"Arlene\"\>", Offset[{0, -2}, {0.21300000000000002, 0.5025458629545887}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { DiskBox[{0., 0.41000000000000003}, 0.017454137045411326], InsetBox["\<\"Rudy\"\>", {-0.017454137045411326, 0.3750917259091774}, ImageScaled[{0, 1}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->225]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.771857681877945*^9, 3.772889504128237*^9, 3.7728896829995327`*^9}, CellLabel->"Out[2]="] }, Open ]], Cell["Summary properties:", "Text", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ResourceData", "[", RowBox[{"\"\\"", ",", "All"}], "]"}], "[", "\"\\"", "]"}]], "Input", CellContext->Notebook, CellFrameLabels->None, CellLabel->"In[4]:="], Cell[BoxData[ TagBox[GridBox[{ {"\<\"Name\"\>", "\<\"Family Gathering Network\"\>"}, {"\<\"VertexCount\"\>", "18"}, {"\<\"EdgeCount\"\>", "31"}, {"\<\"Description\"\>", "\<\"A social network of close family ties among \ people at a family gathering\"\>"}, {"\<\"ByteCount\"\>", TemplateBox[{"16.964`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"]} }, AutoDelete->False, FrameStyle->RGBColor[0, 0, 0, 0.4], GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxBackground->{"Columns" -> { RGBColor[0.92, 0.92, 0.9]}, "Rows" -> {{ RGBColor[0.985, 0.98, 0.973]}}}, GridBoxDividers->{"Columns" -> { RGBColor[0, 0, 0, 0.4], RGBColor[0, 0, 0, 0.3], { RGBColor[0, 0, 0, 0.09]}, RGBColor[0, 0, 0, 0.4]}, "Rows" -> { RGBColor[0, 0, 0, 0.4], { RGBColor[0, 0, 0, 0.08]}, RGBColor[0, 0, 0, 0.4]}}, GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}}, GridBoxItemSize->{"Columns" -> {{All}}, "Rows" -> {{1.3}}}, GridBoxItemStyle->{"Columns" -> {{ Directive[FontWeight -> "Light", FontFamily -> "Helvetica Neue"]}}, "Rows" -> {{ Directive[FontWeight -> "Light", FontFamily -> "Helvetica Neue"]}}}, GridBoxSpacings->{"Columns" -> { Offset[1.4], { Offset[1.75]}, Offset[2.1]}, "Rows" -> { Offset[1.2], { Offset[0.48]}, Offset[0.4]}}], "Grid"]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.771857683224773*^9, 3.7728895057577877`*^9, {3.7728896840875053`*^9, 3.772889686738668*^9}}, CellLabel->"Out[4]="] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Basic Applications", "Subsection", CellFrame->False, ShowCellBracket->True, CellMargins->0, CellFrameMargins->{{66, 8}, {8, 8}}, CellFrameColor->GrayLevel[1], CellFrameLabelMargins->6, CellSize->{Automatic, Automatic}], Cell["Find the communities within the family:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.771860690954914*^9, 3.771860703610962*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"g", " ", "=", " ", RowBox[{"ResourceData", "[", "\"\\"", "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7718576887260303`*^9, 3.771857696431034*^9}}, CellLabel->"In[5]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"CommunityGraphPlot", "[", "g", "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.771857892658732*^9, 3.771857914922741*^9}, {3.771857954170867*^9, 3.77185800357603*^9}}, CellLabel->"In[6]:="], Cell[BoxData[ GraphicsBox[{{ {EdgeForm[GrayLevel[0.5]], FaceForm[None], FilledCurveBox[ BSplineCurve[{{0.011410747303729651`, 2.1181241949678076`}, {-0.12610668585348034`, 1.7528661278873927`}, {-0.12610668585348034`, 1.5006527561804321`}, { 0.1825738257908575, 0.34588138625210546`}, {0.4347871974978182, 0.34588138625210546`}, {0.8054662862675945, 0.8533469824501776}, { 0.8054662862675945, 1.1055603541571384`}, {0.69353437918637, 1.6570767040461598`}, {0.2636241190106903, 2.1181241949678076`}}, SplineClosed -> True]]}, {EdgeForm[GrayLevel[0.5]], FaceForm[None], FilledCurveBox[ BSplineCurve[{{3.7578479816300914`, 0.6313356299483319}, { 3.790903660723373, -0.000030246875276251917`}, { 4.6985115694210915`, -0.12610668585348034`}, { 4.950724941128053, -0.12610668585348034`}, {4.950724941128053, 0.12610668585348034`}, {4.534961452501331, 0.5597894260253085}, { 4.010061353337052, 0.8835490016552927}, {3.7578479816300914`, 0.8835490016552927}}, SplineClosed -> True]]}, {EdgeForm[GrayLevel[0.5]], FaceForm[None], FilledCurveBox[ BSplineCurve[{{2.2618053547603583`, 2.6083079846701844`}, { 2.1903352251186985`, 1.6290670829778577`}, {2.1903352251186985`, 1.3768537112708972`}, {2.442548596825659, 1.3768537112708972`}, { 2.8229276656044786`, 1.3839281617890742`}, {2.8229276656044786`, 1.6361415334960348`}, {2.721656759754772, 2.0400579513781545`}, { 2.514018726467319, 2.6083079846701844`}}, SplineClosed -> True]]}, {EdgeForm[GrayLevel[0.5]], FaceForm[None], FilledCurveBox[ BSplineCurve[{{3.813265464136402, 2.33805869962763}, {4.065478835843363, 2.33805869962763}, {4.57025304445615, 2.5706424851450653`}, { 4.57025304445615, 2.822855856852026}, {4.430534418823407, 3.0969426545341565`}, {4.142002815721462, 3.184553930178016}, { 3.8897894440145007`, 3.184553930178016}, {3.813265464136402, 2.5902720713345904`}}, SplineClosed -> True]]}}, { {Hue[0.6, 0.7, 0.5], Opacity[0.7], LineBox[{{2.3879120406138385`, 2.482201298816704}, {2.5955500739012916`, 1.9139512655246742`}}], LineBox[{{2.6968209797509983`, 1.5100348476425545`}, { 2.5955500739012916`, 1.9139512655246742`}}], BezierCurveBox[{{2.6968209797509983`, 1.5100348476425545`}, { 2.887046278653588, 1.8477779739431792`}, {3.2378215690990193`, 2.053240444455823}, {3.5885968595444506`, 2.2587029149684668`}, { 3.9393721499898824`, 2.46416538548111}}, SplineDegree->2], BezierCurveBox[{{2.6968209797509983`, 1.5100348476425545`}, { 2.8731919080270103`, 1.4210972065233547`}, {3.210112827845864, 1.199878909616174}, {3.5470337476647176`, 0.9786606127089931}, { 3.8839546674835717`, 0.7574423158018123}}, SplineDegree->2], LineBox[{{2.6968209797509983`, 1.5100348476425545`}, { 2.3164419109721788`, 1.5029603971243775`}}], BezierCurveBox[{{2.5955500739012916`, 1.9139512655246742`}, { 2.887046278653588, 1.8477779739431792`}, {3.2378215690990193`, 2.053240444455823}, {3.5885968595444506`, 2.2587029149684668`}, { 3.9393721499898824`, 2.46416538548111}}, SplineDegree->2], BezierCurveBox[{{2.5955500739012916`, 1.9139512655246742`}, { 2.8731919080270103`, 1.4210972065233547`}, {3.210112827845864, 1.199878909616174}, {3.5470337476647176`, 0.9786606127089931}, { 3.8839546674835717`, 0.7574423158018123}}, SplineDegree->2], LineBox[{{2.5955500739012916`, 1.9139512655246742`}, { 2.3164419109721788`, 1.5029603971243775`}}], LineBox[{{0.13751743315721, 1.992017509114327}, {0., 1.6267594420339124`}}], LineBox[{{0.13751743315721, 1.992017509114327}, {0.5674276933328897, 1.5309700181926795`}}], LineBox[{{0., 1.6267594420339124`}, {0.5674276933328897, 1.5309700181926795`}}], LineBox[{{3.9393721499898824`, 2.46416538548111}, {4.444146358602669, 2.6967491709985456`}}], BezierCurveBox[{{3.9393721499898824`, 2.46416538548111}, { 3.9255177793633047`, 2.037484618061286}, {3.911663408736727, 1.6108038506414613`}, {3.8978090381101493`, 1.1841230832216367`}, { 3.8839546674835717`, 0.7574423158018123}}, SplineDegree->2], BezierCurveBox[{{3.9393721499898824`, 2.46416538548111}, { 3.5885968595444506`, 2.2587029149684668`}, {3.2378215690990193`, 2.053240444455823}, {2.887046278653588, 1.8477779739431792`}, { 2.3164419109721788`, 1.5029603971243775`}}, SplineDegree->2], LineBox[{{3.9393721499898824`, 2.46416538548111}, {4.015896129867981, 3.058447244324536}}], LineBox[{{3.9393721499898824`, 2.46416538548111}, {4.304427732969926, 2.9708359686806762`}}], LineBox[{{4.444146358602669, 2.6967491709985456`}, {4.015896129867981, 3.058447244324536}}], LineBox[{{4.444146358602669, 2.6967491709985456`}, {4.304427732969926, 2.9708359686806762`}}], LineBox[{{3.8839546674835717`, 0.7574423158018123}, {3.9170103465768533`, 0.1260764389782041}}], BezierCurveBox[{{3.8839546674835717`, 0.7574423158018123}, { 3.5470337476647176`, 0.9786606127089931}, {3.210112827845864, 1.199878909616174}, {2.8731919080270103`, 1.4210972065233547`}, { 2.3164419109721788`, 1.5029603971243775`}}, SplineDegree->2], LineBox[{{3.8839546674835717`, 0.7574423158018123}, {4.1078634809695105`, 0.3422685664465219}}], LineBox[{{3.8839546674835717`, 0.7574423158018123}, {4.40885476664785, 0.4336827401718282}}], LineBox[{{3.9170103465768533`, 0.1260764389782041}, {4.1078634809695105`, 0.3422685664465219}}], LineBox[{{3.9170103465768533`, 0.1260764389782041}, {4.40885476664785, 0.4336827401718282}}], BezierCurveBox[{{2.3164419109721788`, 1.5029603971243775`}, { 1.8931798449475097`, 1.441023258655325}, {1.4699177789228404`, 1.379086120186273}, {1.046655712898171, 1.3171489817172208`}, { 0.5674276933328897, 1.5309700181926795`}}, SplineDegree->2], BezierCurveBox[{{2.3164419109721788`, 1.5029603971243775`}, { 1.8931798449475097`, 1.441023258655325}, {1.4699177789228404`, 1.379086120186273}, {1.046655712898171, 1.3171489817172208`}, { 0.6793596004141143, 0.979453668303658}}, SplineDegree->2], LineBox[{{0.5674276933328897, 1.5309700181926795`}, {0.6793596004141143, 0.979453668303658}}], LineBox[{{4.015896129867981, 3.058447244324536}, {4.304427732969926, 2.9708359686806762`}}], LineBox[{{4.1078634809695105`, 0.3422685664465219}, {4.40885476664785, 0.4336827401718282}}], LineBox[{{4.40885476664785, 0.4336827401718282}, {4.824618255274572, 0.}}], LineBox[{{0.6793596004141143, 0.979453668303658}, { 0.30868051164433785`, 0.4719880721055858}}]}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {Hue[0.8, 0.6, 0.8], DiskBox[{2.3879120406138385, 2.482201298816704}, 0.05712358607041841]}, InsetBox["\<\"Elisabeth\"\>", Offset[{0, -2}, {2.3879120406138385, 2.425077712746286}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{2.6968209797509983, 1.5100348476425545}, 0.05712358607041841]}, InsetBox["\<\"James\"\>", {2.6968209797509983, 1.6242820197833914}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{2.5955500739012916, 1.9139512655246742}, 0.05712358607041841]}, InsetBox["\<\"Anna\"\>", Offset[{0, -2}, {2.5955500739012916, 1.8568276794542558}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.13751743315721, 1.992017509114327}, 0.05712358607041841]}, InsetBox["\<\"John\"\>", Offset[{0, 2}, {0.13751743315721, 2.0491410951847455}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0., 1.6267594420339124}, 0.05712358607041841]}, InsetBox["\<\"Dorothy\"\>", Offset[{0, 2}, {0., 1.6838830281043309}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0.07, 1, 1], DiskBox[{3.9393721499898824, 2.46416538548111}, 0.05712358607041841]}, InsetBox["\<\"Linda\"\>", Offset[{2, 2}, {3.9964957360603006, 2.5212889715515283}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0.07, 1, 1], DiskBox[{4.444146358602669, 2.6967491709985456}, 0.05712358607041841]}, InsetBox["\<\"Michael\"\>", Offset[{2, 0}, {4.501269944673088, 2.6967491709985456}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{3.8839546674835717, 0.7574423158018123}, 0.05712358607041841]}, InsetBox["\<\"Larry\"\>", {3.8268310814131534, 0.7574423158018123}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{3.9170103465768533, 0.1260764389782041}, 0.05712358607041841]}, InsetBox["\<\"Carol\"\>", Offset[{0, 2}, {3.9170103465768533, 0.18320002504862248}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{2.3164419109721788, 1.5029603971243775}, 0.05712358607041841]}, InsetBox["\<\"Nancy\"\>", Offset[{0, 2}, {2.3164419109721788, 1.560083983194796}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.5674276933328897, 1.5309700181926795}, 0.05712358607041841]}, InsetBox["\<\"David\"\>", Offset[{2, 0}, {0.6245512794033081, 1.5309700181926795}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0.07, 1, 1], DiskBox[{4.015896129867981, 3.058447244324536}, 0.05712358607041841]}, InsetBox["\<\"Nora\"\>", Offset[{0, 2}, {4.015896129867981, 3.115570830394954}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0.07, 1, 1], DiskBox[{4.304427732969926, 2.9708359686806762}, 0.05712358607041841]}, InsetBox["\<\"Julia\"\>", Offset[{-2, 0}, {4.247304146899507, 2.9708359686806762}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{4.1078634809695105, 0.3422685664465219}, 0.05712358607041841]}, InsetBox["\<\"Ben\"\>", Offset[{0, -2}, {4.1078634809695105, 0.28514498037610353}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{4.40885476664785, 0.4336827401718282}, 0.05712358607041841]}, InsetBox["\<\"Oscar\"\>", {4.40885476664785, 0.547929912312665}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{4.824618255274572, 0.}, 0.05712358607041841]}, InsetBox["\<\"Felicia\"\>", Offset[{-2, 0}, {4.7674946692041535, 0.}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.6793596004141143, 0.979453668303658}, 0.05712358607041841]}, InsetBox["\<\"Arlene\"\>", Offset[{0, -2}, {0.6793596004141143, 0.9223300822332395}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.30868051164433785, 0.4719880721055858}, 0.05712358607041841]}, InsetBox["\<\"Rudy\"\>", {0.25155692557391945, 0.357740899964749}, ImageScaled[{0, 1}], BaseStyle->"Graphics"]}}}}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->300]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7718578956221457`*^9, 3.771857915326116*^9}, {3.771857968515847*^9, 3.7718579735066633`*^9}, 3.771858004096027*^9, 3.772815329434474*^9, 3.772816001961206*^9, 3.7728895099441566`*^9, 3.772889689117998*^9}, GraphicsBoxOptions->{ImageSize->300}, CellLabel->"Out[6]="] }, Open ]], Cell["Predict the split of the network in case of a conflict:", "Text", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.772371514603383*^9, 3.772371523163364*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"HighlightGraph", "[", RowBox[{"g", ",", RowBox[{ RowBox[{ RowBox[{"Subgraph", "[", RowBox[{"g", ",", "#"}], "]"}], "&"}], "/@", FormBox[ RowBox[{"FindGraphCommunities", "[", RowBox[{"g", ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], TraditionalForm]}], ",", RowBox[{"GraphHighlightStyle", "\[Rule]", "\"\\""}]}], "]"}]], "Input", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, {3.7728160420865927`*^9, 3.772816056507162*^9}}, CellLabel->"In[7]:="], Cell[BoxData[ GraphicsBox[ NamespaceBox["NetworkGraphics", DynamicModuleBox[{Typeset`graph = HoldComplete[ Graph[{ "Elisabeth", "James", "Anna", "John", "Dorothy", "Linda", "Michael", "Larry", "Carol", "Nancy", "David", "Nora", "Julia", "Ben", "Oscar", "Felicia", "Arlene", "Rudy"}, { Null, {{1, 3}, {2, 3}, {2, 6}, {2, 8}, {2, 10}, {3, 6}, {3, 8}, {3, 10}, {6, 8}, {6, 10}, {8, 10}, {4, 5}, {4, 11}, {5, 11}, {6, 7}, {6, 12}, {6, 13}, {7, 12}, {7, 13}, {12, 13}, {8, 9}, {8, 14}, {8, 15}, {9, 14}, {9, 15}, {14, 15}, {10, 11}, {10, 17}, {11, 17}, {15, 16}, {17, 18}}}, {GraphHighlight -> { UndirectedEdge["Carol", "Oscar"], UndirectedEdge["Anna", "Linda"], UndirectedEdge["Larry", "Nancy"], "Anna", "Larry", "Nancy", UndirectedEdge["Nora", "Julia"], UndirectedEdge["Linda", "Larry"], "Julia", UndirectedEdge["James", "Anna"], "Rudy", UndirectedEdge["Arlene", "Rudy"], UndirectedEdge["John", "Dorothy"], UndirectedEdge["James", "Larry"], UndirectedEdge["Elisabeth", "Anna"], UndirectedEdge["Linda", "Michael"], "Dorothy", UndirectedEdge["John", "David"], UndirectedEdge["David", "Arlene"], "Michael", "Elisabeth", UndirectedEdge["Anna", "Larry"], UndirectedEdge["Anna", "Nancy"], UndirectedEdge["Linda", "Nancy"], "Felicia", "Ben", UndirectedEdge["Dorothy", "David"], UndirectedEdge["Michael", "Julia"], "David", "James", "Nora", UndirectedEdge["Linda", "Nora"], UndirectedEdge["Ben", "Oscar"], "Oscar", UndirectedEdge["Michael", "Nora"], UndirectedEdge["James", "Nancy"], "Carol", "Arlene", UndirectedEdge["Carol", "Ben"], "John", UndirectedEdge["Linda", "Julia"], UndirectedEdge["Oscar", "Felicia"], UndirectedEdge["James", "Linda"], "Linda"}, GraphHighlightStyle -> { "DehighlightHide", "Elisabeth" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Michael", "Julia"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["John", "David"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, "Felicia" -> {VertexStyle -> Hue[0.8, 0.6, 0.8]}, "Dorothy" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "Ben" -> {VertexStyle -> Hue[0.8, 0.6, 0.8]}, "Larry" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Linda", "Nancy"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["John", "Dorothy"] -> { EdgeStyle -> Hue[0.14, 1, 0.9]}, "David" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["Carol", "Ben"] -> {EdgeStyle -> Hue[0.8, 0.6, 0.8]}, "Oscar" -> {VertexStyle -> Hue[0.8, 0.6, 0.8]}, UndirectedEdge["James", "Anna"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Linda", "Nora"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Linda", "Larry"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "James" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Anna", "Larry"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["James", "Linda"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["James", "Larry"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Rudy" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "Arlene" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, "Carol" -> {VertexStyle -> Hue[0.8, 0.6, 0.8]}, UndirectedEdge["Ben", "Oscar"] -> {EdgeStyle -> Hue[0.8, 0.6, 0.8]}, UndirectedEdge["Elisabeth", "Anna"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Michael" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Larry", "Nancy"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Oscar", "Felicia"] -> { EdgeStyle -> Hue[0.8, 0.6, 0.8]}, UndirectedEdge["James", "Nancy"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Michael", "Nora"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Nancy" -> {VertexStyle -> Hue[0, 1, 0.8]}, "Julia" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Linda", "Michael"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Nora", "Julia"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Linda" -> {VertexStyle -> Hue[0, 1, 0.8]}, "John" -> {VertexStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["Linda", "Julia"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Carol", "Oscar"] -> { EdgeStyle -> Hue[0.8, 0.6, 0.8]}, UndirectedEdge["Arlene", "Rudy"] -> {EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["Anna", "Nancy"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Anna", "Linda"] -> {EdgeStyle -> Hue[0, 1, 0.8]}, "Nora" -> {VertexStyle -> Hue[0, 1, 0.8]}, "Anna" -> {VertexStyle -> Hue[0, 1, 0.8]}, UndirectedEdge["Dorothy", "David"] -> { EdgeStyle -> Hue[0.14, 1, 0.9]}, UndirectedEdge["David", "Arlene"] -> { EdgeStyle -> Hue[0.14, 1, 0.9]}}, ImageSize -> 225, VertexCoordinates -> {{0.49299999999999994`, 0.254}, { 0.7899999999999998, 0.522}, {0.7369999999999999, 0.32200000000000006`}, {0.08100000000000002, 0.954}, { 0.3549999999999999, 1.}, {0.9889999999999999, 0.332}, { 1.0939999999999999`, 0.}, {0.9168857917946751, 0.7230801022364712}, { 0.9550000000000001, 0.98}, {0.48762352289187855`, 0.5692955271901442}, {0.249, 0.756}, {1.23, 0.22600000000000003`}, { 0.853, 0.116}, {1.189, 0.7}, {1.222, 0.962}, {1.313, 1.15}, { 0.21300000000000002`, 0.52}, {0., 0.41000000000000003`}}, VertexLabels -> { Placed["Name", Above], "Oscar" -> Placed["Name", {{0.5, 1.5}, {1, 0}}], "Rudy" -> Placed["Name", {{0, -0.5}, {0, 1}}], "Larry" -> Placed["Name", {{0, 0.5}, {1, 0}}], "Anna" -> Placed["Name", Below], "Julia" -> Placed["Name", Before], "Arlene" -> Placed["Name", Below], "David" -> Placed["Name", After], "Michael" -> Placed["Name", After], "Felicia" -> Placed["Name", Before], "James" -> Placed["Name", {{0.5, 1.5}, {1, 0}}], "Ben" -> Placed["Name", Below], "Elisabeth" -> Placed["Name", Below], "Linda" -> Placed["Name", {Above, After}]}, VertexSize -> {{"Scaled", 0.02}}}]]}, TagBox[GraphicsGroupBox[{ {Hue[0.6, 0.7, 0.5], Opacity[0.7], {Hue[0, 1, 0.8], LineBox[{{0.49299999999999994`, 0.254}, {0.7369999999999999, 0.32200000000000006`}}]}, {Hue[0, 1, 0.8], LineBox[{{0.7899999999999998, 0.522}, {0.7369999999999999, 0.32200000000000006`}}]}, {Hue[0, 1, 0.8], LineBox[{{0.7899999999999998, 0.522}, {0.9889999999999999, 0.332}}]}, {Hue[0, 1, 0.8], LineBox[{{0.7899999999999998, 0.522}, {0.9168857917946751, 0.7230801022364712}}]}, {Hue[0, 1, 0.8], LineBox[{{0.7899999999999998, 0.522}, {0.48762352289187855`, 0.5692955271901442}}]}, {Hue[0, 1, 0.8], LineBox[{{0.7369999999999999, 0.32200000000000006`}, { 0.9889999999999999, 0.332}}]}, {Hue[0, 1, 0.8], LineBox[{{0.7369999999999999, 0.32200000000000006`}, { 0.9168857917946751, 0.7230801022364712}}]}, {Hue[0, 1, 0.8], LineBox[{{0.7369999999999999, 0.32200000000000006`}, { 0.48762352289187855`, 0.5692955271901442}}]}, {Hue[0.14, 1, 0.9], LineBox[{{0.08100000000000002, 0.954}, {0.3549999999999999, 1.}}]}, {Hue[0.14, 1, 0.9], LineBox[{{0.08100000000000002, 0.954}, {0.249, 0.756}}]}, {Hue[0.14, 1, 0.9], LineBox[{{0.3549999999999999, 1.}, {0.249, 0.756}}]}, {Hue[0, 1, 0.8], LineBox[{{0.9889999999999999, 0.332}, {1.0939999999999999`, 0.}}]}, {Hue[0, 1, 0.8], LineBox[{{0.9889999999999999, 0.332}, {0.9168857917946751, 0.7230801022364712}}]}, {Hue[0, 1, 0.8], LineBox[{{0.9889999999999999, 0.332}, {0.48762352289187855`, 0.5692955271901442}}]}, {Hue[0, 1, 0.8], LineBox[{{0.9889999999999999, 0.332}, {1.23, 0.22600000000000003`}}]}, {Hue[0, 1, 0.8], LineBox[{{0.9889999999999999, 0.332}, {0.853, 0.116}}]}, {Hue[0, 1, 0.8], LineBox[{{1.0939999999999999`, 0.}, {1.23, 0.22600000000000003`}}]}, {Hue[0, 1, 0.8], LineBox[{{1.0939999999999999`, 0.}, {0.853, 0.116}}]}, { {Opacity[0], LineBox[{{0.9168857917946751, 0.7230801022364712}, { 0.9550000000000001, 0.98}}]}, InsetBox["\<\"\"\>", {0.9359428958973376, 0.8515400511182356}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, {Hue[0, 1, 0.8], LineBox[{{0.9168857917946751, 0.7230801022364712}, { 0.48762352289187855`, 0.5692955271901442}}]}, { {Opacity[0], LineBox[{{0.9168857917946751, 0.7230801022364712}, {1.189, 0.7}}]}, InsetBox["\<\"\"\>", {1.0529428958973375, 0.7115400511182356}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, { {Opacity[0], LineBox[{{0.9168857917946751, 0.7230801022364712}, {1.222, 0.962}}]}, InsetBox["\<\"\"\>", {1.0694428958973377, 0.8425400511182356}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, {Hue[0.8, 0.6, 0.8], LineBox[{{0.9550000000000001, 0.98}, {1.189, 0.7}}]}, {Hue[0.8, 0.6, 0.8], LineBox[{{0.9550000000000001, 0.98}, {1.222, 0.962}}]}, { {Opacity[0], LineBox[{{0.48762352289187855`, 0.5692955271901442}, {0.249, 0.756}}]}, InsetBox["\<\"\"\>", {0.36831176144593925, 0.662647763595072}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, { {Opacity[0], LineBox[{{0.48762352289187855`, 0.5692955271901442}, { 0.21300000000000002`, 0.52}}]}, InsetBox["\<\"\"\>", {0.3503117614459393, 0.5446477635950722}, ImageScaled[{0.5, 0.5}], BaseStyle->"Graphics"]}, {Hue[0.14, 1, 0.9], LineBox[{{0.249, 0.756}, {0.21300000000000002`, 0.52}}]}, {Hue[0, 1, 0.8], LineBox[{{1.23, 0.22600000000000003`}, {0.853, 0.116}}]}, {Hue[0.8, 0.6, 0.8], LineBox[{{1.189, 0.7}, {1.222, 0.962}}]}, {Hue[0.8, 0.6, 0.8], LineBox[{{1.222, 0.962}, {1.313, 1.15}}]}, {Hue[0.14, 1, 0.9], LineBox[{{0.21300000000000002`, 0.52}, {0., 0.41000000000000003`}}]}}, {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[0.7]}], { {Hue[0, 1, 0.8], DiskBox[{0.49299999999999994, 0.254}, 0.017454137045411326]}, InsetBox["\<\"Elisabeth\"\>", Offset[{0, -2}, {0.49299999999999994, 0.23654586295458868}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.7899999999999998, 0.522}, 0.017454137045411326]}, InsetBox["\<\"James\"\>", {0.7899999999999998, 0.5569082740908227}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.7369999999999999, 0.32200000000000006}, 0.017454137045411326]}, InsetBox["\<\"Anna\"\>", Offset[{0, -2}, {0.7369999999999999, 0.30454586295458874}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.08100000000000002, 0.954}, 0.017454137045411326]}, InsetBox["\<\"John\"\>", Offset[{0, 2}, {0.08100000000000002, 0.9714541370454113}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.3549999999999999, 1.}, 0.017454137045411326]}, InsetBox["\<\"Dorothy\"\>", Offset[{0, 2}, {0.3549999999999999, 1.0174541370454113}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.9889999999999999, 0.332}, 0.017454137045411326]}, InsetBox["\<\"Linda\"\>", Offset[{2, 2}, {1.0064541370454112, 0.34945413704541134}], ImageScaled[{0, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{1.0939999999999999, 0.}, 0.017454137045411326]}, InsetBox["\<\"Michael\"\>", Offset[{2, 0}, {1.1114541370454112, 0.}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.9168857917946751, 0.7230801022364712}, 0.017454137045411326]}, InsetBox["\<\"Larry\"\>", {0.8994316547492638, 0.7230801022364712}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{0.9550000000000001, 0.98}, 0.017454137045411326]}, InsetBox["\<\"Carol\"\>", Offset[{0, 2}, {0.9550000000000001, 0.9974541370454113}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.48762352289187855, 0.5692955271901442}, 0.017454137045411326]}, InsetBox["\<\"Nancy\"\>", Offset[{0, 2}, {0.48762352289187855, 0.5867496642355555}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.249, 0.756}, 0.017454137045411326]}, InsetBox["\<\"David\"\>", Offset[{2, 0}, {0.2664541370454113, 0.756}], ImageScaled[{0, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{1.23, 0.22600000000000003}, 0.017454137045411326]}, InsetBox["\<\"Nora\"\>", Offset[{0, 2}, {1.23, 0.24345413704541136}], ImageScaled[{0.5, 0}], BaseStyle->"Graphics"]}, { {Hue[0, 1, 0.8], DiskBox[{0.853, 0.116}, 0.017454137045411326]}, InsetBox["\<\"Julia\"\>", Offset[{-2, 0}, {0.8355458629545887, 0.116}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{1.189, 0.7}, 0.017454137045411326]}, InsetBox["\<\"Ben\"\>", Offset[{0, -2}, {1.189, 0.6825458629545886}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{1.222, 0.962}, 0.017454137045411326]}, InsetBox["\<\"Oscar\"\>", {1.222, 0.9969082740908226}, ImageScaled[{1, 0}], BaseStyle->"Graphics"]}, { {Hue[0.8, 0.6, 0.8], DiskBox[{1.313, 1.15}, 0.017454137045411326]}, InsetBox["\<\"Felicia\"\>", Offset[{-2, 0}, {1.2955458629545886, 1.15}], ImageScaled[{1, 0.5}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0.21300000000000002, 0.52}, 0.017454137045411326]}, InsetBox["\<\"Arlene\"\>", Offset[{0, -2}, {0.21300000000000002, 0.5025458629545887}], ImageScaled[{0.5, 1}], BaseStyle->"Graphics"]}, { {Hue[0.14, 1, 0.9], DiskBox[{0., 0.41000000000000003}, 0.017454137045411326]}, InsetBox["\<\"Rudy\"\>", {-0.017454137045411326, 0.3750917259091774}, ImageScaled[{0, 1}], BaseStyle->"Graphics"]}}}], MouseAppearanceTag["NetworkGraphics"]], AllowKernelInitialization->False]], DefaultBaseStyle->{ "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]}, FormatType->TraditionalForm, FrameTicks->None, ImageSize->225]], "Output", CellChangeTimes->{{3.696377005707614*^9, 3.69637702247129*^9}, { 3.696377225845625*^9, 3.696377236186659*^9}, 3.696377278504891*^9, { 3.696377319054945*^9, 3.6963773247475147`*^9}, 3.6963774601870575`*^9, { 3.696377490692107*^9, 3.696377510279066*^9}, 3.772371486388711*^9, { 3.772815994869699*^9, 3.772816003180601*^9}, 3.772816058012609*^9, 3.772889511955529*^9, 3.7728897050638742`*^9}, CellLabel->"Out[7]="] }, Open ]] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, DockedCells->{}, FrontEndVersion->"12.0 for Mac OS X x86 (64-bit) (April 8, 2019)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "DataResourceDefinitionStyles.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DataResourceExampleArea"->{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"36f782ab-4409-49c5-9ba1-ee673452e572", CellTags->"DataResourceExampleArea"]} } *) (*CellTagsIndex CellTagsIndex->{ {"DataResourceExampleArea", 42568, 898} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 96, 2, 70, "DataResourceWhiteSection",ExpressionUUID->"36f782ab-4409-49c5-9ba1-ee673452e572", CellTags->"DataResourceExampleArea"], Cell[CellGroupData[{ Cell[701, 28, 227, 7, 70, "Subsection",ExpressionUUID->"a3f6fd0f-9125-4b6b-820f-69a19f361fdf"], Cell[931, 37, 35, 0, 70, "Text",ExpressionUUID->"a14995b2-4d00-43a7-8d01-e7a4179ef297"], Cell[CellGroupData[{ Cell[991, 41, 170, 5, 70, "Input",ExpressionUUID->"b33305e1-c92d-45ae-8ba1-2314f88a7fc5"], Cell[1164, 48, 7403, 140, 70, "Output",ExpressionUUID->"3ad08934-4e11-4d45-9d50-826978f0e349"] }, Open ]], Cell[8582, 191, 73, 1, 70, "Text",ExpressionUUID->"159fd4a3-926a-4119-a4a2-44f971b43f3c", CellGroupingRules->"NormalGrouping"], Cell[CellGroupData[{ Cell[8680, 196, 238, 7, 70, "Input",ExpressionUUID->"b4a6d272-d896-4804-be49-ea8c1e6efe60"], Cell[8921, 205, 1838, 44, 70, "Output",ExpressionUUID->"8c2ea05e-9fa2-4928-80d7-5a84a14e1bd9"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10808, 255, 231, 7, 70, "Subsection",ExpressionUUID->"d2981a13-58bd-445d-b4b3-0dfea0dcb0f0"], Cell[11042, 264, 368, 5, 70, "Text",ExpressionUUID->"7e65cf6b-58b6-4e31-a516-9f2e759a5675"], Cell[11413, 271, 489, 10, 70, "Input",ExpressionUUID->"85c04801-ff62-4dfd-8425-9b22b7a10128"], Cell[CellGroupData[{ Cell[11927, 285, 452, 7, 70, "Input",ExpressionUUID->"97266038-81ca-487b-ba4e-e60762466d0b"], Cell[12382, 294, 12353, 240, 70, "Output",ExpressionUUID->"72981458-e613-4a97-979e-e2a7a6f3b985"] }, Open ]], Cell[24750, 537, 384, 5, 70, "Text",ExpressionUUID->"182c0365-b789-4874-b666-e38fd034a8d7"], Cell[CellGroupData[{ Cell[25159, 546, 792, 19, 70, "Input",ExpressionUUID->"24ee9983-cad6-455d-8180-8c64ef618a1f"], Cell[25954, 567, 16195, 314, 70, "Output",ExpressionUUID->"255ff43e-ed90-4d0e-8415-025dea48c42d"] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)