Empirical analysis - Coupled Catastrophes - share on Github.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 10.4' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    628163,      15710]
NotebookOptionsPosition[    607802,      15037]
NotebookOutlinePosition[    608160,      15053]
CellTagsIndexPosition[    608117,      15050]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Coupled catastrophes: sudden shifts cascade and hop among interdependent \
systems\
\>", "Title",
 CellChangeTimes->{{3.6686115627618513`*^9, 3.668611579185033*^9}}],

Cell[CellGroupData[{

Cell["Charles D. Brummitt, George Barnett, Raissa M. \
D\[CloseCurlyQuote]Souza", "Chapter",
 CellChangeTimes->{{3.668611582705346*^9, 3.668611598459258*^9}}],

Cell[CellGroupData[{

Cell["About this document", "Section",
 CellChangeTimes->{{3.668611669534007*^9, 3.668611671573916*^9}}],

Cell["\<\
This document provides the code used to make the figures for the empirical \
data in the open access paper \
\>", "Text",
 CellChangeTimes->{{3.668611608340171*^9, 3.66861166053407*^9}, {
  3.668613745720118*^9, 3.668613755428829*^9}, {3.6686838572024117`*^9, 
  3.668683860752387*^9}}],

Cell[TextData[{
 "Brummitt, C. D., Barnett, G., & D\[CloseCurlyQuote]Souza, R. M. (2015). ",
 StyleBox["Coupled catastrophes: sudden shifts cascade and hop among \
interdependent systems",
  FontWeight->"Bold"],
 ". ",
 StyleBox["Journal of the Royal Society Interface",
  FontSlant->"Italic"],
 ", 12(112), 20150712. ",
 ButtonBox["http://doi.org/10.1098/rsif.2015.0712",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://doi.org/10.1098/rsif.2015.0712"], None},
  ButtonNote->"http://doi.org/10.1098/rsif.2015.0712"]
}], "Text",
 CellChangeTimes->{{3.668611630873197*^9, 3.66861164614281*^9}}],

Cell[CellGroupData[{

Cell["Contact information", "Subsection",
 CellChangeTimes->{{3.6686116793028173`*^9, 3.668611681893882*^9}}],

Cell[TextData[{
 "Charlie Brummitt: ",
 ButtonBox["c.brummitt@columbia.edu",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["mailto:c.brummitt@columbia.edu"], None},
  ButtonNote->"mailto:c.brummitt@columbia.edu"]
}], "Text",
 CellChangeTimes->{{3.668611665638721*^9, 3.6686117213550453`*^9}}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Facebook graph among countries involved in the Arab Spring", "Section",
 CellChangeTimes->{{3.668683830077209*^9, 3.6686838304684772`*^9}, {
  3.66868386818503*^9, 3.668683884319744*^9}}],

Cell[CellGroupData[{

Cell["Data", "Subsection",
 CellChangeTimes->{{3.6686841019463587`*^9, 3.668684102432086*^9}}],

Cell[CellGroupData[{

Cell["Facebook 2012 data", "Subsubsection",
 CellChangeTimes->{{3.66868619179561*^9, 3.668686197937648*^9}}],

Cell["We scraped data from the Facebook blog:", "Text",
 CellChangeTimes->{{3.668686339496911*^9, 3.6686863852435427`*^9}}],

Cell[TextData[{
 "\tNewman M. 2012 ",
 StyleBox["Interactive: mapping the world\[CloseCurlyQuote]s friendships",
  FontWeight->"Bold"],
 ". ",
 ButtonBox["http://www.facebookstories.com/ stories/1574/",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.facebookstories.com/ stories/1574/"], None},
  ButtonNote->"http://www.facebookstories.com/ stories/1574/"],
 " (accessed 17 March 2014)."
}], "Text",
 CellChangeTimes->{{3.668686387276204*^9, 3.6686863887158737`*^9}}],

Cell["Import the raw data:", "Text",
 CellChangeTimes->{{3.668686266242929*^9, 3.6686862686185627`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FacebookRawData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
       "\"\<Facebook_Friends_dirty.xlsx\>\""}], "}"}], "]"}], "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611333849297422*^9, 3.611333880767188*^9}, {
  3.6686865072396803`*^9, 3.668686508157213*^9}}],

Cell["List of all countries in the Facebook data:", "Text",
 CellChangeTimes->{{3.6686865288613367`*^9, 3.668686535756822*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"countries", "=", 
   RowBox[{"Rest", "[", 
    RowBox[{"FacebookRawData", "\[LeftDoubleBracket]", 
     RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True],

Cell["Convert this raw data to a list of directed edges:", "Text",
 CellChangeTimes->{{3.668686271114931*^9, 3.668686277002599*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FacebookRawEdgeList", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Property", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"First", "[", "#", "]"}], "\[DirectedEdge]", 
           RowBox[{"#", "\[LeftDoubleBracket]", 
            RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ",", 
          RowBox[{"EdgeWeight", "\[Rule]", 
           RowBox[{"#", "\[LeftDoubleBracket]", 
            RowBox[{"2", ",", "2"}], "\[RightDoubleBracket]"}]}]}], "]"}], 
        "&"}], "/@", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"First", "[", "#", "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"Length", "[", 
              RowBox[{"Last", "[", "#", "]"}], "]"}], "}"}]}], "]"}], ",", 
          RowBox[{"Last", "[", "#", "]"}]}], "}"}], "]"}]}], "&"}], ")"}], "/@",
     "\[IndentingNewLine]", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"First", "[", "#", "]"}], ",", 
         RowBox[{"Select", "[", 
          RowBox[{
           RowBox[{"Transpose", "[", 
            RowBox[{"{", 
             RowBox[{"countries", ",", 
              RowBox[{"Rest", "[", "#", "]"}]}], "}"}], "]"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"Last", "[", "#", "]"}], "\[NotEqual]", "\"\<\>\""}], 
            "&"}]}], "]"}]}], "}"}], "&"}], "/@", 
      RowBox[{"FacebookRawData", "\[LeftDoubleBracket]", 
       RowBox[{"1", ",", 
        RowBox[{"2", ";;", 
         RowBox[{"-", "1"}]}]}], "\[RightDoubleBracket]"}]}], ")"}]}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.61133474812041*^9, 3.611334844046793*^9}}],

Cell["\<\
Flatten the list of edges and reverse those edges so that the arrows indicate \
direction of influence (so that A \[DirectedEdge] B means that A is on B\
\[CloseCurlyQuote]s top-five list of countries to which it has the most \
cross-border friendships): \
\>", "Text",
 CellChangeTimes->{{3.668686402451612*^9, 3.6686864737411747`*^9}, {
  3.668687614240893*^9, 3.66868762196109*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FacebookRawEdgeListReversed", "=", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"FacebookRawEdgeList", ",", "1"}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Property", "[", 
       RowBox[{
        RowBox[{"x_", "\[DirectedEdge]", "y_"}], ",", 
        RowBox[{"EdgeWeight", "\[Rule]", "w_"}]}], "]"}], "->", 
      RowBox[{"Property", "[", 
       RowBox[{
        RowBox[{"y", "\[DirectedEdge]", "x"}], ",", 
        RowBox[{"EdgeWeight", "\[Rule]", "w"}]}], "]"}]}], "}"}]}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.612885665564355*^9, 3.612885700915373*^9}, {
  3.6128859751825666`*^9, 3.612885977404683*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["dates of protests", "Subsubsection",
 CellChangeTimes->{{3.668684114734438*^9, 3.6686841519497547`*^9}, {
   3.6686853532355213`*^9, 3.668685354409186*^9}, 3.668685854252679*^9}],

Cell[TextData[{
 "See ",
 ButtonBox["http://en. wikipedia.org/wiki/Arab_Spring#Summary _of _ \
conflicts_by _country",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://en. wikipedia.org/wiki/Arab_Spring#Summary_of_ \
conflicts_by_country"], None},
  ButtonNote->
   "http://en. wikipedia.org/wiki/Arab_Spring#Summary_of_ \
conflicts_by_country"],
 " (accessed May 14, 2014)."
}], "Text",
 CellChangeTimes->{{3.668684171540766*^9, 3.668684182461321*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"datesOfProtests", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
        ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
           "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "===",
            "None"}], ",", 
          RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
           ",", 
          RowBox[{"DateList", "[", 
           RowBox[{
           "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
           "]"}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
           "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "===",
            "None"}], ",", 
          RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
           ",", 
          RowBox[{"AbsoluteTime", "@", 
           RowBox[{"DateList", "[", 
            RowBox[{
            "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
            "]"}]}]}], "]"}]}], "}"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<Tunisia\>\"", ",", "\"\<18 December 2010\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Algeria\>\"", ",", "\"\<29 December 2010\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Jordan\>\"", ",", "\"\<14 January 2011\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Oman\>\"", ",", "\"\<17 January 2011\>\""}], "}"}], ",", 
       
       RowBox[{"{", 
        RowBox[{"\"\<Egypt\>\"", ",", "\"\<25 January 2011\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Yemen\>\"", ",", "\"\<27 January 2011\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Bahrain\>\"", ",", "\"\<14 February 2011\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Libya\>\"", ",", "\"\<17 February 2011\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Syria\>\"", ",", "\"\<11 March 2011\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Saudi Arabia\>\"", ",", "\"\<15 March 2011\>\""}], "}"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Albania\>\"", ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Iran\>\"", ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Qatar\>\"", ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<United Arab Emirates\>\"", ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Djibouti\>\"", ",", "\"\<28 January 2011\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Iraq\>\"", ",", "\"\<23 December 2012\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Israel\>\"", ",", "\"\<15 May 2011\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Kuwait\>\"", ",", "\"\<19 February 2011\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Mauritania\>\"", ",", "\"\<25 February 2011\>\""}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Morocco\>\"", ",", "\"\<20 February 2011\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", ",", "\"\<4 September 2012\>\""}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Somalia\>\"", ",", "\"\<28 January 2011\>\""}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Sudan\>\"", ",", "\"\<30 January 2011\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Lebanon\>\"", ",", "\"\<27 February 2011\>\""}], "}"}]}],
       "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datesOfProtestsRules", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], "\[Rule]", 
       RowBox[{"Part", "[", 
        RowBox[{"#", ",", "2"}], "]"}]}], "&"}], ")"}], "/@", 
    "datesOfProtests"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"datesOfProtestsAssociation", "=", 
   RowBox[{"Association", "[", "datesOfProtestsRules", "]"}]}], 
  ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611335617629999*^9, 3.611335687434569*^9}, {
   3.611335717897855*^9, 3.611335732696842*^9}, {3.6113357806870604`*^9, 
   3.6113357821829863`*^9}, {3.6113358348323603`*^9, 3.611336022616294*^9}, 
   3.611336058914494*^9, {3.6113361753678417`*^9, 3.611336179677698*^9}, {
   3.611338958229265*^9, 3.611338964630192*^9}, {3.612035816017919*^9, 
   3.6120358244910383`*^9}, {3.668686042381062*^9, 3.6686860426216497`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"countriesWithProtests", "=", 
   RowBox[{"Sort", "[", 
    RowBox[{"First", "/@", 
     RowBox[{"Select", "[", 
      RowBox[{"datesOfProtests", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Last", "[", "#", "]"}], "=!=", "None"}], "&"}]}], "]"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"countriesThatDidNotProtest", "=", 
   RowBox[{"Complement", "[", 
    RowBox[{"countries", ",", 
     RowBox[{"First", "/@", "datesOfProtests"}]}], "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.668684197824703*^9, 3.6686842004546423`*^9}, 
   3.668684496580759*^9, {3.668686164380478*^9, 3.668686165403132*^9}}],

Cell["\<\
Rescale these protest dates so that we can easily plot them on a horizontal \
axis:\
\>", "Text",
 CellChangeTimes->{{3.668684289310018*^9, 3.668684321477295*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rescaledProtestOutbreakDatesRules", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Rule", "@@", "#"}], ")"}], "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"First", "[", "#", "]"}], ",", 
         FractionBox[
          RowBox[{
           RowBox[{"N", "@", 
            RowBox[{"Last", "[", "#", "]"}]}], "-", 
           RowBox[{"Min", "[", 
            RowBox[{"Last", "/@", 
             RowBox[{"Select", "[", 
              RowBox[{"datesOfProtests", ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"Last", "[", "#", "]"}], "=!=", "None"}], "&"}]}], 
              "]"}]}], "]"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Max", "[", "#", "]"}], "-", 
              RowBox[{"Min", "[", "#", "]"}]}], ")"}], "&"}], "[", 
           RowBox[{"Last", "/@", 
            RowBox[{"Select", "[", 
             RowBox[{"datesOfProtests", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"Last", "[", "#", "]"}], "=!=", "None"}], "&"}]}], 
             "]"}]}], "]"}]]}], "}"}], "&"}], "/@", 
      RowBox[{"Select", "[", 
       RowBox[{"datesOfProtests", ",", 
        RowBox[{
         RowBox[{
          RowBox[{"Last", "[", "#", "]"}], "=!=", "None"}], "&"}]}], "]"}]}], 
     ")"}]}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611339140077496*^9, 3.61133925151866*^9}, {
   3.6686843371915503`*^9, 3.66868434125594*^9}, 3.668684506703024*^9, {
   3.66868794350049*^9, 3.668687948261945*^9}}],

Cell["\<\
We may consider also showing other countries that could have played a role in \
propagating influence to protest but did not have protests according to \
Wikipedia:\
\>", "Text",
 CellChangeTimes->{{3.668684348231801*^9, 3.6686843721970367`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"rescaledProtestOutbreakDatesRulesAll", "=", 
   RowBox[{"rescaledProtestOutbreakDatesRules", "~", "Join", "~", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Albania\>\"", "\[Rule]", "2."}], ",", 
      RowBox[{"\"\<Iran\>\"", "\[Rule]", "2."}], ",", 
      RowBox[{"\"\<United Arab Emirates\>\"", "\[Rule]", "2."}], ",", 
      RowBox[{"\"\<Qatar\>\"", "\[Rule]", "2."}]}], "}"}]}]}], ";"}]], "Input",\

 InitializationCell->True,
 CellChangeTimes->{{3.611339579471554*^9, 3.611339595930435*^9}, 
   3.611347070357983*^9, {3.612035646538579*^9, 3.6120356643921757`*^9}, {
   3.612036349174396*^9, 3.612036358630322*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"countriesInvolvedInArabSpring", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Albania\>\"", ",", "\"\<Algeria\>\"", ",", "\"\<Bahrain\>\"", ",", 
     "\"\<Djibouti\>\"", ",", "\"\<Egypt\>\"", ",", "\"\<Iran\>\"", ",", 
     "\"\<Iraq\>\"", ",", "\"\<Israel\>\"", ",", "\"\<Jordan\>\"", ",", 
     "\"\<Kuwait\>\"", ",", "\"\<Lebanon\>\"", ",", "\"\<Libya\>\"", ",", 
     "\"\<Mauritania\>\"", ",", "\"\<Morocco\>\"", ",", "\"\<Oman\>\"", ",", 
     "\"\<Palestinian Territory\>\"", ",", "\"\<Saudi Arabia\>\"", ",", 
     "\"\<Somalia\>\"", ",", "\"\<Sudan\>\"", ",", "\"\<Syria\>\"", ",", 
     "\"\<Tunisia\>\"", ",", "\"\<Yemen\>\"", ",", 
     "\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], "}"}]}], 
  ";"}]], "Input",
 InitializationCell->True]
}, Closed]],

Cell[CellGroupData[{

Cell["unemployment data from the World Bank", "Subsubsection",
 CellChangeTimes->{{3.609693952470006*^9, 3.6096939611809063`*^9}, {
  3.611336815651071*^9, 3.611336816882916*^9}}],

Cell[TextData[{
 "Source: The World Bank, 2010. ",
 ButtonBox["http://data.worldbank.org",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://data.worldbank.org"], None},
  ButtonNote->"http://data.worldbank.org"],
 ". (accessed 14 May 2014)."
}], "Text",
 CellChangeTimes->{{3.6686851550358543`*^9, 3.668685178617371*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"convertWorldBankCountryNamesToFacebookNames", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Syrian Arab Republic\>\"", "\[Rule]", "\"\<Syria\>\""}], 
     ",", 
     RowBox[{"\"\<Egypt, Arab Rep.\>\"", "->", "\"\<Egypt\>\""}], ",", 
     RowBox[{"\"\<Yemen, Rep.\>\"", "\[Rule]", "\"\<Yemen\>\""}], ",", 
     RowBox[{
     "\"\<West Bank and Gaza\>\"", "\[Rule]", 
      "\"\<Palestinian Territory\>\""}], ",", 
     RowBox[{"\"\<Iran, Islamic Rep.\>\"", "\[Rule]", "\"\<Iran\>\""}]}], 
    "}"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6113363120355167`*^9, 3.61133637191632*^9}, {
   3.611336968240851*^9, 3.6113369804770193`*^9}, 3.61133702758941*^9, {
   3.61133739371351*^9, 3.611337422006727*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"actualUnemploymentData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
       "\"\<sl.uem.totl.zs_Indicator_en_csv_v2\>\"", ",", 
       "\"\<sl.uem.totl.zs_Indicator_en_csv_v2.csv\>\""}], "}"}], "]"}], 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609694036833164*^9, 3.6096940805262337`*^9}, {
  3.668684648820941*^9, 3.668684649884479*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"unemploymentRatioIn2010", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       RowBox[{"#", "\[LeftDoubleBracket]", 
        RowBox[{"-", "5"}], "\[RightDoubleBracket]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"actualUnemploymentData", "\[LeftDoubleBracket]", 
     RowBox[{"4", ";;", 
      RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609694104472714*^9, 3.609694105772791*^9}, 
   3.60969422845219*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"unemploymentRatioIn2010ForCountriesInvolvedInArabSpringRules", "=", 
  
  RowBox[{
   RowBox[{
    RowBox[{"Rule", "@@", "#"}], "&"}], "/@", 
   RowBox[{"Select", "[", 
    RowBox[{
     RowBox[{
     "unemploymentRatioIn2010", "/.", 
      "convertWorldBankCountryNamesToFacebookNames"}], ",", " ", 
     RowBox[{
      RowBox[{"MemberQ", "[", 
       RowBox[{"countriesInvolvedInArabSpring", ",", 
        RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}]}], "]"}], 
   RowBox[{"(*", 
    RowBox[{"~", "Join", "~", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"\"\<Palestinian Territory\>\"", ",", "24."}], "}"}], "}"}]}], 
    "*)"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611336595923449*^9, 3.6113366259126263`*^9}, {
   3.611336755632152*^9, 3.6113367648450727`*^9}, 3.611337034547412*^9, 
   3.61133709524431*^9, 3.668684784914686*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Albania\"\>", "\[Rule]", "14.1999998092651`"}], ",", 
   RowBox[{"\<\"United Arab Emirates\"\>", "\[Rule]", "4"}], ",", 
   RowBox[{"\<\"Bahrain\"\>", "\[Rule]", "7.5`"}], ",", 
   RowBox[{"\<\"Djibouti\"\>", "\[Rule]", "\<\"\"\>"}], ",", 
   RowBox[{"\<\"Algeria\"\>", "\[Rule]", "10"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[Rule]", "9"}], ",", 
   RowBox[{"\<\"Iran\"\>", "\[Rule]", "13.5`"}], ",", 
   RowBox[{"\<\"Iraq\"\>", "\[Rule]", "15.1999998092651`"}], ",", 
   RowBox[{"\<\"Israel\"\>", "\[Rule]", "6.59999990463257`"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[Rule]", "12.5`"}], ",", 
   RowBox[{"\<\"Kuwait\"\>", "\[Rule]", "1.60000002384186`"}], ",", 
   RowBox[{"\<\"Lebanon\"\>", "\[Rule]", "8.89999961853027`"}], ",", 
   RowBox[{"\<\"Libya\"\>", "\[Rule]", "8.60000038146973`"}], ",", 
   RowBox[{"\<\"Morocco\"\>", "\[Rule]", "9.10000038146973`"}], ",", 
   RowBox[{"\<\"Mauritania\"\>", "\[Rule]", "31.1000003814697`"}], ",", 
   RowBox[{"\<\"Oman\"\>", "\[Rule]", "8.30000019073486`"}], ",", 
   RowBox[{"\<\"Qatar\"\>", "\[Rule]", "0.400000005960464`"}], ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[Rule]", "5.5`"}], ",", 
   RowBox[{"\<\"Sudan\"\>", "\[Rule]", "14.8000001907349`"}], ",", 
   RowBox[{"\<\"Somalia\"\>", "\[Rule]", "7.59999990463257`"}], ",", 
   RowBox[{"\<\"Syria\"\>", "\[Rule]", "8.39999961853027`"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[Rule]", "13"}], ",", 
   RowBox[{"\<\"Palestinian Territory\"\>", "\[Rule]", "23.7000007629395`"}], 
   ",", 
   RowBox[{"\<\"Yemen\"\>", "\[Rule]", "17.7999992370605`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.611336596928575*^9, 3.61133662754146*^9, 3.611336766201653*^9, 
   3.6113369934430513`*^9, 3.611337035496533*^9, 3.6113370958270073`*^9, {
   3.611337404487323*^9, 3.61133742331885*^9}, 3.6113378484180737`*^9, 
   3.61134987016925*^9, 3.6113499187803164`*^9, 3.611350090416429*^9, 
   3.6113503912809067`*^9, 3.611350725400773*^9, 3.61203585669366*^9, 
   3.612545043980413*^9, 3.612549704824183*^9, 3.615666513958194*^9, 
   3.618896159361145*^9, 3.619155088332662*^9, 3.619239861545795*^9, 
   3.619329779796962*^9, 3.619341961315382*^9, 3.6195248035243883`*^9, 
   3.619774601428692*^9, 3.622275182695153*^9, 3.622461816003312*^9, 
   3.6362091457167883`*^9, 3.637344949364976*^9, 3.641660032751227*^9, 
   3.646625245205374*^9, 3.668684738714321*^9, 3.668684786114143*^9, 
   3.6686875910377903`*^9, {3.668687649325387*^9, 3.668687670525137*^9}}]
}, Open  ]],

Cell[TextData[{
 "Djbouti had 54% unemployment in 2010. Citation: ",
 ButtonBox["http://www.tradingeconomics.com/djibouti/unemployment-rate",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.tradingeconomics.com/djibouti/unemployment-rate"], None},
  ButtonNote->"http://www.tradingeconomics.com/djibouti/unemployment-rate"]
}], "Text",
 CellChangeTimes->{{3.611350712952518*^9, 3.611350722897146*^9}, {
  3.6686847571486177`*^9, 3.668684768050089*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"unemploymentRatioIn2010ForCountriesInvolvedInArabSpringRules", "=", 
  
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Rule", "@@", "#"}], ")"}], "&"}], "/@", 
   RowBox[{"ReplacePart", "[", 
    RowBox[{
     RowBox[{"Select", "[", 
      RowBox[{
       RowBox[{
       "unemploymentRatioIn2010", "/.", 
        "convertWorldBankCountryNamesToFacebookNames"}], ",", " ", 
       RowBox[{
        RowBox[{"MemberQ", "[", 
         RowBox[{"countriesInvolvedInArabSpring", ",", 
          RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"4", ",", "2"}], "}"}], "\[Rule]", " ", "54."}]}], 
    "]"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611350741113285*^9, 3.611350763849539*^9}, {
  3.6125498016187143`*^9, 3.612549809586273*^9}, {3.668684809487965*^9, 
  3.668684817522221*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Albania\"\>", "\[Rule]", "14.1999998092651`"}], ",", 
   RowBox[{"\<\"United Arab Emirates\"\>", "\[Rule]", "4"}], ",", 
   RowBox[{"\<\"Bahrain\"\>", "\[Rule]", "7.5`"}], ",", 
   RowBox[{"\<\"Djibouti\"\>", "\[Rule]", "54.`"}], ",", 
   RowBox[{"\<\"Algeria\"\>", "\[Rule]", "10"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[Rule]", "9"}], ",", 
   RowBox[{"\<\"Iran\"\>", "\[Rule]", "13.5`"}], ",", 
   RowBox[{"\<\"Iraq\"\>", "\[Rule]", "15.1999998092651`"}], ",", 
   RowBox[{"\<\"Israel\"\>", "\[Rule]", "6.59999990463257`"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[Rule]", "12.5`"}], ",", 
   RowBox[{"\<\"Kuwait\"\>", "\[Rule]", "1.60000002384186`"}], ",", 
   RowBox[{"\<\"Lebanon\"\>", "\[Rule]", "8.89999961853027`"}], ",", 
   RowBox[{"\<\"Libya\"\>", "\[Rule]", "8.60000038146973`"}], ",", 
   RowBox[{"\<\"Morocco\"\>", "\[Rule]", "9.10000038146973`"}], ",", 
   RowBox[{"\<\"Mauritania\"\>", "\[Rule]", "31.1000003814697`"}], ",", 
   RowBox[{"\<\"Oman\"\>", "\[Rule]", "8.30000019073486`"}], ",", 
   RowBox[{"\<\"Qatar\"\>", "\[Rule]", "0.400000005960464`"}], ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[Rule]", "5.5`"}], ",", 
   RowBox[{"\<\"Sudan\"\>", "\[Rule]", "14.8000001907349`"}], ",", 
   RowBox[{"\<\"Somalia\"\>", "\[Rule]", "7.59999990463257`"}], ",", 
   RowBox[{"\<\"Syria\"\>", "\[Rule]", "8.39999961853027`"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[Rule]", "13"}], ",", 
   RowBox[{"\<\"Palestinian Territory\"\>", "\[Rule]", "23.7000007629395`"}], 
   ",", 
   RowBox[{"\<\"Yemen\"\>", "\[Rule]", "17.7999992370605`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.61135076419915*^9, 3.6120036174278193`*^9, 3.612014665693643*^9, 
   3.6120358599103394`*^9, 3.612549716465963*^9, {3.6125498020075397`*^9, 
   3.612549809879961*^9}, {3.668684793870812*^9, 3.668684818317677*^9}, 
   3.668687591109932*^9, {3.668687649371117*^9, 3.668687670546751*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", 
  "unemploymentRatioIn2010ForCountriesInvolvedInArabSpring"}]], "Input",
 CellChangeTimes->{{3.6113373517311153`*^9, 3.611337353396378*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.611337353735558*^9, 3.611337424469655*^9, 3.611337850203092*^9, 
   3.611350779656885*^9, 3.612035861293562*^9, {3.668687649420197*^9, 
   3.668687670589923*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "countriesInvolvedInArabSpring"}]], "Input",
 CellChangeTimes->{{3.6113373600781527`*^9, 3.611337361954256*^9}}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{
  3.611337362268998*^9, 3.6113378510886803`*^9, 3.612035861911106*^9, {
   3.668687649471155*^9, 3.6686876706236353`*^9}}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
income data from the World Bank: GDP per capita, PPP (constant 2011 \
international $)\
\>", "Subsubsection",
 CellChangeTimes->{{3.611336806037672*^9, 3.611336810007545*^9}, {
  3.612570976644788*^9, 3.612570977019189*^9}}],

Cell[TextData[{
 "Source: The World Bank, 2010. ",
 ButtonBox["http://data.worldbank.org",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://data.worldbank.org"], None},
  ButtonNote->"http://data.worldbank.org"],
 ". (accessed 14 May 2014)."
}], "Text",
 CellChangeTimes->{{3.6686851550358543`*^9, 3.668685178617371*^9}}],

Cell["File: ny.gdp.pcap.cd_Indicator_en_csv_v2", "Text",
 CellChangeTimes->{
  3.611337182345791*^9, {3.668684957932599*^9, 3.668684963747377*^9}}],

Cell[TextData[{
 "GDP per capita in current USD: \n",
 ButtonBox["http://data.worldbank.org/indicator/NY.GDP.PCAP.CD",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://data.worldbank.org/indicator/NY.GDP.PCAP.PP.KD"], None},
  ButtonNote->"http://data.worldbank.org/indicator/NY.GDP.PCAP.PP.KD"]
}], "Text",
 CellChangeTimes->{{3.611337197827055*^9, 3.61133720631562*^9}, {
  3.6125710047369957`*^9, 3.612571004742199*^9}}],

Cell["\<\
Description: \[OpenCurlyDoubleQuote]GDP per capita based on purchasing power \
parity (PPP). PPP GDP is gross domestic product converted to international \
dollars using purchasing power parity rates. An international dollar has the \
same purchasing power over GDP as the U.S. dollar has in the United States. \
GDP at purchaser\[CloseCurlyQuote]s prices is the sum of gross value added by \
all resident producers in the economy plus any product taxes and minus any \
subsidies not included in the value of the products. It is calculated without \
making deductions for depreciation of fabricated assets or for depletion and \
degradation of natural resources. Data are in constant 2011 international \
dollars.\[CloseCurlyDoubleQuote]\
\>", "Text",
 CellChangeTimes->{{3.612570988750988*^9, 3.6125709902100554`*^9}, {
  3.668685193365415*^9, 3.66868520362645*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gdpPerCapitaData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
       "\"\<ny.gdp.pcap.cd_Indicator_en_csv_v2\>\"", ",", 
       "\"\<ny.gdp.pcap.cd_Indicator_en_csv_v2.csv\>\""}], "}"}], "]"}], 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609694036833164*^9, 3.6096940805262337`*^9}, {
  3.611337190022169*^9, 3.6113372346498747`*^9}, {3.668684967907393*^9, 
  3.6686849690435057`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gdpPerCapita2010", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       RowBox[{"#", "\[LeftDoubleBracket]", 
        RowBox[{"-", "5"}], "\[RightDoubleBracket]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"gdpPerCapitaData", "\[LeftDoubleBracket]", 
     RowBox[{"4", ";;", 
      RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609694104472714*^9, 3.609694105772791*^9}, 
   3.60969422845219*^9, {3.611337243209848*^9, 3.611337250539225*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gdpPerCapitaIn2010ForCountriesInvolvedInArabSpring", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{
    "gdpPerCapita2010", "/.", "convertWorldBankCountryNamesToFacebookNames"}],
     ",", " ", 
    RowBox[{
     RowBox[{"MemberQ", "[", 
      RowBox[{"countriesInvolvedInArabSpring", ",", 
       RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.611337328121996*^9, 3.611337340810543*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Albania\"\>", ",", "3764.32634799148`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"United Arab Emirates\"\>", ",", "34048.5173453316`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", "20545.9694536416`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", "4349.56932474256`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "2803.53296265274`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iran\"\>", ",", "5674.92392735085`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iraq\"\>", ",", "4612.52347575944`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Israel\"\>", ",", "30389.107581936`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "4370.72103318115`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", "40090.7462727442`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", "8551.85241627055`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", "2822.73373914854`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mauritania\"\>", ",", "1017.16627752181`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", "20983.9003354042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Qatar\"\>", ",", "72773.314202226`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", "19326.5825548176`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", "1422.3681025837`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", "4206.77992157625`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Palestinian Territory\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", "1400.66768498865`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.611337344153296*^9, 3.611337429460937*^9, 3.611337858284029*^9, 
   3.611349870944788*^9, 3.611349928096842*^9, 3.611350090717196*^9, 
   3.6113503915157137`*^9, 3.6120036177093763`*^9, 3.612014666012128*^9, 
   3.612035867468273*^9, 3.614517110707778*^9, 3.6156662821373453`*^9, 
   3.618896159627282*^9, 3.6191550886558123`*^9, 3.619239861776351*^9, 
   3.6193297800501842`*^9, 3.61934196166317*^9, 3.668685001543626*^9, {
   3.6686876559665413`*^9, 3.668687670728531*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "%"}]], "Input",
 CellChangeTimes->{{3.611337345737669*^9, 3.611337346576882*^9}}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{
  3.6113373468743067`*^9, 3.6113374302449102`*^9, 3.6113378599188023`*^9, 
   3.61203586840471*^9, 3.66868500706096*^9, {3.66868765601921*^9, 
   3.668687670771316*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"gdpPerCapitaIn2010ForCountriesInvolvedInArabSpringRules", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Rule", "@@", "#"}], ")"}], "&"}], "/@", 
    "gdpPerCapitaIn2010ForCountriesInvolvedInArabSpring"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.611339338356979*^9, 3.6113393999336023`*^9}}],

Cell["\<\
Patch the missing data from the world bank with WolframAlpha data for \
Djbouti, Libya, Syria, Somalia (query for 2011 given that the WorldBank data \
is for 2011 PPP):\
\>", "Text",
 CellChangeTimes->{{3.668685019133769*^9, 3.668685022675786*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gdpPerCapitaIn2010ForCountriesInvolvedInArabSpring", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<Albania\>\"", ",", "3764.32634799148`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<United Arab Emirates\>\"", ",", "34048.5173453316`"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Bahrain\>\"", ",", "20545.9694536416`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Djibouti\>\"", ",", "1464."}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Algeria\>\"", ",", "4349.56932474256`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Egypt\>\"", ",", "2803.53296265274`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Iran\>\"", ",", "5674.92392735085`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Iraq\>\"", ",", "4612.52347575944`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Israel\>\"", ",", "30389.107581936`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Jordan\>\"", ",", "4370.72103318115`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Kuwait\>\"", ",", "40090.7462727442`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Lebanon\>\"", ",", "8551.85241627055`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Libya\>\"", ",", "5685."}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Morocco\>\"", ",", "2822.73373914854`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Mauritania\>\"", ",", "1017.16627752181`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Oman\>\"", ",", "20983.9003354042`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Qatar\>\"", ",", "72773.314202226`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Saudi Arabia\>\"", ",", "19326.5825548176`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Sudan\>\"", ",", "1422.3681025837`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Somalia\>\"", ",", "145.1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Syria\>\"", ",", "2066."}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Tunisia\>\"", ",", "4206.77992157625`"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Palestinian Territory\>\"", ",", "\"\<\>\""}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\"\<Yemen\>\"", ",", "1400.66768498865`"}], "}"}]}], 
   "}"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6193561892288322`*^9, 3.619356268144802*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Albania\"\>", ",", "3764.32634799148`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"United Arab Emirates\"\>", ",", "34048.5173453316`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", "20545.9694536416`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", "1464.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", "4349.56932474256`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "2803.53296265274`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iran\"\>", ",", "5674.92392735085`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iraq\"\>", ",", "4612.52347575944`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Israel\"\>", ",", "30389.107581936`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "4370.72103318115`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", "40090.7462727442`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", "8551.85241627055`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", "5685.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", "2822.73373914854`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mauritania\"\>", ",", "1017.16627752181`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", "20983.9003354042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Qatar\"\>", ",", "72773.314202226`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", "19326.5825548176`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", "1422.3681025837`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", "145.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", "2066.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", "4206.77992157625`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Palestinian Territory\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", "1400.66768498865`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.6193562688107023`*^9, 3.6193562854469213`*^9}, 
   3.619356454521489*^9, 3.619524804525281*^9, 3.619774601697467*^9, 
   3.622275185581513*^9, 3.622461816324683*^9, 3.636209145965693*^9, 
   3.637344949623835*^9, 3.641660033056863*^9, 3.646625245483433*^9, 
   3.668685026775882*^9, 3.6686875912232018`*^9, {3.668687656101056*^9, 
   3.668687670809224*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"gdpPerCapitaIn2010ForCountriesInvolvedInArabSpringRules", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Rule", "@@", "#"}], ")"}], "&"}], "/@", 
    "gdpPerCapitaIn2010ForCountriesInvolvedInArabSpring"}]}], ";"}]], "Input",\

 InitializationCell->True]
}, Closed]],

Cell[CellGroupData[{

Cell["gross national income (GNI) per capita, PPP", "Subsubsection",
 CellChangeTimes->{{3.611336806037672*^9, 3.611336810007545*^9}, {
  3.6113374930079803`*^9, 3.61133749982063*^9}}],

Cell[TextData[{
 "Source: The World Bank, 2010. ",
 ButtonBox["http://data.worldbank.org",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://data.worldbank.org"], None},
  ButtonNote->"http://data.worldbank.org"],
 ". (accessed 14 May 2014)."
}], "Text",
 CellChangeTimes->{{3.6686851550358543`*^9, 3.668685178617371*^9}}],

Cell[TextData[{
 "\[OpenCurlyDoubleQuote]GNI per capita based on purchasing power parity \
(PPP). PPP GNI is gross national income (GNI) converted to international \
dollars using purchasing power parity rates.\[CloseCurlyDoubleQuote] \n\n",
 ButtonBox["http://data.worldbank.org/indicator/NY.GNP.PCAP.PP.CD",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://data.worldbank.org/indicator/NY.GNP.PCAP.PP.CD"], None},
  ButtonNote->"http://data.worldbank.org/indicator/NY.GNP.PCAP.PP.CD"]
}], "Text",
 CellChangeTimes->{{3.611337197827055*^9, 3.61133720631562*^9}, {
  3.611337505104701*^9, 3.611337519148424*^9}, {3.668685212679988*^9, 
  3.668685212682396*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gniPerCapitaData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
       "\"\<ny.gnp.pcap.pp.cd_Indicator_en_csv_v2\>\"", ",", 
       "\"\<ny.gnp.pcap.pp.cd_Indicator_en_csv_v2.csv\>\""}], "}"}], "]"}], 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609694036833164*^9, 3.6096940805262337`*^9}, {
  3.611337190022169*^9, 3.6113372346498747`*^9}, {3.6113375232479153`*^9, 
  3.611337541007965*^9}, {3.668685086271318*^9, 3.668685087234538*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"gniPerCapita2010", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       RowBox[{"#", "\[LeftDoubleBracket]", 
        RowBox[{"-", "5"}], "\[RightDoubleBracket]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"gniPerCapitaData", "\[LeftDoubleBracket]", 
     RowBox[{"4", ";;", 
      RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609694104472714*^9, 3.609694105772791*^9}, 
   3.60969422845219*^9, {3.611337243209848*^9, 3.611337250539225*^9}, {
   3.6113375453511047`*^9, 3.6113375508726883`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gniPerCapitaIn2010ForCountriesInvolvedInArabSpring", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{
    "gniPerCapita2010", "/.", "convertWorldBankCountryNamesToFacebookNames"}],
     ",", " ", 
    RowBox[{
     RowBox[{"MemberQ", "[", 
      RowBox[{"countriesInvolvedInArabSpring", ",", 
       RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611337328121996*^9, 3.611337340810543*^9}, {
   3.6113376056696033`*^9, 3.6113376058853188`*^9}, 3.611337765484407*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Albania\"\>", ",", "8480"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"United Arab Emirates\"\>", ",", "56260"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", "31820"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", "12270"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "10360"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iran\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iraq\"\>", ",", "12660"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Israel\"\>", ",", "27960"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "11000"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", "86560"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", "15580"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", "6140"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mauritania\"\>", ",", "2660"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", "43730"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Qatar\"\>", ",", "126620"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", "45900"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", "2860"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", "9940"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Palestinian Territory\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", "4300"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.611337344153296*^9, 3.611337429460937*^9, 3.611337606303789*^9, 
   3.6113377658975897`*^9, 3.611337862557599*^9, 3.611349871914806*^9, 
   3.6113499305002203`*^9, 3.61135009093464*^9, 3.6113503918024063`*^9, 
   3.61200361791051*^9, 3.612014666229391*^9, 3.612035872311153*^9, 
   3.614517110932024*^9, 3.6156662828418016`*^9, 3.618896159961429*^9, 
   3.6191550889867573`*^9, 3.619239861977742*^9, 3.6193297803986464`*^9, 
   3.619341961990801*^9, 3.619524805261141*^9, 3.619774601865285*^9, 
   3.62227518632663*^9, 3.62246181668042*^9, 3.6362091461240053`*^9, 
   3.63734494980604*^9, 3.641660033242807*^9, 3.6466252459483433`*^9, 
   3.6686850945868893`*^9, 3.668687591371526*^9, {3.668687656281534*^9, 
   3.6686876709226913`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "%"}]], "Input",
 CellChangeTimes->{{3.611337345737669*^9, 3.611337346576882*^9}}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{
  3.6113373468743067`*^9, 3.6113374302449102`*^9, 3.611337606951742*^9, 
   3.6113377726087837`*^9, 3.61133786337556*^9, 3.612035872825926*^9, 
   3.668685096575732*^9, {3.668687656319118*^9, 3.6686876709756536`*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"gniPerCapitaIn2010ForCountriesInvolvedInArabSpringRules", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Rule", "@@", "#"}], ")"}], "&"}], "/@", 
    "gniPerCapitaIn2010ForCountriesInvolvedInArabSpring"}]}], ";"}]], "Input",\

 InitializationCell->True,
 CellChangeTimes->{{3.611339338356979*^9, 3.611339372693778*^9}, {
  3.611339405492137*^9, 3.611339406369595*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["internet penetration", "Subsubsection",
 CellChangeTimes->{{3.6113377114737186`*^9, 3.611337713328158*^9}, 
   3.6686852220125217`*^9}],

Cell[TextData[{
 "Source: The World Bank, 2010. ",
 ButtonBox["http://data.worldbank.org",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://data.worldbank.org"], None},
  ButtonNote->"http://data.worldbank.org"],
 ". (accessed 14 May 2014)."
}], "Text",
 CellChangeTimes->{{3.6686851550358543`*^9, 3.668685178617371*^9}}],

Cell["File: it.net.user.p2_Indicator_en_csv_v2", "Text",
 CellChangeTimes->{
  3.6113377167949047`*^9, {3.668685118233926*^9, 3.668685119018001*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"internetPenetrationData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
       "\"\<it.net.user.p2_Indicator_en_csv_v2\>\"", ",", 
       "\"\<it.net.user.p2_Indicator_en_csv_v2.csv\>\""}], "}"}], "]"}], 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609694036833164*^9, 3.6096940805262337`*^9}, {
  3.611337190022169*^9, 3.6113372346498747`*^9}, {3.6113375232479153`*^9, 
  3.611337541007965*^9}, {3.611337726802783*^9, 3.611337755859839*^9}, {
  3.668684877707773*^9, 3.668684878656775*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"internetPenetration2010", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       RowBox[{"#", "\[LeftDoubleBracket]", 
        RowBox[{"-", "5"}], "\[RightDoubleBracket]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"internetPenetrationData", "\[LeftDoubleBracket]", 
     RowBox[{"4", ";;", 
      RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.609694104472714*^9, 3.609694105772791*^9}, 
   3.60969422845219*^9, {3.611337243209848*^9, 3.611337250539225*^9}, {
   3.6113375453511047`*^9, 3.6113375508726883`*^9}, {3.611337735659019*^9, 
   3.611337748106838*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"internetPenetrationIn2010ForCountriesInvolvedInArabSpring", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{
    "internetPenetration2010", "/.", 
     "convertWorldBankCountryNamesToFacebookNames"}], ",", " ", 
    RowBox[{
     RowBox[{"MemberQ", "[", 
      RowBox[{"countriesInvolvedInArabSpring", ",", 
       RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611337328121996*^9, 3.611337340810543*^9}, {
   3.6113376056696033`*^9, 3.6113376058853188`*^9}, {3.61133774061893*^9, 
   3.611337743961836*^9}, 3.611337778785985*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Albania\"\>", ",", "45"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"United Arab Emirates\"\>", ",", "68"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", "55"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", "6.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", "12.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "31.42`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iran\"\>", ",", "14.7`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iraq\"\>", ",", "2.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Israel\"\>", ",", "67.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "27.2`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", "61.4`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", "43.68`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", "52"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mauritania\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", "35.8278`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Qatar\"\>", ",", "81.6`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", "41"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", "16.7`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", "20.7`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", "36.8`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Palestinian Territory\"\>", ",", "37.4`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", "12.35`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.611337344153296*^9, 3.611337429460937*^9, 3.611337606303789*^9, {
   3.611337758436928*^9, 3.611337779141238*^9}, 3.611337865478807*^9, 
   3.6113498727222853`*^9, 3.611349937245494*^9, 3.611350091168499*^9, 
   3.6113503921046352`*^9, 3.612003618177168*^9, 3.612014666480124*^9, 
   3.612035875984274*^9, 3.614517111248047*^9, 3.61566628359997*^9, 
   3.61889616016012*^9, 3.6191550893125687`*^9, 3.619239862288364*^9, 
   3.619329780682007*^9, 3.619341962232872*^9, 3.619524806170761*^9, 
   3.619774602209043*^9, 3.622275187195756*^9, 3.622461817071869*^9, 
   3.636209146321267*^9, 3.6373449501046658`*^9, 3.641660033444029*^9, 
   3.6466252462059727`*^9, 3.668684427718627*^9, 3.668684882478232*^9, 
   3.668687591540412*^9, {3.6686876564518223`*^9, 3.66868767110114*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "%"}]], "Input",
 CellChangeTimes->{{3.611337345737669*^9, 3.611337346576882*^9}}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{
  3.6113373468743067`*^9, 3.6113374302449102`*^9, 3.611337606951742*^9, 
   3.611337866284501*^9, 3.6120358764986687`*^9, 3.668684887158781*^9, {
   3.6686876564778357`*^9, 3.668687671125937*^9}}]
}, Open  ]],

Cell[TextData[{
 StyleBox["Note: there is no data for Somalia. But ",
  FontSize->16],
 StyleBox[ButtonBox["http://en.wikipedia.org/wiki/Communications_in_Somalia",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://en.wikipedia.org/wiki/Communications_in_Somalia"], None},
  ButtonNote->"http://en.wikipedia.org/wiki/Communications_in_Somalia"],
  FontSize->14],
 StyleBox[" says that Internet penetration is 1.2% in 2012 (accessed Sept. \
12, 2014).",
  FontSize->16]
}], "Text",
 CellChangeTimes->{{3.611339781016551*^9, 3.611339792411808*^9}, {
  3.612035876985814*^9, 3.6120358777834883`*^9}, {3.619499346908127*^9, 
  3.619499367468011*^9}, {3.619515916368061*^9, 3.619515916487173*^9}, {
  3.668684895039488*^9, 3.668684895041814*^9}},
 FontSize->12],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "internetPenetrationIn2010ForCountriesInvolvedInArabSpringRules", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Rule", "@@", "#"}], ")"}], "&"}], "/@", 
    RowBox[{"(", 
     RowBox[{"internetPenetrationIn2010ForCountriesInvolvedInArabSpring", "/.", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<Somalia\>\"", ",", "\"\<\>\""}], "}"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<Somalia\>\"", ",", "1.2"}], "}"}]}]}], ")"}]}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611339338356979*^9, 3.611339372693778*^9}, 
   3.611339412142047*^9, {3.6113397729450502`*^9, 3.6113397756949177`*^9}, 
   3.619499399188146*^9, {3.61951591813778*^9, 3.619515918239482*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["unemployment of young men ", "Subsubsection",
 CellChangeTimes->{{3.611338033259899*^9, 3.611338039778593*^9}}],

Cell[TextData[{
 "Source: The World Bank, 2010. ",
 ButtonBox["http://data.worldbank.org",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://data.worldbank.org"], None},
  ButtonNote->"http://data.worldbank.org"],
 ". (accessed 14 May 2014)."
}], "Text",
 CellChangeTimes->{{3.6686851550358543`*^9, 3.668685178617371*^9}}],

Cell[TextData[{
 "(% of male labor force ages 15-24) (modeled ILO estimate)\n",
 ButtonBox["http://data.worldbank.org/indicator/SL.UEM.1524.MA.ZS",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://data.worldbank.org/indicator/SL.UEM.1524.MA.ZS"], None},
  ButtonNote->"http://data.worldbank.org/indicator/SL.UEM.1524.MA.ZS"]
}], "Text",
 CellChangeTimes->{{3.611338094116502*^9, 3.6113380984320517`*^9}, {
  3.668685249563449*^9, 3.668685249565858*^9}}],

Cell["File: sl.uem.1524.ma.zs_Indicator_en_excel_v2.xls", "Text",
 CellChangeTimes->{
  3.61133804387735*^9, {3.6686852599391193`*^9, 3.6686852605769033`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"youngMenUnemploymentData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"FileNameJoin", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
       "\"\<sl.uem.1524.ma.zs_Indicator_en_excel_v2.xls\>\""}], "}"}], "]"}], 
    "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611338062052229*^9, 3.611338121835853*^9}, {
  3.668685276024332*^9, 3.6686852769336567`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"youngMenUnemployment2010", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       RowBox[{"#", "\[LeftDoubleBracket]", 
        RowBox[{"-", "4"}], "\[RightDoubleBracket]"}]}], "}"}], "&"}], "/@", 
    RowBox[{"youngMenUnemploymentData", "\[LeftDoubleBracket]", 
     RowBox[{"1", ",", 
      RowBox[{"4", ";;", 
       RowBox[{"-", "1"}]}]}], "\[RightDoubleBracket]"}]}]}], ";"}]], "Input",\

 InitializationCell->True,
 CellChangeTimes->{{3.611338203001068*^9, 3.61133824710432*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"youngMenUnemployment2010ForCountriesInvolvedInArabSpring", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{
    "youngMenUnemployment2010", "/.", 
     "convertWorldBankCountryNamesToFacebookNames"}], ",", " ", 
    RowBox[{
     RowBox[{"MemberQ", "[", 
      RowBox[{"countriesInvolvedInArabSpring", ",", 
       RowBox[{"First", "[", "#", "]"}]}], "]"}], "&"}]}], "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611338261353944*^9, 3.611338265396356*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Albania\"\>", ",", "27.2999992370605`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"United Arab Emirates\"\>", ",", "8.10000038146973`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", "24.7000007629395`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", "\<\"\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", "19.1000003814697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "14.8000001907349`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iran\"\>", ",", "25.2000007629395`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iraq\"\>", ",", "28.6000003814697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Israel\"\>", ",", "14.6000003814697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "25.1000003814697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", "11.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", "23.1000003814697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", "18.1000003814697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", "18.2999992370605`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mauritania\"\>", ",", "47.9000015258789`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", "18.1000003814697`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Qatar\"\>", ",", "0.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", "23.7999992370605`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", "21.8999996185303`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", "12.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", "15.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", "30.2999992370605`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Palestinian Territory\"\>", ",", "35.7000007629395`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", "27.8999996185303`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.61133826683972*^9, 3.61134989941372*^9, 3.611349950032035*^9, 
   3.611350092286326*^9, 3.611350392669464*^9, 3.612003618848168*^9, 
   3.612014667296895*^9, 3.612035881326612*^9, 3.61451711393186*^9, 
   3.615666287079595*^9, 3.618896161189576*^9, 3.6191550917364607`*^9, 
   3.61923986331919*^9, 3.6193297822327642`*^9, 3.619341963540494*^9, 
   3.6195248108670692`*^9, 3.619774603394762*^9, 3.6222751920918627`*^9, 
   3.622461818464703*^9, 3.6362091472361403`*^9, 3.6373449511688766`*^9, 
   3.6416600346693697`*^9, 3.646625247226738*^9, 3.668685300367939*^9, 
   3.6686875920870457`*^9, {3.668687656637474*^9, 3.6686876712511387`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "%"}]], "Input",
 CellChangeTimes->{{3.611338268540462*^9, 3.611338269360283*^9}}],

Cell[BoxData["24"], "Output",
 CellChangeTimes->{
  3.61133826961063*^9, 3.612035882150406*^9, 3.66868530234363*^9, {
   3.668687656692502*^9, 3.668687671272156*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "youngMenUnemployment2010ForCountriesInvolvedInArabSpringRules", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Rule", "@@", "#"}], ")"}], "&"}], "/@", 
    "youngMenUnemployment2010ForCountriesInvolvedInArabSpring"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.611339338356979*^9, 3.611339356706482*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["political freedoms", "Subsubsection",
 CellChangeTimes->{{3.611338033259899*^9, 3.611338039778593*^9}, {
  3.6120084206242332`*^9, 3.612008423021755*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"freedomOfPressData", "=", 
   RowBox[{"First", "@", 
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
         "\"\<freedom\>\"", ",", "\"\<freedom_of_press.xlsx\>\""}], "}"}], 
       "]"}], ",", "\"\<Data\>\""}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"freedomOfPressDataRules", "=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"data", "=", "freedomOfPressData"}], "}"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\"\<country\>\"", "\[Rule]", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{"row", ",", "1"}], "\[RightDoubleBracket]"}]}], ",", 
           RowBox[{"\"\<year\>\"", "\[Rule]", 
            RowBox[{"IntegerPart", "[", 
             RowBox[{"data", "\[LeftDoubleBracket]", 
              RowBox[{"1", ",", "col"}], "\[RightDoubleBracket]"}], "]"}]}], 
           ",", 
           RowBox[{"\"\<value\>\"", "\[Rule]", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{"row", ",", "col"}], "\[RightDoubleBracket]"}]}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"row", ",", "2", ",", 
           RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"col", ",", "2", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"First", "@", "data"}], "]"}]}], "}"}]}], "]"}], ",", 
       "1"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6120088123892612`*^9, 3.6120088293800983`*^9}, {
   3.6120089303548937`*^9, 3.612008935539583*^9}, {3.612009046183915*^9, 
   3.612009047016637*^9}, {3.612009303544599*^9, 3.612009337720848*^9}, 
   3.6120126866637297`*^9, {3.668685395721767*^9, 3.6686853967129*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"politicalFreedomData", "=", 
   RowBox[{"First", "@", 
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
         "\"\<freedom\>\"", ",", "\"\<political_freedom.xlsx\>\""}], "}"}], 
       "]"}], ",", "\"\<Data\>\""}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"politicalFreedomDataRules", "=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"data", "=", "politicalFreedomData"}], "}"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\"\<country\>\"", "\[Rule]", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{"row", ",", "1"}], "\[RightDoubleBracket]"}]}], ",", 
           RowBox[{"\"\<year\>\"", "\[Rule]", 
            RowBox[{"IntegerPart", "[", 
             RowBox[{"data", "\[LeftDoubleBracket]", 
              RowBox[{"1", ",", "col"}], "\[RightDoubleBracket]"}], "]"}]}], 
           ",", 
           RowBox[{"\"\<value\>\"", "\[Rule]", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{"row", ",", "col"}], "\[RightDoubleBracket]"}]}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"row", ",", "2", ",", 
           RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"col", ",", "2", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"First", "@", "data"}], "]"}]}], "}"}]}], "]"}], ",", 
       "1"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6120089552661123`*^9, 3.612008970810042*^9}, {
   3.612009043694927*^9, 3.6120090444182873`*^9}, {3.6120092613131027`*^9, 
   3.61200933094543*^9}, {3.612012673191421*^9, 3.6120126756044817`*^9}, 
   3.668685399234911*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"webFreedomData", "=", 
   RowBox[{"First", "@", 
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
         "\"\<freedom\>\"", ",", "\"\<web_freedom.xlsx\>\""}], "}"}], "]"}], 
      ",", "\"\<Data\>\""}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"webFreedomDataRules", "=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"data", "=", "webFreedomData"}], "}"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\"\<country\>\"", "\[Rule]", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{"row", ",", "1"}], "\[RightDoubleBracket]"}]}], ",", 
           RowBox[{"\"\<year\>\"", "\[Rule]", 
            RowBox[{"IntegerPart", "[", 
             RowBox[{"data", "\[LeftDoubleBracket]", 
              RowBox[{"1", ",", "col"}], "\[RightDoubleBracket]"}], "]"}]}], 
           ",", 
           RowBox[{"\"\<value\>\"", "\[Rule]", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{"row", ",", "col"}], "\[RightDoubleBracket]"}]}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"row", ",", "2", ",", 
           RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"col", ",", "2", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"First", "@", "data"}], "]"}]}], "}"}]}], "]"}], ",", 
       "1"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.612008977748454*^9, 3.612008984770966*^9}, {
   3.61200904052009*^9, 3.6120090412569523`*^9}, {3.612009230818294*^9, 
   3.612009245436895*^9}, {3.612009349721467*^9, 3.612009351448819*^9}, {
   3.6120126990603113`*^9, 3.612012703582061*^9}, 3.6686854021792803`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"civilLibertiesData", "=", 
   RowBox[{"First", "@", 
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
         "\"\<freedom\>\"", ",", "\"\<civil_liberties.xlsx\>\""}], "}"}], 
       "]"}], ",", "\"\<Data\>\""}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"civilLibertiesDataRules", "=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"data", "=", "civilLibertiesData"}], "}"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"\"\<country\>\"", "\[Rule]", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{"row", ",", "1"}], "\[RightDoubleBracket]"}]}], ",", 
           RowBox[{"\"\<year\>\"", "\[Rule]", 
            RowBox[{"IntegerPart", "[", 
             RowBox[{"data", "\[LeftDoubleBracket]", 
              RowBox[{"1", ",", "col"}], "\[RightDoubleBracket]"}], "]"}]}], 
           ",", 
           RowBox[{"\"\<value\>\"", "\[Rule]", 
            RowBox[{"data", "\[LeftDoubleBracket]", 
             RowBox[{"row", ",", "col"}], "\[RightDoubleBracket]"}]}]}], 
          "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"row", ",", "2", ",", 
           RowBox[{"Length", "[", "data", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"col", ",", "2", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"First", "@", "data"}], "]"}]}], "}"}]}], "]"}], ",", 
       "1"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.612009002782937*^9, 3.612009038153026*^9}, {
   3.612009213810425*^9, 3.612009223181861*^9}, {3.6120127078548193`*^9, 
   3.612012710462821*^9}, 3.668685404963359*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["political freedoms (from the Freedom House website)", "Subsubsection",
 CellChangeTimes->{{3.619516809888133*^9, 3.619516822406212*^9}, {
  3.668685787007485*^9, 3.668685789923637*^9}}],

Cell[TextData[{
 "This spreadsheet has political rights and civil liberties data (and \
subcategories of that and F, PF, NF). The file ",
 StyleBox["civil_liberties_political_freedom.xls", "Code"],
 " is from ",
 ButtonBox["http://www.freedomhouse.org/report/freedom-world-aggregate-and-\
subcategory-scores #.VBLzlGRdUuF ",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.freedomhouse.org/report/freedom-world-aggregate-and-\
subcategory-scores#.VBLzlGRdUuF"], None},
  ButtonNote->
   "http://www.freedomhouse.org/report/freedom-world-aggregate-and-\
subcategory-scores#.VBLzlGRdUuF"],
 "Accessed September 12, 2014. "
}], "Text",
 CellChangeTimes->{
  3.61951779592635*^9, {3.668685430269665*^9, 3.6686854742657747`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"civilLibertiesPoliticalFreedomData", "=", 
   RowBox[{"First", "@", 
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"FileNameJoin", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
         "\"\<freedom\>\"", ",", 
         "\"\<civil_liberties_political_freedom.xls\>\""}], "}"}], "]"}], 
      ",", "\"\<Data\>\""}], "]"}]}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{
  3.619517255280881*^9, {3.6195174067416058`*^9, 3.619517419658607*^9}, 
   3.6686854190774384`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"civilLibertiesPoliticalFreedomDataAssociation", "=", 
   RowBox[{"Association", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"First", "[", "#", "]"}], "\[Rule]", 
        RowBox[{"<|", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Rule", "@@", "#"}], "&"}], ")"}], "/@", 
          RowBox[{"Transpose", "[", 
           RowBox[{"{", 
            RowBox[{"(*", 
             RowBox[{
             "civilLibertiesPoliticalFreedomData", "\[LeftDoubleBracket]", 
              RowBox[{"18", ",", 
               RowBox[{"2", ";;", 
                RowBox[{"-", "1"}]}]}], "\[RightDoubleBracket]"}], "*)"}], 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
              "\"\<Political Rights\>\"", ",", "\"\<Civil Liberties\>\"", 
               ",", "\"\<StatusFPFNF\>\"", ",", "\"\<Electoral Process\>\"", 
               ",", "\"\<Political Pluralism and Participation\>\"", ",", 
               "\"\<Functioning of Government\>\"", ",", 
               "\"\<Freedom of Expression and Belief\>\"", ",", 
               "\"\<Associational and Organizational Rights\>\"", ",", 
               "\"\<Rule of Law\>\"", ",", 
               "\"\<Personal Autonomy and Individual Rights\>\""}], "}"}], 
             ",", 
             RowBox[{"Rest", "[", "#", "]"}]}], "}"}], "]"}]}], "|>"}]}], 
       ")"}], "&"}], "/@", 
     RowBox[{"civilLibertiesPoliticalFreedomData", "\[LeftDoubleBracket]", 
      RowBox[{"19", ";;", 
       RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "]"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6195175264090633`*^9, 3.619517584368875*^9}, {
   3.6195177235252867`*^9, 3.619517724212204*^9}, {3.619517775868981*^9, 
   3.6195177810713043`*^9}, {3.6195184290552597`*^9, 3.619518449917128*^9}, {
   3.619518506475029*^9, 3.619518555188586*^9}, 3.619518605353682*^9, {
   3.619519119513701*^9, 3.619519122391811*^9}, {3.619520923568336*^9, 
   3.619520925742084*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["world press freedom index", "Subsubsection",
 CellChangeTimes->{{3.619517817454823*^9, 3.619517821046212*^9}}],

Cell[TextData[{
 "File: ",
 StyleBox["press_freedom_index.csv", "Code"],
 "\nWorld Press freedom Index was downloaded from ",
 ButtonBox["http://rsf.org/index2014/en-index2014.php",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://rsf.org/index2014/en-index2014.php"], None},
  ButtonNote->"http://rsf.org/index2014/en-index2014.php"],
 "\nThen click on the link ",
 StyleBox["Download the index csv file.", "Code"],
 " We will use the data from 2013 (7th column \[OpenCurlyDoubleQuote]sco2013\
\[CloseCurlyDoubleQuote])"
}], "Text",
 CellChangeTimes->{
  3.619517862045401*^9, {3.619517892652714*^9, 3.619517893822371*^9}, {
   3.619518069149599*^9, 3.619518078012376*^9}, {3.668685482778832*^9, 
   3.668685482781221*^9}, {3.668685800499691*^9, 3.668685818811627*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pressFreedomIndexData", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
        "\"\<freedom\>\"", ",", "\"\<press_freedom_index.csv\>\""}], "}"}], 
      "]"}], ",", "\"\<Data\>\""}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6195178291670647`*^9, 3.619517832400906*^9}, {
  3.619517870649579*^9, 3.619517925830317*^9}, {3.6686854911807003`*^9, 
  3.6686854921693296`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pressFreedomIndexDataAssociation", "=", 
   RowBox[{"Association", "[", 
    RowBox[{"MapThread", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"#1", "\[Rule]", 
        RowBox[{"<|", 
         RowBox[{"\"\<pressFreedom2013\>\"", "\[Rule]", "#2"}], "|>"}]}], 
       "&"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"pressFreedomIndexData", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"2", ";;", 
           RowBox[{"-", "1"}]}], ",", "2"}], "\[RightDoubleBracket]"}], ",", 
        RowBox[{"pressFreedomIndexData", "\[LeftDoubleBracket]", 
         RowBox[{
          RowBox[{"2", ";;", 
           RowBox[{"-", "1"}]}], ",", "7"}], "\[RightDoubleBracket]"}]}], 
       "}"}]}], "]"}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6195180850645037`*^9, 3.619518144885001*^9}, {
  3.619518595188033*^9, 3.619518598497767*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["\[OpenCurlyDoubleQuote]fuzzy\[CloseCurlyDoubleQuote] data from Hussain \
and Howard", "Subsubsection",
 CellChangeTimes->{{3.668685529865932*^9, 3.668685534168745*^9}}],

Cell[TextData[{
 "This data was copied from Table 1 in the paper\n\nHussain, M. M., & Howard, \
P. N. (2013). ",
 StyleBox["What Best Explains Successful Protest Cascades? ICTs and the Fuzzy \
Causes of the Arab Spring",
  FontWeight->"Bold"],
 ".",
 StyleBox[" International Studies Review",
  FontSlant->"Italic"],
 ", 15(1), 48\[Dash]66. ",
 ButtonBox["http://doi.org/10.1111/misr.12020",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://doi.org/10.1111/misr.12020"], None},
  ButtonNote->"http://doi.org/10.1111/misr.12020"]
}], "Text",
 CellChangeTimes->{{3.668685632288424*^9, 3.6686856427778788`*^9}, {
  3.668685675823998*^9, 3.668685737876378*^9}}],

Cell["\<\
This data consists of \[OpenCurlyDoubleQuote]scores\[CloseCurlyDoubleQuote] \
that are computed from data or estimated by experts, and they are intended to \
be used for comparison.\
\>", "Text",
 CellChangeTimes->{{3.66868574111619*^9, 3.6686857753000603`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "fuzzyDataString", "=", 
   "\"\<Country Gdppc Gini Unemp Urban Youth Mobile Internet Fuel Pol Success\
\n\nAlgeria 0.58 0.37 0.42 0.47 0.32 0.47 0.32 1 0.83 0.55\n\nBahrain 0.84 \
0.42 0.58 0.89 0.26 0.68 0.89 0.58 0.11 0.2\n\nDjibouti 0.16 0.74 1 0.63 0.74 \
0.05 0.16 0.01 0.83 0.3\n\nEgypt 0.32 0.21 0.26 0.26 0.58 0.37 0.37 0.42 0.56 \
0.95\n\nIraq 0.05 0.11 0.74 0.42 0.89 0.42 0.79 0.37 0.94 0.3\n\nJordan 0.53 \
0.58 0.47 0.01 0.63 0.63 0.47 0.05 0.56 0.6\n\nKuwait 0.89 0.01 0.05 1 0.16 \
0.84 0.74 0.89 0.28 0.6\n\nLebanon 0.63 0.95 0.32 0.84 0.21 0.26 0.58 0.11 1 \
0.6\n\nLibya 0.68 0.42 0.84 0.68 0.42 0.95 0.11 0.95 0.28 0.8\n\nMauritania \
0.11 0.68 0.84 0.21 0.84 0.32 0.05 0.26 0.67 0.4\n\nMorocco 0.42 0.79 0.37 \
0.37 0.37 0.53 0.68 0.21 0.44 0.6\n\nOman 0.79 0.21 0.58 0.58 0.47 0.89 0.84 \
0.68 0.11 0.6\n\nQatar 1 0.79 0.01 0.95 0.01 0.74 0.95 0.63 0.01 0.5\n\nSaudi \
0.74 0.21 0.16 0.74 0.53 1 0.47 0.79 0.01 0.6\n\nSomalia 0.01 0.01 0.95 0.11 \
1 0.01 0.01 0.16 0.5 0.5\n\nSudan 0.26 1 0.79 0.16 0.79 0.11 0.21 0.74 0.67 \
0.55\n\nSyria 0.37 0.42 0.21 0.32 0.68 0.21 0.42 0.47 0.28 0.7\n\nTunisia \
0.47 0.79 0.53 0.53 0.11 0.58 0.63 0.32 0.5 0.95\n\nUAE 0.95 0.11 0.11 0.79 \
0.05 0.79 1 0.53 0.11 0.4\n\nYemen 0.21 0.58 0.58 0.05 0.95 0.16 0.26 0.84 \
0.67 0.95\>\""}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.61262349024413*^9, 3.612623496354648*^9}, {
  3.612623646170397*^9, 3.612623653488882*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"fuzzyColumns", "=", 
  RowBox[{"First", "@", 
   RowBox[{"Partition", "[", 
    RowBox[{
     RowBox[{"StringSplit", "[", "fuzzyDataString", "]"}], ",", "11"}], 
    "]"}]}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.612623539245029*^9, 3.612623572535983*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Country\"\>", ",", "\<\"Gdppc\"\>", ",", "\<\"Gini\"\>", 
   ",", "\<\"Unemp\"\>", ",", "\<\"Urban\"\>", ",", "\<\"Youth\"\>", 
   ",", "\<\"Mobile\"\>", ",", "\<\"Internet\"\>", ",", "\<\"Fuel\"\>", 
   ",", "\<\"Pol\"\>", ",", "\<\"Success\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.612623543486891*^9, 3.612623574272821*^9, 3.614517115847218*^9, 
   3.615666289513435*^9, 3.618896162342965*^9, 3.6191550929156513`*^9, 
   3.6192398645454273`*^9, 3.619329783552381*^9, 3.619341964609313*^9, 
   3.619524816227344*^9, 3.619774604856986*^9, 3.622275194926407*^9, 
   3.622461820924589*^9, 3.6362091485511303`*^9, 3.637344952537447*^9, 
   3.641660036105328*^9, 3.6466252486512537`*^9, 3.668685551573494*^9, 
   3.668687592634842*^9, {3.668687657034647*^9, 3.668687671841969*^9}}]
}, Open  ]],

Cell["Missing countries in the fuzzy data:", "Text",
 CellChangeTimes->{{3.61262385288999*^9, 3.612623856319724*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Complement", "[", 
  RowBox[{"countriesInvolvedInArabSpring", ",", 
   RowBox[{
    RowBox[{"First", "/@", 
     RowBox[{"Rest", "[", 
      RowBox[{"Partition", "[", 
       RowBox[{
        RowBox[{"StringSplit", "[", "fuzzyDataString", "]"}], ",", "11"}], 
       "]"}], "]"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\"\<Saudi\>\"", "\[Rule]", "\"\<Saudi Arabia\>\""}], ",", 
      RowBox[{"\"\<UAE\>\"", "\[Rule]", "\"\<United Arab Emirates\>\""}]}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.612623632415215*^9, 3.612623639108439*^9}, 
   3.612623703601832*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Albania\"\>", ",", "\<\"Iran\"\>", ",", "\<\"Israel\"\>", 
   ",", "\<\"Palestinian Territory\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.6126236395651207`*^9, 3.6126237040160627`*^9, 3.668685563822109*^9, {
   3.668687657062718*^9, 3.668687671888566*^9}}]
}, Open  ]],

Cell["Fuzzy data using rules:", "Text",
 CellChangeTimes->{{3.612623884400118*^9, 3.612623887502521*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"fuzzyDataRules", "=", 
   RowBox[{"MapThread", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#1", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{"Thread", "[", 
         RowBox[{
          RowBox[{"Rest", "@", "fuzzyColumns"}], "\[Rule]", "#2"}], "]"}], 
        ")"}]}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"First", "/@", 
         RowBox[{"Rest", "[", 
          RowBox[{"Partition", "[", 
           RowBox[{
            RowBox[{"StringSplit", "[", "fuzzyDataString", "]"}], ",", "11"}],
            "]"}], "]"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"\"\<Saudi\>\"", "\[Rule]", "\"\<Saudi Arabia\>\""}], ",", 
          RowBox[{
          "\"\<UAE\>\"", "\[Rule]", "\"\<United Arab Emirates\>\""}]}], 
         "}"}]}], ",", 
       RowBox[{"Rest", "/@", 
        RowBox[{"Rest", "[", 
         RowBox[{"Partition", "[", 
          RowBox[{
           RowBox[{"StringSplit", "[", "fuzzyDataString", "]"}], ",", "11"}], 
          "]"}], "]"}]}]}], "}"}]}], "]"}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.612623731613245*^9, 3.612623838818026*^9}, 
   3.668685580883123*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gdppcFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Gdppc\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"giniFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Gini\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"unempFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Unemp\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"urbanFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Urban\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"youthFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Youth\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mobileFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Mobile\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"internetFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Internet\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fuelFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Fuel\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"polFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Pol\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"successFuzzy", "=", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"First", "/@", "fuzzyDataRules"}], "\[Rule]", 
     RowBox[{"(", 
      RowBox[{"ToExpression", "/@", 
       RowBox[{"(", 
        RowBox[{"\"\<Success\>\"", "/.", 
         RowBox[{"Last", "/@", "fuzzyDataRules"}]}], ")"}]}], ")"}]}], 
    "]"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.612623998557021*^9, 3.612624012965088*^9}, {
  3.6126240537787647`*^9, 3.612624331822196*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Gini coefficient", "Subsubsection",
 CellChangeTimes->{{3.668685889096014*^9, 3.668685894855659*^9}}],

Cell[TextData[{
 "Data is from the World Factbook ",
 ButtonBox["https://www.cia.gov/library/publications/the-world-factbook/\
rankorder/2172rank.html",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://www.cia.gov/library/publications/the-world-factbook/\
rankorder/2172rank.html"], None},
  ButtonNote->
   "https://www.cia.gov/library/publications/the-world-factbook/rankorder/\
2172rank.html"]
}], "Text",
 CellChangeTimes->{{3.6125515764606457`*^9, 3.612551583095962*^9}, {
  3.668685906805284*^9, 3.6686859068076067`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "GINIrawData", "=", 
   "\"\<1\\tLesotho\\t             63.2\n2\\tSouth Africa\\t             63.1\
\n3\\tBotswana\\t             63.0\n4\\tSierra Leone\\t             62.9\n\
5\\tCentral African Republic\\t             61.3\n6\\tNamibia\\t             \
59.7\n7\\tHaiti\\t             59.2\n8\\tHonduras\\t             57.7\n\
9\\tZambia\\t             57.5\n10\\tColombia\\t             55.9\n\
11\\tGuatemala\\t             55.1\n12\\tHong Kong\\t             53.7\n\
13\\tParaguay\\t             53.2\n14\\tChile\\t             52.1\n\
15\\tPanama\\t             51.9\n16\\tBrazil\\t             51.9\n17\\tPapua \
New Guinea\\t             50.9\n18\\tSwaziland\\t             50.4\n\
19\\tCosta Rica\\t             50.3\n20\\tGambia, The\\t             50.2\n21\
\\tZimbabwe\\t             50.1\n22\\tSri Lanka\\t             49.0\n\
23\\tEcuador\\t             48.5\n24\\tMexico\\t             48.3\n\
25\\tPeru\\t             48.1\n26\\tMadagascar\\t             47.5\n\
27\\tChina\\t             47.3\n28\\tDominican Republic\\t             47.2\n\
29\\tBolivia\\t             47.0\n30\\tEl Salvador\\t             46.9\n\
31\\tRwanda\\t             46.8\n32\\tSingapore\\t             46.3\n\
33\\tMalaysia\\t             46.2\n34\\tGeorgia\\t             46.0\n\
35\\tSouth Sudan\\t             46.0\n36\\tArgentina\\t             45.8\n\
37\\tMozambique\\t             45.6\n38\\tJamaica\\t             45.5\n\
39\\tBulgaria\\t             45.3\n40\\tUruguay\\t             45.3\n\
41\\tUnited States\\t             45.0\n42\\tPhilippines\\t             44.8\n\
43\\tCameroon\\t             44.6\n44\\tGuyana\\t             44.6\n45\\tIran\
\\t             44.5\n46\\tUganda\\t             44.3\n47\\tNigeria\\t        \
     43.7\n48\\tKenya\\t             42.5\n49\\tBurundi\\t             42.4\n\
50\\tRussia\\t             42.0\n51\\tCote d'Ivoire\\t             41.5\n\
52\\tSenegal\\t             41.3\n53\\tDjibouti\\t             40.9\n\
54\\tMorocco\\t             40.9\n55\\tTurkmenistan\\t             40.8\n\
56\\tNicaragua\\t             40.5\n57\\tTurkey\\t             40.2\n\
58\\tMali\\t             40.1\n59\\tTunisia\\t             40.0\n\
60\\tJordan\\t             39.7\n61\\tBurkina Faso\\t             39.5\n\
62\\tGhana\\t             39.4\n63\\tGuinea\\t             39.4\n\
64\\tThailand\\t             39.4\n65\\tMacedonia\\t             39.2\n\
66\\tMauritania\\t             39.0\n67\\tVenezuela\\t             39.0\n\
68\\tMalawi\\t             39.0\n69\\tMauritius\\t             39.0\n\
70\\tBhutan\\t             38.7\n71\\tPortugal\\t             38.5\n\
72\\tSerbia\\t             38.0\n73\\tCambodia\\t             37.9\n\
74\\tYemen\\t             37.7\n75\\tIsrael\\t             37.6\n\
76\\tJapan\\t             37.6\n77\\tTanzania\\t             37.6\n\
78\\tVietnam\\t             37.6\n79\\tMaldives\\t             37.4\n\
80\\tIndia\\t             36.8\n81\\tUzbekistan\\t             36.8\n\
82\\tIndonesia\\t             36.8\n83\\tLaos\\t             36.7\n\
84\\tMongolia\\t             36.5\n85\\tBenin\\t             36.5\n86\\tNew \
Zealand\\t             36.2\n87\\tBosnia and Herzegovina\\t             36.2\n\
88\\tLithuania\\t             35.5\n89\\tAlgeria\\t             35.3\n\
90\\tLatvia\\t             35.2\n91\\tMacau\\t             35.0\n92\\tAlbania\
\\t             34.5\n93\\tGreece\\t             34.3\n94\\tTaiwan\\t         \
    34.2\n95\\tPoland\\t             34.1\n96\\tNiger\\t             34.0\n97\
\\tIreland\\t             33.9\n98\\tAzerbaijan\\t             33.7\n\
99\\tKyrgyzstan\\t             33.4\n100\\tMoldova\\t             33.0\n\
101\\tEthiopia\\t             33.0\n102\\tNepal\\t             32.8\n\
103\\tTajikistan\\t             32.6\n104\\tUnited Kingdom\\t             \
32.3\n105\\tCanada\\t             32.1\n106\\tBangladesh\\t             32.1\n\
107\\tSpain\\t             32.0\n108\\tCroatia\\t             32.0\n\
109\\tItaly\\t             31.9\n110\\tTimor-Leste\\t             31.9\n\
111\\tEstonia\\t             31.3\n112\\tKorea, South\\t             31.1\n\
113\\tCyprus\\t             31.0\n114\\tArmenia\\t             30.9\n\
115\\tNetherlands\\t             30.9\n116\\tEgypt\\t             30.8\n\
117\\tFrance\\t             30.6\n118\\tEuropean Union\\t             30.6\n\
119\\tPakistan\\t             30.6\n120\\tAustralia\\t             30.3\n\
121\\tKosovo\\t             30.0\n122\\tKazakhstan\\t             28.9\n\
123\\tSwitzerland\\t             28.7\n124\\tUkraine\\t             28.2\n125\
\\tBelgium\\t             28.0\n126\\tIceland\\t             28.0\n\
127\\tRomania\\t             27.4\n128\\tBelarus\\t             27.2\n\
129\\tMalta\\t             27.1\n130\\tGermany\\t             27.0\n\
131\\tFinland\\t             26.8\n132\\tAustria\\t             26.3\n\
133\\tSlovakia\\t             26.0\n134\\tLuxembourg\\t             26.0\n135\
\\tNorway\\t             25.0\n136\\tCzech Republic\\t             24.9\n\
137\\tDenmark\\t             24.8\n138\\tHungary\\t             24.7\n\
139\\tMontenegro\\t             24.3\n140\\tSlovenia\\t             23.7\n141\
\\tSweden\\t             23.0\>\""}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.61255049135397*^9, 3.612550495387041*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"GINIdataRules", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Rule", "[", 
      RowBox[{
       RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
       ",", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
        "]"}]}], "]"}], "&"}], "/@", 
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"StringTrim", "/@", 
       RowBox[{"Drop", "[", 
        RowBox[{
         RowBox[{"StringSplit", "[", 
          RowBox[{"GINIrawData", ",", 
           RowBox[{"\"\<\\t\>\"", "|", "\"\<\\n\>\""}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", 
           RowBox[{"-", "1"}], ",", "3"}], "}"}]}], "]"}]}], ",", "2"}], 
     "]"}]}]}], ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.612550446931703*^9, 3.6125505243588467`*^9}, 
   3.6125505722716007`*^9, {3.612550608355382*^9, 3.6125506409226437`*^9}, {
   3.6125513499719753`*^9, 3.6125513695469093`*^9}, 3.668685920571692*^9}],

Cell[TextData[{
 "We need to add data from the World Peace Index for the countries with \
missing data in the CIA World Factbook. Below we grab data from the last \
column in ",
 ButtonBox["http://en.wikipedia.org/wiki/List_of_countries _by _income \
_equality #List",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://en.wikipedia.org/wiki/List_of_countries_by_income_equality#\
List"], None},
  ButtonNote->
   "http://en.wikipedia.org/wiki/List_of_countries_by_income_equality#List"]
}], "Text",
 CellChangeTimes->{{3.612551618242321*^9, 3.612551633663185*^9}, {
  3.668686078180876*^9, 3.668686100442134*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"CPIGINI", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Bahrain\>\"", "->", "36.0"}], ",", 
     RowBox[{"\"\<Kuwait\>\"", "->", "30"}], ",", 
     RowBox[{"\"\<Oman\>\"", "\[Rule]", "32"}], ",", 
     RowBox[{"\"\<Saudi Arabia\>\"", "\[Rule]", "32"}], ",", 
     RowBox[{"\"\<Sudan\>\"", "->", "51"}], ",", 
     RowBox[{"\"\<United Arab Emirates\>\"", "\[Rule]", "31"}]}], "}"}]}], 
  ";"}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6125510250844717`*^9, 3.612551142639779*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["food price index", "Subsubsection",
 CellChangeTimes->{{3.668685970939855*^9, 3.668685976803269*^9}}],

Cell[TextData[{
 "The data is from: ",
 ButtonBox["http://faostat.fao.org/site/683/DesktopDefault.aspx?PageID=683# \
ancor",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://faostat.fao.org/site/683/DesktopDefault.aspx?PageID=683#\
ancor"], None},
  ButtonNote->
   "http://faostat.fao.org/site/683/DesktopDefault.aspx?PageID=683#ancor"],
 "\nAccessed 6/20/14."
}], "Text",
 CellChangeTimes->{{3.612092375790934*^9, 3.612092377141067*^9}, {
  3.6125713894565287`*^9, 3.6125714117415123`*^9}, {3.668685983413686*^9, 
  3.668685985580237*^9}}],

Cell["\<\
Countries: | Algeria | Bahrain | Egypt | Iran (Islamic Republic of) | Iraq | \
Israel | Jordan | Kuwait | Lebanon | Lebanon, Beyrouth | Mauritania | Morocco \
| Oman | Oman, Muscat | Pakistan | Qatar | Saudi Arabia, All cities | Saudi \
Arabia, Middle income group | Syrian Arab Republic | Syrian Arab Republic, \
Damas | Tunisia | Yemen |

Missing: UAE, Sudan\
\>", "Text",
 CellChangeTimes->{
  3.6120921223803043`*^9, {3.612092383662478*^9, 3.6120923853374157`*^9}, {
   3.6120970770522346`*^9, 3.612097081307496*^9}}],

Cell["\<\
Description: \[OpenCurlyDoubleQuote]Consumer price indices (CPIs) measure \
changes over time in the general level of prices of consumer goods and \
services that households acquire, use or pay for consumption. This is done by \
measuring the cost of purchasing a fixed basket of consumer goods and \
services of constant quality and similar characteristics, with the products \
in the basket being selected to be representative of households\
\[CloseCurlyQuote] expenditure during a year or other specified period.\
\[CloseCurlyDoubleQuote]\
\>", "Text",
 CellChangeTimes->{{3.612097082372273*^9, 3.612097086580407*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"foodData2010", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"FileNameJoin", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\<data\>\"", ",", 
        "\"\<foodindex\>\"", ",", "\"\<foodindex_2010.csv\>\""}], "}"}], 
      "]"}], ",", "\"\<Data\>\""}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"foodIndex2010Rules", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "\[LeftDoubleBracket]", 
        RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}], "\[Rule]", 
       RowBox[{"Identity", "[", 
        RowBox[{"#", "\[LeftDoubleBracket]", 
         RowBox[{"1", ",", 
          RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}], "]"}]}], "&"}], 
     ")"}], "/@", 
    RowBox[{"(", 
     RowBox[{"StringSplit", "/@", 
      RowBox[{"Take", "[", 
       RowBox[{"foodData2010", ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", 
          RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.612095273405219*^9, 3.612095303092228*^9}, {
  3.612095974096726*^9, 3.612095974273155*^9}, {3.61209624607873*^9, 
  3.612096262247691*^9}, {3.6120964099489317`*^9, 3.6120964127501087`*^9}, {
  3.668686007694921*^9, 3.6686860085875483`*^9}}]
}, Closed]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Analysis", "Subsection",
 CellChangeTimes->{{3.668684103839892*^9, 3.668684104768408*^9}}],

Cell[CellGroupData[{

Cell["\<\
create the Facebook graph for all countries (run this before making Figure 4)\
\
\>", "Subsubsection",
 CellChangeTimes->{{3.668686657803165*^9, 3.6686866745786943`*^9}, {
  3.668687700891655*^9, 3.668687704842147*^9}}],

Cell["Create the graph of cross-border links for all countries: ", "Text",
 CellChangeTimes->{{3.66868656054101*^9, 3.6686865699964323`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FacebookGraphReversed", "=", 
   RowBox[{"Graph", "[", "FacebookRawEdgeListReversed", "]"}]}], 
  ";"}]], "Input"],

Cell["Here\[CloseCurlyQuote]s the subgraph induced by the countries with \
protests:", "Text",
 CellChangeTimes->{{3.668686730546445*^9, 3.668686738706254*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SetProperty", "[", 
  RowBox[{
   RowBox[{"Subgraph", "[", 
    RowBox[{"FacebookGraphReversed", ",", "countriesWithProtests"}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
     RowBox[{"ImagePadding", "\[Rule]", "20"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6686867059183683`*^9, 3.6686867264623613`*^9}}],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{
      "Algeria", "Bahrain", "Djibouti", "Egypt", "Iraq", "Israel", "Jordan", 
       "Kuwait", "Lebanon", "Libya", "Mauritania", "Morocco", "Oman", 
       "Palestinian Territory", "Saudi Arabia", "Somalia", "Sudan", "Syria", 
       "Tunisia", "Yemen"}, {{{4, 1}, {4, 5}, {4, 6}, {7, 1}, {7, 4}, {7, 
       5}, {7, 6}, {4, 7}, {8, 2}, {4, 8}, {9, 7}, {9, 8}, {4, 9}, {7, 9}, {4,
        10}, {7, 10}, {1, 11}, {12, 1}, {12, 3}, {12, 10}, {12, 11}, {4, 
       13}, {14, 4}, {14, 6}, {14, 7}, {4, 14}, {6, 14}, {7, 14}, {15, 2}, {
       15, 4}, {15, 5}, {15, 7}, {15, 8}, {15, 9}, {15, 10}, {15, 11}, {15, 
       13}, {15, 14}, {4, 15}, {7, 15}, {16, 3}, {3, 16}, {17, 15}, {4, 17}, {
       15, 17}, {18, 9}, {4, 18}, {7, 18}, {9, 18}, {15, 18}, {19, 1}, {19, 
       4}, {19, 10}, {19, 12}, {1, 19}, {4, 19}, {12, 19}, {15, 19}, {20, 
       15}, {4, 20}, {7, 20}, {15, 20}}, Null}, {
      ImagePadding -> 20, ImageSize -> Large, VertexLabels -> {"Name"}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[Medium], 
        ArrowBox[{{2.2513759266446485`, 0.945316238547605}, {
         2.5808060514571842`, 1.7520011411371588`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{2.2513759266446485`, 0.945316238547605}, {
         2.0968383164378968`, 1.2107153430825746`}, {2.1299989201257485`, 
         1.5160330989057926`}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{4.931553121158313, 1.268391711625827}, {
         5.530053960545479, 1.4634183885804661`}, {6.127480944085147, 
         1.2651265359747732`}}], 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {
         2.2513759266446485`, 0.945316238547605}}, 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {
         1.4203163596037403`, 0.41836014471556815`}}, 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {
         0.2025052254065851, 0.}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.9553344658146709, 1.142755402447198}, {
         0.9621960743942958, 0.9646895123292538}, {0.862025149918305, 
         0.8173113294631842}}], 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {
         0.17434490802749258`, 2.1796407708603907`}}, 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {
         0.05341352019084766, 1.4921408965218128`}}, 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {1.88705610474557, 
         1.1283842658358316`}}, 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {
         1.2340118313717192`, 2.391911755658472}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.9553344658146709, 1.142755402447198}, {
         0.7031382152390934, 0.7272958120747265}, {0.25357270620831884`, 
         0.5426326778909649}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.9553344658146709, 1.142755402447198}, {
         0.9318044715124785, 1.3319062472272878`}, {1.0251404724883846`, 
         1.4980991882181318`}}], 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {
         0.9583952307371174, 0.12572030330468542`}}, 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {0., 
         1.0360675426261068`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.9553344658146709, 1.142755402447198}, {
         1.4812846296577673`, 1.522556951232952}, {2.1299989201257485`, 
         1.5160330989057926`}}], 0.04912989927262383], 
        ArrowBox[{{0.9553344658146709, 1.142755402447198}, {
         0.5137573118541687, 1.7443219432716908`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.2025052254065851, 0.}, {
         0.13880804280908632`, 0.27971391364526993`}, {0.25357270620831884`, 
         0.5426326778909649}}], 0.04912989927262383], 
        ArrowBox[{{0.862025149918305, 0.8173113294631842}, {
         2.2513759266446485`, 0.945316238547605}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.862025149918305, 0.8173113294631842}, {
         0.855163541338678, 0.9953772195794431}, {0.9553344658146709, 
         1.142755402447198}}], 0.04912989927262383], 
        ArrowBox[{{0.862025149918305, 0.8173113294631842}, {
         1.4203163596037403`, 0.41836014471556815`}}, 0.04912989927262383], 
        ArrowBox[{{0.862025149918305, 0.8173113294631842}, {
         0.2025052254065851, 0.}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.862025149918305, 0.8173113294631842}, {
         0.3467498568261978, 1.0217574124191047`}, {0.05341352019084766, 
         1.4921408965218128`}}], 0.04912989927262383], 
        ArrowBox[{{0.862025149918305, 0.8173113294631842}, {1.88705610474557, 
         1.1283842658358316`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.862025149918305, 0.8173113294631842}, {
         0.6029672907630986, 0.579917629207863}, {0.25357270620831884`, 
         0.5426326778909649}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.862025149918305, 0.8173113294631842}, {
         0.8316335470364851, 1.184528064361273}, {1.0251404724883846`, 
         1.4980991882181318`}}], 0.04912989927262383], 
        ArrowBox[{{0.862025149918305, 0.8173113294631842}, {0., 
         1.0360675426261068`}}, 0.04912989927262383], 
        ArrowBox[{{0.862025149918305, 0.8173113294631842}, {
         0.5137573118541687, 1.7443219432716908`}}, 0.04912989927262383], 
        ArrowBox[{{0.17434490802749258`, 2.1796407708603907`}, {
         0.3047641649525299, 2.8660324265985677`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.05341352019084766, 1.4921408965218128`}, {
         0.5686888132829541, 1.287694813565799}, {0.862025149918305, 
         0.8173113294631842}}], 0.04912989927262383], 
        ArrowBox[{{0.05341352019084766, 1.4921408965218128`}, {
         0.17434490802749258`, 2.1796407708603907`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.05341352019084766, 1.4921408965218128`}, {
         0.10170380318034397`, 1.2553208604042556`}, {0., 
         1.0360675426261068`}}], 0.04912989927262383], 
        ArrowBox[{{3.274798795011435, 1.2753784662264558`}, {
         2.2513759266446485`, 0.945316238547605}}, 0.04912989927262383], 
        ArrowBox[{{3.274798795011435, 1.2753784662264558`}, {
         4.931553121158313, 1.268391711625827}}, 0.04912989927262383], 
        ArrowBox[{{3.274798795011435, 1.2753784662264558`}, {1.88705610474557,
          1.1283842658358316`}}, 0.04912989927262383], 
        ArrowBox[{{3.274798795011435, 1.2753784662264558`}, {
         2.5808060514571842`, 1.7520011411371588`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{3.274798795011435, 1.2753784662264558`}, {
         2.662825429957722, 1.20745403576344}, {2.1299989201257485`, 
         1.5160330989057926`}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.25357270620831884`, 0.5426326778909649}, {
         0.505768956783898, 0.9580922682633058}, {0.9553344658146709, 
         1.142755402447198}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.25357270620831884`, 0.5426326778909649}, {
         0.317269888805818, 0.26291876424568283`}, {0.2025052254065851, 0.}}],
          0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.25357270620831884`, 0.5426326778909649}, {
         0.512630565363523, 0.7800263781463752}, {0.862025149918305, 
         0.8173113294631842}}], 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         0.3047641649525299, 2.8660324265985677`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         1.0486704667905802`, 1.3089483434482414`}, {0.9553344658146709, 
         1.142755402447198}}], 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         1.4203163596037403`, 0.41836014471556815`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         1.055532075370202, 1.1308824533201989`}, {0.862025149918305, 
         0.8173113294631842}}], 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         0.17434490802749258`, 2.1796407708603907`}}, 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         0.05341352019084766, 1.4921408965218128`}}, 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         1.88705610474557, 1.1283842658358316`}}, 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         2.5808060514571842`, 1.7520011411371588`}}, 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         1.2340118313717192`, 2.391911755658472}}, 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         0.25357270620831884`, 0.5426326778909649}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         1.2174428608662509`, 0.8009341083369367}, {0.9583952307371174, 
         0.12572030330468542`}}], 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {0., 
         1.0360675426261068`}}, 0.04912989927262383], 
        ArrowBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         2.1299989201257485`, 1.5160330989057926`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{1.0251404724883846`, 1.4980991882181318`}, {
         0.7289598383567814, 1.5371183367131986`}, {0.5137573118541687, 
         1.7443219432716908`}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{6.127480944085147, 1.2651265359747732`}, {
         5.528980104697991, 1.0700998590209367`}, {4.931553121158313, 
         1.268391711625827}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.9583952307371174, 0.12572030330468542`}, {
         0.7660928423592527, 0.8228853831859615}, {1.0251404724883846`, 
         1.4980991882181318`}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0., 
         1.0360675426261068`}, {-0.048290282989496294`, 
         1.2728875787439775`}, {0.05341352019084766, 1.4921408965218128`}}], 
         0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{2.1299989201257485`, 1.5160330989057926`}, {
         2.284536530332501, 1.2506339943722808`}, {2.2513759266446485`, 
         0.945316238547605}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{2.1299989201257485`, 1.5160330989057926`}, {
         1.6040487562826509`, 1.13623155011963}, {0.9553344658146709, 
         1.142755402447198}}], 0.04912989927262383], 
        ArrowBox[{{2.1299989201257485`, 1.5160330989057926`}, {
         1.88705610474557, 1.1283842658358316`}}, 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{2.1299989201257485`, 1.5160330989057926`}, {
         2.741972285179466, 1.5839575293688641`}, {3.274798795011435, 
         1.2753784662264558`}}], 0.04912989927262383], 
        ArrowBox[BezierCurveBox[{{0.5137573118541687, 1.7443219432716908`}, {
         0.8099379459857738, 1.705302794774796}, {1.0251404724883846`, 
         1.4980991882181318`}}], 0.04912989927262383]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {
         DiskBox[{2.2513759266446485`, 0.945316238547605}, 
          0.04912989927262383], 
         InsetBox["\<\"Algeria\"\>", 
          Offset[{2, 2}, {2.300505825917272, 0.9944461378202288}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.3047641649525299, 2.8660324265985677`}, 
          0.04912989927262383], 
         InsetBox["\<\"Bahrain\"\>", 
          Offset[{2, 2}, {0.35389406422515374`, 2.9151623258711914`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{4.931553121158313, 1.268391711625827}, 0.04912989927262383],
          InsetBox["\<\"Djibouti\"\>", 
          Offset[{2, 2}, {4.980683020430937, 1.3175216108984509`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.9553344658146709, 1.142755402447198}, 
          0.04912989927262383], 
         InsetBox["\<\"Egypt\"\>", 
          Offset[{2, 2}, {1.0044643650872946`, 1.1918853017198219`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.4203163596037403`, 0.41836014471556815`}, 
          0.04912989927262383], 
         InsetBox["\<\"Iraq\"\>", 
          Offset[{2, 2}, {1.4694462588763642`, 0.467490043988192}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.2025052254065851, 0.}, 0.04912989927262383], 
         InsetBox["\<\"Israel\"\>", 
          Offset[{2, 2}, {0.25163512467920895`, 0.04912989927262383}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.862025149918305, 0.8173113294631842}, 
          0.04912989927262383], 
         InsetBox["\<\"Jordan\"\>", 
          Offset[{2, 2}, {0.9111550491909288, 0.866441228735808}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.17434490802749258`, 2.1796407708603907`}, 
          0.04912989927262383], 
         InsetBox["\<\"Kuwait\"\>", 
          Offset[{2, 2}, {0.22347480730011643`, 2.2287706701330143`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.05341352019084766, 1.4921408965218128`}, 
          0.04912989927262383], 
         InsetBox["\<\"Lebanon\"\>", 
          Offset[{2, 2}, {0.1025434194634715, 1.5412707957944367`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.88705610474557, 1.1283842658358316`}, 
          0.04912989927262383], 
         InsetBox["\<\"Libya\"\>", 
          Offset[{2, 2}, {1.936186004018194, 1.1775141651084555`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.5808060514571842`, 1.7520011411371588`}, 
          0.04912989927262383], 
         InsetBox["\<\"Mauritania\"\>", 
          Offset[{2, 2}, {2.629935950729808, 1.8011310404097827`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{3.274798795011435, 1.2753784662264558`}, 
          0.04912989927262383], 
         InsetBox["\<\"Morocco\"\>", 
          Offset[{2, 2}, {3.3239286942840587`, 1.3245083654990797`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.2340118313717192`, 2.391911755658472}, 
          0.04912989927262383], 
         InsetBox["\<\"Oman\"\>", 
          Offset[{2, 2}, {1.2831417306443431`, 2.441041654931096}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.25357270620831884`, 0.5426326778909649}, 
          0.04912989927262383], 
         InsetBox["\<\"Palestinian Territory\"\>", 
          Offset[{2, 2}, {0.3027026054809427, 0.5917625771635887}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.0251404724883846`, 1.4980991882181318`}, 
          0.04912989927262383], 
         InsetBox["\<\"Saudi Arabia\"\>", 
          Offset[{2, 2}, {1.0742703717610085`, 1.5472290874907557`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{6.127480944085147, 1.2651265359747732`}, 
          0.04912989927262383], 
         InsetBox["\<\"Somalia\"\>", 
          Offset[{2, 2}, {6.176610843357771, 1.314256435247397}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.9583952307371174, 0.12572030330468542`}, 
          0.04912989927262383], 
         InsetBox["\<\"Sudan\"\>", 
          Offset[{2, 2}, {1.0075251300097412`, 0.17485020257730927`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0., 1.0360675426261068`}, 0.04912989927262383], 
         InsetBox["\<\"Syria\"\>", 
          Offset[{2, 2}, {0.04912989927262383, 1.0851974418987307`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.1299989201257485`, 1.5160330989057926`}, 
          0.04912989927262383], 
         InsetBox["\<\"Tunisia\"\>", 
          Offset[{2, 2}, {2.179128819398372, 1.5651629981784165`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.5137573118541687, 1.7443219432716908`}, 
          0.04912989927262383], 
         InsetBox["\<\"Yemen\"\>", 
          Offset[{2, 2}, {0.5628872111267925, 1.7934518425443147`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FormatType->TraditionalForm,
  FrameTicks->None,
  ImagePadding->20,
  ImageSize->Large]], "Output",
 CellChangeTimes->{{3.668686703161519*^9, 3.668686726925487*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["code to make Figure 4", "Subsubsection",
 CellChangeTimes->{{3.668687312339828*^9, 3.668687316649597*^9}, 
   3.668687478719954*^9, {3.6686933236688023`*^9, 3.66869335756061*^9}}],

Cell[BoxData[
 RowBox[{"ClearAll", "@", "visualizeFacebookGraphForThePaper"}]], "Input",
 CellChangeTimes->{{3.668687327591072*^9, 3.668687330725528*^9}}],

Cell[BoxData["internetPenetrationIn2010ForCountriesInvolvedInArabSpringRules"]\
, "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"visualizeFacebookGraphForThePaper", "[", 
    RowBox[{
    "countriesToExamineInput_", ",", "yaxisLabel_", ",", "vertexSize_", ",", 
     RowBox[{"OptionsPattern", "[", "]"}]}], "]"}], ":=", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"graph", ",", "countriesToExamine", ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"countriesToExamine", "=", 
          RowBox[{"Cases", "[", 
           RowBox[{"countriesWithProtests", ",", 
            RowBox[{"Except", "[", 
             RowBox[{
             "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
              "\"\<Israel\>\""}], "]"}]}], "]"}]}], ","}], "*)"}], "xaxis", 
       ",", "yaxis", ",", 
       RowBox[{"(*", 
        RowBox[{"yaxisLabel", ","}], "*)"}], 
       RowBox[{"(*", 
        RowBox[{"vertexSize", ","}], "*)"}], "vertexSizeData", ",", "coord", 
       ",", "coordDate", ",", 
       RowBox[{"stretchFactor", "=", 
        RowBox[{"OptionValue", "[", "\"\<HorizontalStretch\>\"", "]"}]}], ",", 
       RowBox[{"fs", "=", "14"}], ",", 
       RowBox[{"fsTicks", "=", "11"}], ",", 
       RowBox[{"font", "=", "\"\<Times\>\""}], ",", "vertexSizeRules", ",", 
       "vertexStyleRules", ",", "vertexSizeInset", ",", "aspectRatio", ",", 
       "linearFit", ",", "linearFitDateVersusYAxis", ",", 
       "countriesRepresentativeOfVertexSize", ",", 
       RowBox[{"vertexSizeLegendPosition", "=", 
        RowBox[{
        "OptionValue", "[", "\"\<VertexSizeLegendPosition\>\"", "]"}]}]}], 
      "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"aspectRatio", "=", 
       RowBox[{"OptionValue", "[", "\"\<AspectRatio\>\"", "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"countriesToExamine", "=", "countriesToExamineInput"}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"yaxis", "=", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"Switch", "[", 
            RowBox[{
            "yaxisLabel", ",", "\[IndentingNewLine]", 
             "\"\<Internet penetration\>\"", ",", 
             "internetPenetrationIn2010ForCountriesInvolvedInArabSpringRules",
              ",", "\[IndentingNewLine]", "\"\<unemployment\>\"", ",", 
             "unemploymentRatioIn2010ForCountriesInvolvedInArabSpringRules", 
             ",", "\[IndentingNewLine]", "\"\<GDP per capita\>\"", ",", 
             "gdpPerCapitaIn2010ForCountriesInvolvedInArabSpringRules", ",", 
             "\[IndentingNewLine]", "\"\<GNI per capita\>\"", ",", 
             "gniPerCapitaIn2010ForCountriesInvolvedInArabSpringRules", ",", 
             "\[IndentingNewLine]", "\"\<Gini coefficient\>\"", ",", 
             RowBox[{"GINIdataRules", "~", "Join", "~", "CPIGINI"}], ",", 
             "\[IndentingNewLine]", 
             "\"\<unemployment of young men (age 15\[Dash]34)\>\"", ",", 
             "youngMenUnemployment2010ForCountriesInvolvedInArabSpringRules", 
             "\[IndentingNewLine]", ",", "\"\<freedom of press\>\"", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\"\<country\>\"", "/.", "#"}], ")"}], "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{"\"\<value\>\"", "/.", "#"}], ")"}]}], ")"}], "&"}],
               "/@", 
              RowBox[{"Select", "[", 
               RowBox[{"freedomOfPressDataRules", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\"\<year\>\"", "/.", "#"}], ")"}], "\[Equal]", 
                  "2010"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
             "\"\<political freedom\>\"", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\"\<country\>\"", "/.", "#"}], ")"}], "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{"\"\<value\>\"", "/.", "#"}], ")"}]}], ")"}], "&"}],
               "/@", 
              RowBox[{"Select", "[", 
               RowBox[{"politicalFreedomDataRules", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\"\<year\>\"", "/.", "#"}], ")"}], "\[Equal]", 
                  "2010"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
             "\"\<web freedom\>\"", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\"\<country\>\"", "/.", "#"}], ")"}], "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{"\"\<value\>\"", "/.", "#"}], ")"}]}], ")"}], "&"}],
               "/@", 
              RowBox[{"Select", "[", 
               RowBox[{"webFreedomDataRules", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\"\<year\>\"", "/.", "#"}], ")"}], "\[Equal]", 
                  "2011"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
             "\"\<civil liberties\>\"", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\"\<country\>\"", "/.", "#"}], ")"}], "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{"\"\<value\>\"", "/.", "#"}], ")"}]}], ")"}], "&"}],
               "/@", 
              RowBox[{"Select", "[", 
               RowBox[{"civilLibertiesDataRules", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\"\<year\>\"", "/.", "#"}], ")"}], "\[Equal]", 
                  "2010"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
             "\"\<GDP per capita (fuzzy)\>\"", ",", "gdppcFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<Gini (fuzzy)\>\"", ",", 
             "giniFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Unemployment (fuzzy)\>\"", ",", "unempFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<Urban (fuzzy)\>\"", ",", 
             "urbanFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Youth (fuzzy)\>\"", ",", "youthFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<Mobile (fuzzy)\>\"", ",", 
             "mobileFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Internet (fuzzy)\>\"", ",", "internetFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<Fuel (fuzzy)\>\"", ",", 
             "fuelFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Polity (1 = democracy, 0 = autocracy) (fuzzy)\>\"", ",", 
             "polFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Success (fuzzy)\>\"", ",", "successFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<food prices\>\"", ",", 
             "foodIndex2010Rules"}], "\[IndentingNewLine]", "]"}], 
           "\[IndentingNewLine]", ",", "countriesToExamine"}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Last", "[", "#", "]"}], "=!=", "\"\<\>\""}], "&"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"countriesToExamine", "=", 
       RowBox[{"Intersection", "[", 
        RowBox[{"countriesToExamine", ",", 
         RowBox[{"First", "/@", "yaxis"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"xaxis", "=", 
       RowBox[{"FilterRules", "[", 
        RowBox[{"datesOfProtestsRules", ",", "countriesToExamine"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"graph", "=", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", "countriesToExamine"}], "]"}]}],
       ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"vertexSizeData", "=", 
       RowBox[{"Select", "[", 
        RowBox[{
         RowBox[{"FilterRules", "[", 
          RowBox[{
           RowBox[{"Switch", "[", 
            RowBox[{
            "vertexSize", ",", "\[IndentingNewLine]", 
             "\"\<Internet penetration\>\"", ",", 
             "internetPenetrationIn2010ForCountriesInvolvedInArabSpringRules",
              ",", "\[IndentingNewLine]", "\"\<unemployment\>\"", ",", 
             "unemploymentRatioIn2010ForCountriesInvolvedInArabSpringRules", 
             ",", "\[IndentingNewLine]", "\"\<GDP per capita\>\"", ",", 
             "gdpPerCapitaIn2010ForCountriesInvolvedInArabSpringRules", ",", 
             "\[IndentingNewLine]", "\"\<GNI per capita\>\"", ",", 
             "gniPerCapitaIn2010ForCountriesInvolvedInArabSpringRules", ",", 
             "\[IndentingNewLine]", "\"\<Gini coefficient\>\"", ",", 
             RowBox[{"GINIdataRules", "~", "Join", "~", "CPIGINI"}], ",", 
             "\[IndentingNewLine]", 
             "\"\<unemployment of young men (age 15\[Dash]34)\>\"", ",", 
             "youngMenUnemployment2010ForCountriesInvolvedInArabSpringRules", 
             "\[IndentingNewLine]", ",", "\"\<freedom of press\>\"", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\"\<country\>\"", "/.", "#"}], ")"}], "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{"\"\<value\>\"", "/.", "#"}], ")"}]}], ")"}], "&"}],
               "/@", 
              RowBox[{"Select", "[", 
               RowBox[{"freedomOfPressDataRules", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\"\<year\>\"", "/.", "#"}], ")"}], "\[Equal]", 
                  "2010"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
             "\"\<political freedom\>\"", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\"\<country\>\"", "/.", "#"}], ")"}], "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{"\"\<value\>\"", "/.", "#"}], ")"}]}], ")"}], "&"}],
               "/@", 
              RowBox[{"Select", "[", 
               RowBox[{"politicalFreedomDataRules", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\"\<year\>\"", "/.", "#"}], ")"}], "\[Equal]", 
                  "2010"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
             "\"\<web freedom\>\"", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\"\<country\>\"", "/.", "#"}], ")"}], "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{"\"\<value\>\"", "/.", "#"}], ")"}]}], ")"}], "&"}],
               "/@", 
              RowBox[{"Select", "[", 
               RowBox[{"webFreedomDataRules", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\"\<year\>\"", "/.", "#"}], ")"}], "\[Equal]", 
                  "2011"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
             "\"\<civil liberties\>\"", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"\"\<country\>\"", "/.", "#"}], ")"}], "\[Rule]", 
                 RowBox[{"(", 
                  RowBox[{"\"\<value\>\"", "/.", "#"}], ")"}]}], ")"}], "&"}],
               "/@", 
              RowBox[{"Select", "[", 
               RowBox[{"civilLibertiesDataRules", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"\"\<year\>\"", "/.", "#"}], ")"}], "\[Equal]", 
                  "2010"}], "&"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
             "\"\<GDP per capita (fuzzy)\>\"", ",", "gdppcFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<Gini (fuzzy)\>\"", ",", 
             "giniFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Unemployment (fuzzy)\>\"", ",", "unempFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<Urban (fuzzy)\>\"", ",", 
             "urbanFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Youth (fuzzy)\>\"", ",", "youthFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<Mobile (fuzzy)\>\"", ",", 
             "mobileFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Internet (fuzzy)\>\"", ",", "internetFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<Fuel (fuzzy)\>\"", ",", 
             "fuelFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Polity (1 = democracy, 0 = autocracy) (fuzzy)\>\"", ",", 
             "polFuzzy", "\[IndentingNewLine]", ",", 
             "\"\<Success (fuzzy)\>\"", ",", "successFuzzy", 
             "\[IndentingNewLine]", ",", "\"\<food prices (2010)\>\"", ",", 
             "foodIndex2010Rules", "\[IndentingNewLine]", ",", 
             "\"\<food prices (2011)\>\"", ",", "foodIndex2010Rules"}], 
            "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", ",", 
           "countriesToExamine"}], "]"}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{"Last", "[", "#", "]"}], "=!=", "\"\<\>\""}], "&"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"vertexSizeRules", "=", 
       RowBox[{"Map", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
            "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
            "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"OptionValue", "[", "\"\<VertexSizeStretch\>\"", "]"}], 
              " ", 
              RowBox[{"{", 
               RowBox[{
                FractionBox[
                 RowBox[{
                 "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], 
                 
                 RowBox[{"Max", "[", 
                  RowBox[{"Last", "/@", 
                   RowBox[{"FilterRules", "[", 
                    RowBox[{"vertexSizeData", ",", "countriesToExamine"}], 
                    "]"}]}], "]"}]], ",", 
                FractionBox[
                 RowBox[{
                  RowBox[{
                  "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}],
                   " ", 
                  RowBox[{
                  "OptionValue", "[", "\"\<VertexSizeVerticalStretch\>\"", 
                   "]"}], 
                  RowBox[{"(*", 
                   RowBox[{"/", "10"}], "*)"}]}], 
                 RowBox[{"Max", "[", 
                  RowBox[{"Last", "/@", 
                   RowBox[{"FilterRules", "[", 
                    RowBox[{"vertexSizeData", ",", "countriesToExamine"}], 
                    "]"}]}], "]"}]]}], "}"}]}], ")"}]}], ")"}], "&"}], ",", 
         RowBox[{"FilterRules", "[", 
          RowBox[{"vertexSizeData", ",", "countriesToExamine"}], "]"}]}], 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"vertexStyleRules", "=", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"#", "\[Rule]", 
            RowBox[{
             RowBox[{"ColorData", "[", 
              RowBox[{"OptionValue", "[", "\"\<ColorScheme\>\"", "]"}], "]"}],
              "[", 
             FractionBox[
              RowBox[{"VertexOutDegree", "[", 
               RowBox[{"graph", ",", "#"}], "]"}], 
              RowBox[{"Max", "[", 
               RowBox[{"VertexOutDegree", "[", "graph", "]"}], "]"}]], 
             "]"}]}], "\[IndentingNewLine]", ")"}], "&"}], "/@", 
         RowBox[{"VertexList", "[", "graph", "]"}]}], ")"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"vertexSizeInset", "=", 
       RowBox[{"Labeled", "[", 
        RowBox[{
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Circle", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", 
                   RowBox[{
                    RowBox[{"#", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], "/", 
                    "4."}]}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"#", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], ",", 
                    RowBox[{"#", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], 
                   "}"}], "/", "4."}]}], "]"}], ",", 
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"Text", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"ToString", "[", 
                    RowBox[{"Round", "@", 
                    RowBox[{"Last", "[", "#", "]"}]}], "]"}], "<>", 
                    "\"\< %\>\""}], ",", 
                   RowBox[{"{", 
                    RowBox[{"2", ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], "/", 
                    "4."}], "+", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"#", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}], "/", 
                    "4."}], "*", ".9"}]}]}], "}"}]}], "]"}], ",", 
                 RowBox[{"FontFamily", "\[Rule]", "font"}]}], "]"}]}], "}"}], 
             "&"}], "/@", "\[IndentingNewLine]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"First", "[", "#", "]"}], ",", 
                  RowBox[{"(*", 
                   RowBox[{
                    RowBox[{"Part", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"Round", "[", 
                    RowBox[{
                    RowBox[{"Length", "[", "#", "]"}], "*", ".25"}], "]"}]}], 
                    "]"}], ","}], "*)"}], 
                  RowBox[{"(*", 
                   RowBox[{
                    RowBox[{"Part", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"IntegerPart", "[", 
                    RowBox[{
                    RowBox[{"Length", "[", "#", "]"}], "/", "2."}], "]"}]}], 
                    "]"}], ","}], "*)"}], 
                  RowBox[{"(*", 
                   RowBox[{
                    RowBox[{"Part", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"IntegerPart", "[", 
                    RowBox[{
                    RowBox[{"Length", "[", "#", "]"}], "*", ".85"}], "]"}]}], 
                    "]"}], ","}], "*)"}], 
                  RowBox[{"#", "\[LeftDoubleBracket]", 
                   RowBox[{"-", "2"}], "\[RightDoubleBracket]"}], ",", 
                  RowBox[{"Last", "[", "#", "]"}]}], "}"}], "&"}], "[", 
               RowBox[{"SortBy", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"List", "@@", "#"}], "&"}], "/@", 
                  RowBox[{"FilterRules", "[", 
                   RowBox[{"vertexSizeData", ",", "countriesToExamine"}], 
                   "]"}]}], ",", "Last"}], "]"}], "]"}], "/.", 
              "vertexSizeRules"}], ")"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "75"}]}], "]"}], ",", 
         RowBox[{"Column", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<vertex size \[Proportional]\>\"", ",", 
              RowBox[{"FontFamily", "\[Rule]", "font"}]}], "]"}], ",", 
            RowBox[{"Style", "[", 
             RowBox[{"vertexSize", ",", 
              RowBox[{"FontFamily", "\[Rule]", "font"}]}], "]"}]}], "}"}], 
          "]"}], ",", "Top"}], "]"}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "coordinates", " ", "of", " ", "the", " ", "countries", " ", "in", " ",
         "the", " ", "plot"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"coord", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"#", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"#", "/.", 
                  RowBox[{"(*", "xaxis", "*)"}], 
                  RowBox[{"FilterRules", "[", 
                   RowBox[{
                   "rescaledProtestOutbreakDatesRulesAll", ",", 
                    "countriesToExamine"}], "]"}]}], ")"}], "/.", 
                RowBox[{"{", 
                 RowBox[{"2.", "\[Rule]", 
                  RowBox[{
                  "OptionValue", "[", "\"\<NoProtestPosition\>\"", "]"}]}], 
                 "}"}]}], ")"}], "*", "stretchFactor"}], ",", 
             RowBox[{"#", "/.", "yaxis"}]}], "}"}]}], ")"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"First", "/@", "yaxis"}], ")"}]}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"coordDate", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"#", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"#", "/.", "xaxis"}], ")"}], ",", 
             RowBox[{"#", "/.", "yaxis"}]}], "}"}]}], ")"}], "&"}], "/@", 
        RowBox[{"(", 
         RowBox[{"First", "/@", 
          RowBox[{"FilterRules", "[", 
           RowBox[{"yaxis", ",", "countriesToExamine"}], "]"}]}], ")"}]}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"linearFit", " ", "=", " ", 
       RowBox[{"LinearModelFit", "[", 
        RowBox[{
         RowBox[{"Select", "[", 
          RowBox[{
           RowBox[{"Last", "/@", "coord"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"First", "[", "#", "]"}], "\[NotEqual]", "2."}], "&"}]}],
           "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "t"}], "}"}], ",", "t"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"linearFitDateVersusYAxis", " ", "=", " ", 
       RowBox[{"LinearModelFit", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
             "#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], ",", 
             RowBox[{"AbsoluteTime", "[", 
              RowBox[{
              "#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], 
              "]"}]}], "}"}], "&"}], "/@", 
          RowBox[{"Select", "[", 
           RowBox[{
            RowBox[{"Last", "/@", "coordDate"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"First", "[", "#", "]"}], "=!=", "None"}], "&"}]}], 
           "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "t"}], "}"}], ",", "t"}], "]"}]}], ";", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"(*", " ", 
       RowBox[{
       "pick", " ", "two", " ", "countries", " ", "of", " ", "intermediate", 
        " ", "and", " ", "large", " ", "vertex", " ", "size", " ", "in", " ", 
        "order", " ", "to", " ", "make", " ", "a", " ", "legend", " ", "of", 
        " ", "vertex", " ", "size"}], " ", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"countriesRepresentativeOfVertexSize", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"#", "\[LeftDoubleBracket]", 
            RowBox[{
             RowBox[{"Ceiling", "[", 
              RowBox[{
               RowBox[{"Length", "[", "#", "]"}], "*", ".7"}], "]"}], ",", 
             "1"}], "\[RightDoubleBracket]"}], ",", 
           RowBox[{"#", "\[LeftDoubleBracket]", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1"}], "\[RightDoubleBracket]"}]}], 
          "}"}], "&"}], "@", 
        RowBox[{"SortBy", "[", 
         RowBox[{
         "internetPenetrationIn2010ForCountriesInvolvedInArabSpringRules", 
          ",", "Last"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
      "\[IndentingNewLine]", 
      RowBox[{"Row", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Show", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"ListPlot", "[", 
            RowBox[{
             RowBox[{"Last", "/@", "coord"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
             RowBox[{"Prolog", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Length", "[", 
                   RowBox[{"Intersection", "[", 
                    RowBox[{
                    "countriesThatDidNotProtest", ",", "countriesToExamine"}],
                     "]"}], "]"}], ">", "0"}], ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"Opacity", "[", ".3", "]"}], ",", "Gray", ",", 
                   RowBox[{"Rectangle", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    FractionBox["1", "2"], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    "OptionValue", "[", "\"\<NoProtestPosition\>\"", "]"}], 
                    "*", "stretchFactor"}], "+", 
                    RowBox[{"RankedMax", "[", 
                    RowBox[{
                    RowBox[{"First", "/@", 
                    RowBox[{"Last", "/@", "coord"}]}], ",", "3"}], "]"}]}], 
                    ")"}]}], ",", 
                    RowBox[{"-", "100"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    "OptionValue", "[", "\"\<NoProtestPosition\>\"", "]"}], 
                    "+", "1"}], ")"}], "*", "stretchFactor"}], ",", "1000"}], 
                    "}"}]}], "]"}]}], "}"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}], "}"}]}], ",", 
             RowBox[{"PlotMarkers", "\[Rule]", "\"\<\>\""}]}], "]"}], ",", 
           "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"SetProperty", "[", 
            RowBox[{
             RowBox[{"HighlightGraph", "[", 
              RowBox[{"graph", ",", 
               RowBox[{"OptionValue", "[", "\"\<Highlight\>\"", "]"}]}], 
              "]"}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"VertexLabels", "\[Rule]", 
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"v", "\[Rule]", 
                   RowBox[{"Placed", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"v", "/.", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<United Arab Emirates\>\"", "\[Rule]", 
                    "\"\<U.A.E.\>\""}], "}"}]}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}], ",", 
                    RowBox[{"FontSize", "\[Rule]", 
                    RowBox[{"fsTicks", "+", "1"}]}]}], "]"}], ",", 
                    RowBox[{"v", "/.", 
                    RowBox[{
                    "OptionValue", "[", "\"\<VertexLabelPositions\>\"", 
                    "]"}]}]}], "]"}]}], ",", 
                  RowBox[{"{", 
                   RowBox[{"v", ",", 
                    RowBox[{"VertexList", "[", "graph", "]"}]}], "}"}]}], 
                 "]"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
               RowBox[{"VertexCoordinates", "\[Rule]", 
                RowBox[{"Evaluate", "[", 
                 RowBox[{
                  RowBox[{"VertexList", "[", "graph", "]"}], "/.", "coord"}], 
                 "]"}]}], ",", "\[IndentingNewLine]", 
               RowBox[{"EdgeStyle", "\[Rule]", "\[IndentingNewLine]", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"First", "[", "#", "]"}], "\[Rule]", 
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"Thickness", "[", 
                    RowBox[{".0010", 
                    RowBox[{"(", 
                    RowBox[{"6", "-", 
                    RowBox[{"#", "\[LeftDoubleBracket]", 
                    RowBox[{
                    RowBox[{"-", "1"}], ",", "2"}], 
                    "\[RightDoubleBracket]"}]}], ")"}]}], "]"}], ",", 
                    RowBox[{"Opacity", "[", ".5", "]"}], ",", 
                    RowBox[{"Arrowheads", "[", ".03", "]"}]}], "]"}]}], ")"}],
                    "&"}], "/@", 
                  RowBox[{"Select", "[", 
                   RowBox[{
                    RowBox[{"Flatten", "[", 
                    RowBox[{"FacebookRawEdgeList", ",", "1"}], "]"}], ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"MemberQ", "[", 
                    RowBox[{"countriesToExamine", ",", 
                    RowBox[{"#", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "1"}], "\[RightDoubleBracket]"}]}], 
                    "]"}], "&&", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{"countriesToExamine", ",", 
                    RowBox[{"#", "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", "2"}], "\[RightDoubleBracket]"}]}], 
                    "]"}]}], "&"}]}], "]"}]}], ")"}]}], "\[IndentingNewLine]",
                ",", 
               RowBox[{"VertexSize", "\[Rule]", "vertexSizeRules"}], ",", 
               RowBox[{"VertexStyle", "\[Rule]", "vertexStyleRules"}]}], 
              "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
           "\[IndentingNewLine]", 
           RowBox[{"Graph", "[", 
            RowBox[{"countriesRepresentativeOfVertexSize", ",", 
             RowBox[{"{", "}"}], ",", 
             RowBox[{"VertexSize", "\[Rule]", 
              RowBox[{"FilterRules", "[", 
               RowBox[{
               "vertexSizeRules", ",", 
                "countriesRepresentativeOfVertexSize"}], "]"}]}], ",", 
             RowBox[{"VertexCoordinates", "\[Rule]", 
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{"v", "\[Rule]", 
                 RowBox[{"vertexSizeLegendPosition", "+", 
                  RowBox[{"{", 
                   RowBox[{"0", ",", 
                    RowBox[{"First", "[", 
                    RowBox[{"v", "/.", "vertexSizeRules"}], "]"}]}], 
                   "}"}]}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"v", ",", "countriesRepresentativeOfVertexSize"}], 
                 "}"}]}], "]"}]}], ",", 
             RowBox[{"VertexStyle", "\[Rule]", 
              RowBox[{"Directive", "[", 
               RowBox[{"Opacity", "[", "0", "]"}], "]"}]}], ",", 
             RowBox[{"PlotLabel", "\[Rule]", 
              RowBox[{"Style", "[", 
               RowBox[{"vertexSize", ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Times\>\""}], ",", 
                  RowBox[{"Background", "\[Rule]", "Yellow"}]}], "}"}]}], 
               "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"VertexLabels", "\[Rule]", 
              RowBox[{"MapIndexed", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                  "#1", "\[LeftDoubleBracket]", "1", 
                   "\[RightDoubleBracket]"}], "\[Rule]", 
                  RowBox[{"Placed", "[", 
                   RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"ToString", "[", 
                    RowBox[{"Round", "@", 
                    RowBox[{
                    "#1", "\[LeftDoubleBracket]", "2", 
                    "\[RightDoubleBracket]"}]}], "]"}], "<>", "\"\<%\>\""}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"4.25", "-", 
                    RowBox[{"1.15", " ", 
                    RowBox[{
                    "#2", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}]}], ",", 
                    RowBox[{".45", " ", 
                    RowBox[{
                    "#2", "\[LeftDoubleBracket]", "1", 
                    "\[RightDoubleBracket]"}]}]}], "}"}]}], "]"}]}], "&"}], 
                ",", 
                RowBox[{"FilterRules", "[", 
                 RowBox[{
                 "vertexSizeData", ",", 
                  "countriesRepresentativeOfVertexSize"}], "]"}]}], "]"}]}]}],
             "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
           RowBox[{"ImageSize", "\[Rule]", 
            RowBox[{"OptionValue", "[", "\"\<ImageSize\>\"", "]"}]}], ",", 
           RowBox[{"AspectRatio", "\[Rule]", "aspectRatio"}], ",", 
           RowBox[{"PlotRangeClipping", "\[Rule]", "True"}], ",", 
           RowBox[{"PlotRangePadding", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Scaled", "[", ".05", "]"}], ",", 
                RowBox[{"Scaled", "[", ".11", "]"}]}], "}"}], ",", 
              RowBox[{
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Max", "[", 
                   RowBox[{"Last", "/@", 
                    RowBox[{"Last", "/@", "coord"}]}], "]"}], ">", "20"}], 
                 ",", "1", ",", "0"}], "]"}], "+", 
               RowBox[{"{", 
                RowBox[{"1.25", ",", "2"}], "}"}]}]}], "}"}]}], ",", 
           RowBox[{"Axes", "\[Rule]", "None"}], "\[IndentingNewLine]", ",", 
           "\[IndentingNewLine]", 
           RowBox[{"Frame", "\[Rule]", "True"}], ",", 
           RowBox[{"FrameLabel", "\[Rule]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{"#", ",", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"FontSize", "\[Rule]", "fs"}], ",", 
                   RowBox[{"FontFamily", "\[Rule]", "Times"}]}], "}"}]}], 
                "]"}], "&"}], "/@", 
              RowBox[{"{", 
               RowBox[{"\"\<date of protest outbreak\>\"", ",", 
                RowBox[{"yaxisLabel", "/.", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{
                   "\"\<unemployment\>\"", "|", 
                    "\"\<unemployment estimated Djibouti\>\""}], "\[Rule]", 
                   "\"\<unemployment in 2010 (%)\>\""}], "}"}]}]}], "}"}]}], 
             ")"}]}], ",", 
           RowBox[{"FrameTicks", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"Automatic", ",", "Automatic"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"#", "/.", 
                    RowBox[{"FilterRules", "[", 
                    RowBox[{
                    "rescaledProtestOutbreakDatesRulesAll", ",", 
                    "countriesToExamine"}], "]"}]}], "/.", 
                    RowBox[{"{", 
                    RowBox[{"2.", "\[Rule]", 
                    RowBox[{
                    "OptionValue", "[", "\"\<NoProtestPosition\>\"", "]"}]}], 
                    "}"}]}], ")"}], "*", "stretchFactor"}], ",", 
                    "\[IndentingNewLine]", "\[IndentingNewLine]", 
                    RowBox[{"Rotate", "[", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"Which", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"#", "/.", "xaxis"}], ")"}], "===", "None"}], 
                    ",", "\"\<no\\nprotest\>\"", ",", 
                    RowBox[{"MemberQ", "[", 
                    RowBox[{
                    RowBox[{
                    "OptionValue", "[", "\"\<DateTicksToExclude\>\"", "]"}], 
                    ",", 
                    RowBox[{"(", 
                    RowBox[{"#", "/.", "xaxis"}], ")"}]}], "]"}], ",", 
                    "\"\<\>\"", ",", "True", ",", 
                    RowBox[{"DateString", "[", 
                    RowBox[{
                    RowBox[{"#", "/.", "xaxis"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<Day\>\"", ",", "\"\< \>\"", ",", 
                    "\"\<MonthNameShort\>\"", ",", "\"\< \>\"", ",", 
                    "\"\<YearShort\>\""}], "}"}]}], "]"}]}], "]"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "]"}], ",", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"#", "/.", "xaxis"}], ")"}], "===", "None"}], ",", 
                    RowBox[{"0", "Degree"}], ",", 
                    RowBox[{"90", "Degree"}]}], "]"}]}], "]"}]}], 
                    "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], 
                   "&"}], "/@", 
                  RowBox[{"(", 
                   RowBox[{"First", "/@", "xaxis"}], ")"}]}], ")"}], ",", 
                "Automatic"}], "}"}]}], "}"}]}], "\[IndentingNewLine]", ",", 
           RowBox[{"Epilog", "\[Rule]", 
            RowBox[{
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"OptionValue", "[", "\"\<ShowFit\>\"", "]"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"Thick", ",", "Dashed", ",", 
                   RowBox[{"Darker", "@", "Green"}], ",", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"Line", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"#", "[", "0", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"RankedMax", "[", 
                    RowBox[{
                    RowBox[{"First", "/@", 
                    RowBox[{"Last", "/@", "coord"}]}], ",", "3"}], "]"}], ",", 
                    RowBox[{"#", "[", 
                    RowBox[{"RankedMax", "[", 
                    RowBox[{
                    RowBox[{"First", "/@", 
                    RowBox[{"Last", "/@", "coord"}]}], ",", "3"}], "]"}], 
                    "]"}]}], "}"}]}], "}"}], "]"}], "&"}], "@", 
                    "linearFit"}]}], "}"}], ",", 
                 RowBox[{"Inset", "[", 
                  RowBox[{
                   RowBox[{"TableForm", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"Last", "[", 
                    RowBox[{
                    "linearFitDateVersusYAxis", "[", 
                    "\"\<BestFitParameters\>\"", "]"}], "]"}], "/", "60."}], 
                    "/", "60."}], "/", "24."}], ",", 
                    RowBox[{"linearFit", "[", "\"\<RSquared\>\"", "]"}], ",", 
                    
                    RowBox[{
                    RowBox[{
                    "linearFit", "[", "\"\<ANOVATableEntries\>\"", "]"}], 
                    "\[LeftDoubleBracket]", 
                    RowBox[{"1", ",", 
                    RowBox[{"-", "1"}]}], "\[RightDoubleBracket]"}]}], "}"}], 
                    ",", 
                    RowBox[{"TableHeadings", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{
                    "\"\<days per unit increase\\nin \>\"", "<>", 
                    "yaxisLabel"}], ",", 
                    "\"\<\!\(\*SuperscriptBox[\(R\), \(2\)]\)\>\"", ",", 
                    "\"\<\!\(\*
StyleBox[\"p\",
FontSlant->\"Italic\"]\)-value\>\""}], "}"}], ",", "None"}], "}"}]}]}], "]"}],
                    ",", 
                   RowBox[{"OptionValue", "@", "\"\<FitPosition\>\""}]}], 
                  "]"}]}], "}"}], ",", 
               RowBox[{"{", "}"}]}], "]"}], "\[IndentingNewLine]", "~", 
             "Join", "~", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"Column", "[", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<vertex diamter \[Proportional]\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"vertexSize", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}]}], "}"}], ",", 
                   RowBox[{"Alignment", "\[Rule]", "Center"}], ",", 
                   RowBox[{"Spacings", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", ".1"}], "}"}]}]}], "]"}], ",", 
                 RowBox[{"vertexSizeLegendPosition", "+", 
                  RowBox[{"{", 
                   RowBox[{"2", ",", "3.5"}], "}"}]}]}], "]"}], ",", 
               RowBox[{"Inset", "[", 
                RowBox[{
                 RowBox[{"SwatchLegend", "[", 
                  RowBox[{
                   RowBox[{"Sequence", "@@", 
                    RowBox[{"Reverse", "@", 
                    RowBox[{"Transpose", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Take", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{"1", ",", 
                    RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}], "&"}], 
                    "@", 
                    RowBox[{"SortBy", "[", 
                    RowBox[{
                    RowBox[{"Union", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{"VertexOutDegree", "[", 
                    RowBox[{"graph", ",", "#"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{
                    RowBox[{"ColorData", "[", 
                    RowBox[{"OptionValue", "[", "\"\<ColorScheme\>\"", "]"}], 
                    "]"}], "[", 
                    FractionBox[
                    RowBox[{"VertexOutDegree", "[", 
                    RowBox[{"graph", ",", "#"}], "]"}], 
                    RowBox[{"Max", "[", 
                    RowBox[{"VertexOutDegree", "[", "graph", "]"}], "]"}]], 
                    "]"}]}], "}"}], "&"}], "/@", 
                    RowBox[{"VertexList", "[", "graph", "]"}]}], "]"}], ",", 
                    "First"}], "]"}]}], "]"}]}]}], ",", 
                   RowBox[{"LegendLabel", "\[Rule]", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<out\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<-\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", 
                    RowBox[{"fsTicks", "-", "3.5"}]}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<degree\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}]}], "}"}], "]"}]}], ",", 
                   RowBox[{"LegendMarkers", "\[Rule]", "\"\<Bubble\>\""}]}], 
                  "]"}], ",", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{"1", ",", "1"}], "}"}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1.25", ",", "1.15"}], "}"}]}], "]"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                 "OptionValue", "[", "\"\<ShowFacebookLegend\>\"", "]"}], ",", 
                 RowBox[{"Inset", "[", 
                  RowBox[{
                   RowBox[{"Style", "[", 
                    RowBox[{"\"\<Facebook rank\>\"", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}], ",", 
                   RowBox[{
                   "OptionValue", "[", "\"\<FacebookLegendLabelPosition\>\"", 
                    "]"}]}], "]"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}], ",", 
               RowBox[{"If", "[", 
                RowBox[{
                 RowBox[{
                 "OptionValue", "[", "\"\<ShowFacebookLegend\>\"", "]"}], ",", 
                 RowBox[{"Inset", "[", 
                  RowBox[{
                   RowBox[{"Grid", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Graphics", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Directive", "[", 
                    RowBox[{
                    RowBox[{"RGBColor", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"119", ",", "131", ",", "163"}], "}"}], "/", 
                    "256."}], "]"}], ",", 
                    RowBox[{"Thickness", "[", 
                    RowBox[{".0010", 
                    RowBox[{"(", 
                    RowBox[{"6", "-", "#"}], ")"}], "*", "15"}], "]"}], ",", 
                    RowBox[{"Opacity", "[", ".8", 
                    RowBox[{"(*", ".6", "*)"}], "]"}], ",", 
                    RowBox[{"Arrowheads", "[", ".33", "]"}]}], "]"}], ",", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", "0"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{".3", ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"ImageSize", "\[Rule]", "Automatic"}]}], "]"}], 
                    ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"#", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"FontSize", "\[Rule]", "fsTicks"}], ",", 
                    RowBox[{"FontFamily", "\[Rule]", "font"}]}], "}"}]}], 
                    "]"}]}], "}"}], "&"}], "/@", 
                    RowBox[{"Identity", "[", 
                    RowBox[{"Range", "[", "5", "]"}], "]"}]}], ")"}], ",", 
                    RowBox[{"Spacings", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"-", "20.5"}]}], "}"}]}], ",", 
                    RowBox[{"Alignment", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"Center", ",", "Center"}], "}"}]}]}], "]"}], ",", 
                   
                   RowBox[{"(", 
                    RowBox[{
                    "OptionValue", "[", "\"\<FacebookLegendPosition\>\"", 
                    "]"}], ")"}]}], "]"}], ",", 
                 RowBox[{"{", "}"}]}], "]"}]}], "}"}]}]}], 
           "\[IndentingNewLine]", ",", 
           RowBox[{"ImageMargins", "\[Rule]", 
            RowBox[{"OptionValue", "[", "\"\<ImageMargins\>\"", "]"}]}]}], 
          "]"}], "\[IndentingNewLine]", "}"}], ",", "\"\<\\t\>\""}], 
       "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Options", "[", "visualizeFacebookGraphForThePaper", "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<AspectRatio\>\"", "\[Rule]", ".5"}], ",", 
     RowBox[{"\"\<Highlight\>\"", "\[Rule]", 
      RowBox[{"{", "}"}]}], ",", 
     RowBox[{"\"\<NoProtestPosition\>\"", "\[Rule]", ".3"}], ",", 
     RowBox[{"\"\<HorizontalStretch\>\"", "\[Rule]", "200"}], ",", 
     RowBox[{"\"\<VertexSizeStretch\>\"", "\[Rule]", "1."}], ",", 
     RowBox[{"\"\<VertexSizeVerticalStretch\>\"", "\[Rule]", "1."}], ",", 
     RowBox[{"\"\<VertexLabelPositions\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"_", "\[Rule]", "Below"}], "}"}]}], ",", 
     RowBox[{"\"\<FitPosition\>\"", "\[Rule]", 
      RowBox[{"Sequence", "[", 
       RowBox[{
        RowBox[{"Scaled", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.5"}], ",", 
          RowBox[{"-", "1.5"}]}], "}"}]}], "]"}]}], ",", 
     RowBox[{"\"\<ShowFit\>\"", "\[Rule]", "True"}], ",", 
     RowBox[{"\"\<VertexSizeLegendPosition\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "1"}], "}"}]}], ",", 
     RowBox[{"\"\<ColorScheme\>\"", "\[Rule]", "\"\<TemperatureMap\>\""}], 
     ",", 
     RowBox[{"\"\<ImageSize\>\"", "\[Rule]", 
      RowBox[{".98", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"17.5", "/", "2.54"}], "*", "72"}], "}"}]}]}], ",", 
     RowBox[{"\"\<DateTicksToExclude\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "2011", ",", "2", ",", "19", ",", "0", ",", "0", ",", "0.`"}], "}"}],
         ",", 
        RowBox[{"{", 
         RowBox[{
         "2011", ",", "1", ",", "28", ",", "0", ",", "0", ",", "0.`"}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"\"\<ImageMargins\>\"", "\[Rule]", "Automatic"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<ShowFacebookLegend\>\"", "\[Rule]", "True"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"\"\<FacebookLegendPosition\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{".15", ",", ".31"}], "}"}]}], ",", 
     RowBox[{"\"\<FacebookLegendLabelPosition\>\"", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{".15", ",", ".31"}], "}"}]}]}], "}"}]}], ";"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.6128819996776257`*^9, 3.612882080286459*^9}, {
   3.61288240695057*^9, 3.612882420881029*^9}, {3.612882460382413*^9, 
   3.6128825015072317`*^9}, {3.612882603496933*^9, 3.612882605595578*^9}, {
   3.612882646563548*^9, 3.612882672139937*^9}, {3.612882829603834*^9, 
   3.612882833377459*^9}, {3.612882919803249*^9, 3.612882989223793*^9}, {
   3.612883032201809*^9, 3.612883050718351*^9}, {3.6128831287606163`*^9, 
   3.612883188866887*^9}, {3.612883253133553*^9, 3.61288348623666*^9}, {
   3.612883567220048*^9, 3.612883600490026*^9}, {3.612883642530218*^9, 
   3.6128836591553917`*^9}, {3.612883763070428*^9, 3.612883784740217*^9}, {
   3.612883859536335*^9, 3.612883869635695*^9}, {3.612883907010756*^9, 
   3.612883909117141*^9}, {3.612883955063974*^9, 3.612883976291671*^9}, {
   3.6128840135278683`*^9, 3.6128840458997107`*^9}, {3.6128840797080517`*^9, 
   3.6128840995942593`*^9}, {3.612884152024434*^9, 3.6128841661499653`*^9}, {
   3.612884211101459*^9, 3.612884212260345*^9}, {3.612884259828052*^9, 
   3.612884294588685*^9}, {3.612884416213377*^9, 3.612884446081696*^9}, {
   3.612884526966852*^9, 3.612884551320167*^9}, {3.6128846165112457`*^9, 
   3.612884659757464*^9}, {3.6128847279994707`*^9, 3.61288472862014*^9}, {
   3.612884762094099*^9, 3.612884792315654*^9}, {3.612884839110363*^9, 
   3.612884892149342*^9}, {3.6128849270820303`*^9, 3.612884927662093*^9}, {
   3.61288505058951*^9, 3.612885100388608*^9}, {3.612885168060625*^9, 
   3.612885185754483*^9}, {3.61288533367731*^9, 3.61288534864229*^9}, {
   3.612885420075995*^9, 3.612885441948764*^9}, {3.612885740692638*^9, 
   3.6128857475477133`*^9}, 3.612885854652583*^9, {3.612886122432049*^9, 
   3.6128861381945457`*^9}, {3.612886203532349*^9, 3.612886215306666*^9}, {
   3.6128865794286537`*^9, 3.612886616294648*^9}, {3.612886994949354*^9, 
   3.612886997134557*^9}, {3.612887100835649*^9, 3.612887130123472*^9}, {
   3.612887168483388*^9, 3.612887180063456*^9}, 3.612887216936101*^9, {
   3.612887369797525*^9, 3.6128875203652153`*^9}, 3.612887585052348*^9, {
   3.612887618849436*^9, 3.612887638655569*^9}, {3.612887682756113*^9, 
   3.612887724989934*^9}, {3.612887757506646*^9, 3.612887763976728*^9}, {
   3.612887796583609*^9, 3.612887803134819*^9}, {3.6128878444596367`*^9, 
   3.612887953992106*^9}, {3.612887985054093*^9, 3.6128880115900097`*^9}, {
   3.6128880698158627`*^9, 3.6128881066523323`*^9}, {3.6128903384394693`*^9, 
   3.6128903998345823`*^9}, {3.612890459895957*^9, 3.6128904930263643`*^9}, {
   3.612890533106864*^9, 3.6128905376909647`*^9}, {3.6128905883822737`*^9, 
   3.61289066458279*^9}, 3.612890697680385*^9, 3.612890727921547*^9, {
   3.612890837529911*^9, 3.6128908871184597`*^9}, {3.612890941795755*^9, 
   3.612890951213752*^9}, {3.612890985295394*^9, 3.612890986376821*^9}, {
   3.612891074847849*^9, 3.6128911043250523`*^9}, {3.612891153080616*^9, 
   3.612891174962104*^9}, {3.612891208033749*^9, 3.6128913875647583`*^9}, {
   3.612891471029148*^9, 3.612891534599773*^9}, {3.612891645224115*^9, 
   3.612891695341428*^9}, {3.612891732331808*^9, 3.612891742159321*^9}, {
   3.612891773939695*^9, 3.612891842476142*^9}, 3.612891882696347*^9, {
   3.6128919409740343`*^9, 3.612892192570787*^9}, {3.612892227059951*^9, 
   3.61289222858708*^9}, {3.6128922661306257`*^9, 3.612892298731265*^9}, {
   3.612892414077181*^9, 3.612892443096674*^9}, {3.612892483722364*^9, 
   3.612892758199295*^9}, {3.612892802043276*^9, 3.61289291754135*^9}, {
   3.6128931264448347`*^9, 3.612893162900735*^9}, {3.6128932018658857`*^9, 
   3.612893248684539*^9}, {3.61289329431819*^9, 3.612893298173418*^9}, {
   3.612893342909745*^9, 3.612893344104879*^9}, 3.612893419312167*^9, {
   3.612893462457982*^9, 3.612893489871024*^9}, {3.6128935960249977`*^9, 
   3.612893735642199*^9}, {3.6128938108459883`*^9, 3.6128938263622828`*^9}, {
   3.6131278492976103`*^9, 3.6131278787639437`*^9}, {3.614105306447937*^9, 
   3.614105338921856*^9}, {3.6141053890968447`*^9, 3.61410543228683*^9}, {
   3.614107149290574*^9, 3.614107169201413*^9}, {3.614107212638708*^9, 
   3.6141072179090757`*^9}, 3.614107272549329*^9, 3.614197830741949*^9, {
   3.614198047991375*^9, 3.614198056185774*^9}, {3.6141980882947598`*^9, 
   3.614198089148518*^9}, {3.614198119194086*^9, 3.614198119868713*^9}, {
   3.6141983490703573`*^9, 3.6141983771965227`*^9}, {3.6141984803282757`*^9, 
   3.614198487104591*^9}, {3.614257866508477*^9, 3.614257866956465*^9}, {
   3.6142580198588963`*^9, 3.614258019997037*^9}, 3.6142580727772617`*^9, {
   3.614258155171376*^9, 3.6142581681407022`*^9}, {3.6142582605581627`*^9, 
   3.614258319973394*^9}, {3.614258358662841*^9, 3.6142583761136417`*^9}, {
   3.614263417941181*^9, 3.614263455098221*^9}, {3.614263836464636*^9, 
   3.614263849310924*^9}, {3.614265031408456*^9, 3.6142651093539143`*^9}, {
   3.6142663325854673`*^9, 3.614266390340114*^9}, 3.6156667222796793`*^9, {
   3.6156667666107388`*^9, 3.6156667777206507`*^9}, {3.615666917707272*^9, 
   3.615666918816772*^9}, {3.6191590835066013`*^9, 3.619159091372344*^9}, {
   3.619159146821249*^9, 3.619159147033929*^9}, {3.6194979601278057`*^9, 
   3.61949796116555*^9}, {3.619498064694853*^9, 3.6194980732137413`*^9}, {
   3.6194981447199802`*^9, 3.619498236596794*^9}, {3.6194983165241756`*^9, 
   3.619498327031158*^9}, {3.6194983697031803`*^9, 3.619498406015874*^9}, {
   3.619498455494081*^9, 3.6194985403248034`*^9}, {3.619498607243348*^9, 
   3.619498627751217*^9}, {3.619498702962799*^9, 3.619498758634388*^9}, {
   3.61949882319438*^9, 3.619498826827222*^9}, {3.619498874509736*^9, 
   3.619498874658945*^9}, {3.622275833600624*^9, 3.622275840154389*^9}, {
   3.622279274880294*^9, 3.622279275447544*^9}, {3.622279312557251*^9, 
   3.6222793981105433`*^9}, {3.6222805852860126`*^9, 
   3.6222806538347178`*^9}, {3.622280791168201*^9, 3.622280843706655*^9}, {
   3.622281436412758*^9, 3.622281458227296*^9}, {3.6222815010067863`*^9, 
   3.622281554397006*^9}, {3.6222817118686123`*^9, 3.622281997930324*^9}, {
   3.6222823914854097`*^9, 3.622282471032702*^9}, {3.622282525548173*^9, 
   3.6222825367867413`*^9}, {3.6222826169933653`*^9, 3.622282723799567*^9}, {
   3.622282833897687*^9, 3.6222828390869627`*^9}, {3.622282991165036*^9, 
   3.622283024279406*^9}, {3.622283086415003*^9, 3.622283104135488*^9}, 
   3.622283181854515*^9, {3.622283217367261*^9, 3.622283224404642*^9}, {
   3.622283263513619*^9, 3.6222833359464693`*^9}, {3.622283408809791*^9, 
   3.622283441783285*^9}, {3.622283742887121*^9, 3.622283776283629*^9}, {
   3.6222838192364607`*^9, 3.622283820089019*^9}, {3.622284204444193*^9, 
   3.622284295625578*^9}, {3.622284336542926*^9, 3.6222843945474243`*^9}, {
   3.622284468219535*^9, 3.622284492584874*^9}, {3.622284766882139*^9, 
   3.622284767655161*^9}, {3.622284816457419*^9, 3.6222848190590973`*^9}, {
   3.622462070415516*^9, 3.622462089383152*^9}, {3.62246217277367*^9, 
   3.622462256873789*^9}, 3.622462292778203*^9, {3.622462341919878*^9, 
   3.62246234661161*^9}, {3.6224623811905193`*^9, 3.6224624182114277`*^9}, 
   3.622462464374776*^9, {3.6224635985315943`*^9, 3.6224636512317877`*^9}, 
   3.641660157946645*^9, {3.641660197518178*^9, 3.6416602334824247`*^9}, {
   3.641660396792562*^9, 3.641660412841811*^9}, {3.6416604480278263`*^9, 
   3.641660459727469*^9}, {3.641660554809602*^9, 3.641660590236957*^9}, {
   3.6416606819623203`*^9, 3.6416606961065207`*^9}, {3.641660784687315*^9, 
   3.641660784994029*^9}, 3.641660847500762*^9, {3.668687358218596*^9, 
   3.66868736561103*^9}, {3.6686877371491737`*^9, 3.668687767578865*^9}, {
   3.668687895295107*^9, 3.668687898429037*^9}, {3.6686880053299828`*^9, 
   3.6686880965799837`*^9}, 3.6686881643949223`*^9, {3.668688385443612*^9, 
   3.668688419580265*^9}, 3.6686925963805304`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Figure 4: unemployment versus protest date, with the Facebook graph and \
Internet penetration shown\
\>", "Subsubsection",
 CellChangeTimes->{{3.668693349152814*^9, 3.6686933614280977`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"choices", ",", "countries", ",", "yaxisLabel"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"choices", "=", 
     RowBox[{"{", 
      RowBox[{"(*", 
       RowBox[{
       "\"\<Internet penetration\>\"", ",", "\"\<unemployment\>\"", ",", 
        "\"\<GDP per capita\>\"", ",", "\"\<GNI per capita\>\"", ",", 
        "\"\<Gini coefficient\>\"", ",", 
        "\"\<unemployment of young men (age 15\[Dash]34)\>\"", ",", 
        "\"\<freedom of press\>\"", ",", "\"\<political freedom\>\"", ",", 
        "\"\<web freedom\>\"", ",", "\"\<civil liberties\>\"", 
        "\[IndentingNewLine]", ","}], "*)"}], 
      RowBox[{
      "\"\<GDP per capita (fuzzy)\>\"", ",", "\"\<Gini (fuzzy)\>\"", ",", 
       "\"\<Unemployment (fuzzy)\>\"", ",", "\"\<Urban (fuzzy)\>\"", ",", 
       "\"\<Youth (fuzzy)\>\"", ",", "\"\<Mobile (fuzzy)\>\"", ",", 
       "\"\<Internet (fuzzy)\>\"", ",", "\"\<Fuel (fuzzy)\>\"", ",", 
       "\"\<Polity (1 = democracy, 0 = autocracy) (fuzzy)\>\"", ",", 
       "\"\<Success (fuzzy)\>\""}], "}"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"countries", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"countriesWithProtests", "~", "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
         "}"}]}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\"", "|", 
         "\"\<Djibouti\>\""}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"yaxisLabel", "=", "\"\<unemployment\>\""}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"visualizeFacebookGraphForThePaper", "[", 
     RowBox[{
     "countries", ",", "yaxisLabel", ",", "\"\<Internet penetration\>\"", ",", 
      RowBox[{"\"\<NoProtestPosition\>\"", "\[Rule]", ".14"}], ",", 
      RowBox[{"\"\<HorizontalStretch\>\"", "\[Rule]", "250"}], ",", 
      RowBox[{"\"\<Highlight\>\"", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"#", ",", 
            RowBox[{"Directive", "[", 
             RowBox[{"Red", ",", 
              RowBox[{"Opacity", "[", "1", "]"}], ",", 
              RowBox[{"(*", 
               RowBox[{
                RowBox[{"AbsoluteThickness", "[", "3", "]"}], ","}], "*)"}], 
              RowBox[{"Arrowheads", "[", ".065", "]"}]}], "]"}]}], "]"}], 
          "&"}], "/@", 
         RowBox[{"Reverse", "/@", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
            "\"\<Saudi Arabia\>\"", "\[DirectedEdge]", "\"\<Egypt\>\""}], ",", 
            RowBox[{
            "\"\<Bahrain\>\"", "\[DirectedEdge]", "\"\<Saudi Arabia\>\""}]}], 
           "}"}]}]}], 
        RowBox[{"(*", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{
           "\"\<United Arab Emirates\>\"", "\[DirectedEdge]", 
            "\"\<Egypt\>\""}], ",", 
           RowBox[{
           "\"\<Bahrain\>\"", "\[DirectedEdge]", 
            "\"\<United Arab Emirates\>\""}]}], "}"}], "*)"}], ")"}]}], ",", 
      RowBox[{"\"\<VertexSizeStretch\>\"", "\[Rule]", "1"}], ",", 
      RowBox[{"\"\<VertexLabelPositions\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
          "\"\<Yemen\>\"", "|", "\"\<Tunisia\>\"", "|", "\"\<Jordan\>\"", 
           "|", "\"\<Djibouti\>\"", "|", "\"\<Morocco\>\"", "|", 
           "\"\<Sudan\>\""}], "\[Rule]", "Above"}], ",", 
         RowBox[{
          RowBox[{
          "\"\<United Arab Emirates\>\"", "|", "\"\<Qatar\>\"", "|", 
           "\"\<Syria\>\""}], "\[Rule]", "After"}], ",", 
         RowBox[{
          RowBox[{
          "\"\<Saudi Arabia\>\"", "|", "\"\<Lebanon\>\"", "|", 
           "\"\<Egypt\>\""}], "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"After", ",", "Above"}], "}"}]}], ",", 
         RowBox[{"\"\<Libya\>\"", "\[Rule]", "Before"}], ",", 
         RowBox[{"_", "\[Rule]", "Below"}]}], "}"}]}], ",", 
      RowBox[{"\"\<ShowFit\>\"", "\[Rule]", "False"}], ",", 
      RowBox[{"\"\<VertexSizeLegendPosition\>\"", "\[Rule]", 
       RowBox[{"(*", 
        RowBox[{"{", 
         RowBox[{"3", ",", "1"}], "}"}], "*)"}], 
       RowBox[{"{", 
        RowBox[{"27", ",", "14"}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"\"\<ColorScheme\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"\"\<SunsetColors\>\"", ",", "\"\<Reverse\>\""}], "}"}]}], 
      ",", 
      RowBox[{"\"\<ImageMargins\>\"", "\[Rule]", "3"}], ",", 
      RowBox[{"\"\<FacebookLegendPosition\>\"", "\[Rule]", 
       RowBox[{"Scaled", "[", 
        RowBox[{"{", 
         RowBox[{".12", ",", ".18"}], "}"}], "]"}]}], ",", 
      RowBox[{"\"\<FacebookLegendLabelPosition\>\"", "\[Rule]", 
       RowBox[{"Scaled", "[", 
        RowBox[{"{", 
         RowBox[{".12", ",", ".34"}], "}"}], "]"}]}]}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.668687985591259*^9, 3.668687987732933*^9}, {
  3.668688462976873*^9, 3.668688466455531*^9}}],

Cell[BoxData[
 TemplateBox[{"\t","\"\\t\"",GraphicsBox[{{{}, {{{
         Directive[
          PointSize[0.012833333333333334`], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6], 
          AbsolutePointSize[6]], 
         GeometricTransformationBox[
          TagBox[
           InsetBox["", {0., 0.}], "InsetString"], {{{35., 4.}}, {{
          19.701086956521735`, 7.5}}, {{3.7364130434782608`, 10.}}, {{
          12.907608695652172`, 9.}}, {{9.171195652173912, 12.5}}, {{
          21.39945652173913, 1.60000002384186}}, {{24.116847826086953`, 
          8.89999961853027}}, {{20.720108695652172`, 8.60000038146973}}, {{
          21.73913043478261, 9.10000038146973}}, {{10.190217391304346`, 
          8.30000019073486}}, {{35., 0.400000005960464}}, {{
          29.551630434782606`, 5.5}}, {{14.605978260869565`, 
          14.8000001907349}}, {{13.926630434782608`, 7.59999990463257}}, {{
          28.192934782608692`, 8.39999961853027}}, {{0., 13.}}, {{
          13.586956521739129`, 17.7999992370605}}}]}, {}}}, {}}, {{
       Arrowheads[Medium], 
       Directive[
        Opacity[0.7], 
        Hue[0.6, 0.7, 0.5]], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{3.7364130434782608`, 10.}, {1.37488428018978, 
          10.885581447355769`}, {0., 13.}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.005], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{12.907608695652172`, 9.}, {3.7364130434782608`, 10.}}, 
        0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{12.907608695652172`, 9.}, {10.463859558772127`, 
          10.135581447333877`}, {9.171195652173912, 12.5}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.004], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{12.907608695652172`, 9.}, {21.39945652173913, 
        1.60000002384186}}, 0.10893223819301848`], 
       ArrowBox[{{12.907608695652172`, 9.}, {24.116847826086953`, 
        8.89999961853027}}, 0.10893223819301848`], 
       ArrowBox[{{12.907608695652172`, 9.}, {20.720108695652172`, 
        8.60000038146973}}, 0.10893223819301848`], 
       ArrowBox[{{12.907608695652172`, 9.}, {10.190217391304346`, 
        8.30000019073486}}, 0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{12.907608695652172`, 9.}, {21.805162180358266`, 
          9.986955370915897}, {29.551630434782606`, 5.5}}], 
         0.10893223819301848`], {
         Directive[
          RGBColor[1, 0, 0], 
          Opacity[1], 
          Arrowheads[0.065]]}, StripOnInput -> False], 
       ArrowBox[{{12.907608695652172`, 9.}, {14.605978260869565`, 
        14.8000001907349}}, 0.10893223819301848`], 
       ArrowBox[{{12.907608695652172`, 9.}, {28.192934782608692`, 
        8.39999961853027}}, 0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{12.907608695652172`, 9.}, {5.796041359093563, 
          8.877463181735406}, {0., 13.}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.003], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{12.907608695652172`, 9.}, {24.776008083741637`, 
          10.132889333149345`}, {35., 4.}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.001], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{12.907608695652172`, 9.}, {13.586956521739129`, 
        17.7999992370605}}, 0.10893223819301848`], 
       ArrowBox[{{9.171195652173912, 12.5}, {3.7364130434782608`, 10.}}, 
        0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{9.171195652173912, 12.5}, {11.614944789053949`, 
          11.364418552678535`}, {12.907608695652172`, 9.}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.005], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{9.171195652173912, 12.5}, {17.23600849171878, 
          13.157674019885883`}, {24.116847826086953`, 8.89999961853027}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.001], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{9.171195652173912, 12.5}, {20.720108695652172`, 
        8.60000038146973}}, 0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{9.171195652173912, 12.5}, {20.51249827376009, 
          12.351373923570447`}, {29.551630434782606`, 5.5}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.003], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{9.171195652173912, 12.5}, {28.192934782608692`, 
        8.39999961853027}}, 0.10893223819301848`], 
       ArrowBox[{{9.171195652173912, 12.5}, {13.586956521739129`, 
        17.7999992370605}}, 0.10893223819301848`], 
       ArrowBox[{{21.39945652173913, 1.60000002384186}, {19.701086956521735`, 
        7.5}}, 0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{21.39945652173913, 1.60000002384186}, {
          28.397057160429743`, 3.2364835465627038`}, {35., 
          0.400000005960464}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.004], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{24.116847826086953`, 8.89999961853027}, {
          16.052034986542047`, 8.242325598644955}, {9.171195652173912, 
          12.5}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.002], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{24.116847826086953`, 8.89999961853027}, {21.39945652173913, 
        1.60000002384186}}, 0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{24.116847826086953`, 8.89999961853027}, {
          26.237111677939424`, 9.320274403139331}, {28.192934782608692`, 
          8.39999961853027}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.001], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{21.73913043478261, 9.10000038146973}, {3.7364130434782608`, 
        10.}}, 0.10893223819301848`], 
       ArrowBox[{{21.73913043478261, 9.10000038146973}, {20.720108695652172`, 
        8.60000038146973}}, 0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{21.73913043478261, 9.10000038146973}, {
          10.22824636610631, 7.475201338927411}, {0., 13.}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.003], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{35., 0.400000005960464}, {
          28.00239936130937, -1.2364835167605275`}, {21.39945652173913, 
          1.60000002384186}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.005], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{35., 0.400000005960464}, {14.605978260869565`, 
        14.8000001907349}}, 0.10893223819301848`], 
       StyleBox[
        ArrowBox[{{29.551630434782606`, 5.5}, {19.701086956521735`, 7.5}}, 
         0.10893223819301848`], {
         Directive[
          RGBColor[1, 0, 0], 
          Opacity[1], 
          Arrowheads[0.065]]}, StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{29.551630434782606`, 5.5}, {20.654076950076494`, 
          4.513044629087036}, {12.907608695652172`, 9.}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.005], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{29.551630434782606`, 5.5}, {18.210327813196514`, 
          5.6486260764313565`}, {9.171195652173912, 12.5}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.002], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{29.551630434782606`, 5.5}, {21.39945652173913, 
        1.60000002384186}}, 0.10893223819301848`], 
       ArrowBox[{{29.551630434782606`, 5.5}, {24.116847826086953`, 
        8.89999961853027}}, 0.10893223819301848`], 
       ArrowBox[{{29.551630434782606`, 5.5}, {20.720108695652172`, 
        8.60000038146973}}, 0.10893223819301848`], 
       ArrowBox[{{29.551630434782606`, 5.5}, {10.190217391304346`, 
        8.30000019073486}}, 0.10893223819301848`], 
       ArrowBox[{{29.551630434782606`, 5.5}, {35., 0.400000005960464}}, 
        0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{29.551630434782606`, 5.5}, {20.549505367658472`, 
          7.692325884753052}, {14.605978260869565`, 14.8000001907349}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.001], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{29.551630434782606`, 5.5}, {28.192934782608692`, 
        8.39999961853027}}, 0.10893223819301848`], 
       ArrowBox[{{29.551630434782606`, 5.5}, {0., 13.}}, 
        0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{29.551630434782606`, 5.5}, {32.52247633816593, 
          5.645933962224059}, {35., 4.}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.003], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{29.551630434782606`, 5.5}, {19.54667241336687, 
          9.024756711735037}, {13.586956521739129`, 17.7999992370605}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.004], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{14.605978260869565`, 14.8000001907349}, {
          23.608103327993703`, 12.607674305986665`}, {29.551630434782606`, 
          5.5}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.005], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{28.192934782608692`, 8.39999961853027}, {
          26.07267093075631, 7.979724833830888}, {24.116847826086953`, 
          8.89999961853027}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.004], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{0., 13.}, {2.361528763288485, 
          12.114418552648512`}, {3.7364130434782608`, 10.}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.005], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{0., 13.}, {7.11156733655854, 13.122536818258217`}, {
          12.907608695652172`, 9.}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.004], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{0., 13.}, {20.720108695652172`, 8.60000038146973}}, 
        0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{0., 13.}, {11.510884068676313`, 
          14.624799042539106`}, {21.73913043478261, 9.10000038146973}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.003], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{35., 4.}, {19.701086956521735`, 7.5}}, 
        0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{35., 4.}, {23.131600611910503`, 
          2.867110666851136}, {12.907608695652172`, 9.}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.001], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{35., 4.}, {9.171195652173912, 12.5}}, 0.10893223819301848`], 
       ArrowBox[{{35., 4.}, {21.39945652173913, 1.60000002384186}}, 
        0.10893223819301848`], 
       ArrowBox[{{35., 4.}, {24.116847826086953`, 8.89999961853027}}, 
        0.10893223819301848`], 
       ArrowBox[{{35., 4.}, {10.190217391304346`, 8.30000019073486}}, 
        0.10893223819301848`], 
       ArrowBox[{{35., 4.}, {35., 0.400000005960464}}, 0.10893223819301848`], 
       
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{35., 4.}, {32.02915409661665, 
          3.8540660377696905`}, {29.551630434782606`, 5.5}}], 
         0.10893223819301848`], 
        Directive[
         Thickness[0.004], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False], 
       ArrowBox[{{35., 4.}, {14.605978260869565`, 14.8000001907349}}, 
        0.10893223819301848`], 
       ArrowBox[{{35., 4.}, {28.192934782608692`, 8.39999961853027}}, 
        0.10893223819301848`], 
       ArrowBox[{{35., 4.}, {13.586956521739129`, 17.7999992370605}}, 
        0.10893223819301848`], 
       StyleBox[
        ArrowBox[
         BezierCurveBox[{{13.586956521739129`, 17.7999992370605}, {
          23.591914543154832`, 14.275242525326314`}, {29.551630434782606`, 
          5.5}}], 0.10893223819301848`], 
        Directive[
         Thickness[0.005], 
         Opacity[0.5], 
         Arrowheads[0.03]], StripOnInput -> False]}, {
       Directive[
        Hue[0.6, 0.2, 0.8], 
        EdgeForm[
         Directive[
          GrayLevel[0], 
          Opacity[0.7]]]], {
        StyleBox[
         DiskBox[{3.7364130434782608`, 10.}, {0.15318627450980393`, 
          0.15318627450980393`}], 
         RGBColor[1., 0.9456473846153847, 0.7651203076923078], StripOnInput -> 
         False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Algeria\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, -2}, {3.7364130434782608`, 9.846813725490197}], 
         ImageScaled[{0.5, 1}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{19.701086956521735`, 7.5}, {0.6740196078431373, 
          0.6740196078431373}], 
         RGBColor[1., 1., 1.], StripOnInput -> False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Bahrain\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, -2}, {19.701086956521735`, 6.825980392156863}], 
         ImageScaled[{0.5, 1}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{12.907608695652172`, 9.}, {0.3850490196078432, 
          0.3850490196078432}], 
         RGBColor[
         0.1720583076923076, 0.06267692307692305, 0.2337706153846153], 
         StripOnInput -> False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Egypt\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{2, 2}, {13.292657715260015`, 9.385049019607843}], 
         ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{9.171195652173912, 12.5}, {0.33333333333333337`, 
          0.33333333333333337`}], 
         RGBColor[
         0.9352793076923078, 0.40723984615384623`, 0.10182023076923072`], 
         StripOnInput -> False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Jordan\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, 2}, {9.171195652173912, 12.833333333333334`}], 
         ImageScaled[{0.5, 0}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{21.39945652173913, 1.60000002384186}, {0.752450980392157, 
          0.752450980392157}], 
         RGBColor[1., 0.8912947692307693, 0.5302406153846155], StripOnInput -> F\
alse], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Kuwait\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, -2}, {21.39945652173913, 0.8475490434497029}], 
         ImageScaled[{0.5, 1}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{24.116847826086953`, 8.89999961853027}, {0.5352941176470589,
           0.5352941176470589}], 
         RGBColor[1., 0.8054867692307692, 0.35212361538461545`], StripOnInput -> 
         False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Lebanon\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{2, 2}, {24.652141943734012`, 9.435293736177329}], 
         ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{20.720108695652172`, 8.60000038146973}, {
          0.17156862745098042`, 0.17156862745098042`}], 
         RGBColor[1., 1., 1.], StripOnInput -> False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Libya\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{-2, 0}, {20.54854006820119, 8.60000038146973}], 
         ImageScaled[{1, 0.5}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{21.73913043478261, 9.10000038146973}, {0.6372549019607844, 
          0.6372549019607844}], 
         RGBColor[1., 0.8054867692307692, 0.35212361538461545`], StripOnInput -> 
         False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Morocco\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, 2}, {21.73913043478261, 9.737255283430514}], 
         ImageScaled[{0.5, 0}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{10.190217391304346`, 8.30000019073486}, {0.4390661764705883,
           0.4390661764705883}], 
         RGBColor[1., 1., 1.], StripOnInput -> False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Oman\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, -2}, {10.190217391304346`, 7.860934014264272}], 
         ImageScaled[{0.5, 1}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{35., 0.400000005960464}, {1., 1.}], 
         RGBColor[1., 0.8912947692307693, 0.5302406153846155], StripOnInput -> 
         False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Qatar\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{2, 0}, {36., 0.400000005960464}], 
         ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{29.551630434782606`, 5.5}, {0.502450980392157, 
          0.502450980392157}], 
         RGBColor[0., 0., 0.], StripOnInput -> False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Saudi Arabia\"", FontFamily -> "Times", FontSize -> 12, 
           StripOnInput -> False], TraditionalForm], 
         Offset[{2, 2}, {30.054081415174764`, 6.002450980392157}], 
         ImageScaled[{0, 0}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{13.926630434782608`, 7.59999990463257}, {
          0.014705882352941178`, 0.014705882352941178`}], 
         RGBColor[1., 1., 1.], StripOnInput -> False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Somalia\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, -2}, {13.926630434782608`, 7.585294022279629}], 
         ImageScaled[{0.5, 1}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{14.605978260869565`, 14.8000001907349}, {
          0.20465686274509806`, 0.20465686274509806`}], 
         RGBColor[1., 0.9456473846153847, 0.7651203076923078], StripOnInput -> 
         False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Sudan\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, 2}, {14.605978260869565`, 15.004657053479999`}], 
         ImageScaled[{0.5, 0}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{28.192934782608692`, 8.39999961853027}, {
          0.25367647058823534`, 0.25367647058823534`}], 
         RGBColor[1., 0.9456473846153847, 0.7651203076923078], StripOnInput -> 
         False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Syria\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{2, 0}, {28.446611253196927`, 8.39999961853027}], 
         ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{0., 13.}, {0.45098039215686275`, 0.45098039215686275`}], 
         RGBColor[1., 0.7133876923076923, 0.18535915384615387`], StripOnInput -> 
         False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Tunisia\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, 2}, {0., 13.450980392156863`}], 
         ImageScaled[{0.5, 0}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{35., 4.}, {0.8333333333333335, 0.8333333333333335}], 
         RGBColor[
         0.34411661538461547`, 0.1253538461538462, 0.46754123076923093`], 
         StripOnInput -> False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"U.A.E.\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{2, 0}, {35.833333333333336`, 4.}], 
         ImageScaled[{0, 0.5}], BaseStyle -> "Graphics"]}, {
        StyleBox[
         DiskBox[{13.586956521739129`, 17.7999992370605}, {0.1513480392156863,
           0.1513480392156863}], 
         RGBColor[1., 0.9456473846153847, 0.7651203076923078], StripOnInput -> 
         False], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"Yemen\"", FontFamily -> "Times", FontSize -> 12, StripOnInput -> 
           False], TraditionalForm], 
         Offset[{0, 2}, {13.586956521739129`, 17.951347276276188`}], 
         ImageScaled[{0.5, 0}], BaseStyle -> "Graphics"]}}}, {{}, {
       Directive[
        Hue[0.6, 0.2, 0.8], 
        EdgeForm[
         Directive[
          GrayLevel[0], 
          Opacity[0.7]]]], 
       Directive[
        Opacity[0]], {
        DiskBox[{27., 14.535294117647059`}, {0.5352941176470589, 
         0.5352941176470589}], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"44%\"", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
           False], TraditionalForm], {29.783529411764704`, 
         14.481764705882354`}, BaseStyle -> "Graphics"]}, {
        DiskBox[{27., 15.}, {1., 1.}], 
        InsetBox[
         FormBox[
          StyleBox[
          "\"82%\"", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
           False], TraditionalForm], {29.9, 15.8}, BaseStyle -> 
         "Graphics"]}}}}, {
    ImageSize -> {486.1417322834645}, AspectRatio -> 0.5, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.05], 
        Scaled[0.11]}, {1.25, 2}}, Axes -> None, Frame -> True, FrameLabel -> {
       FormBox[
        StyleBox[
        "\"date of protest outbreak\"", {FontSize -> 14, FontFamily -> Times},
          StripOnInput -> False], TraditionalForm], 
       FormBox[
        StyleBox[
        "\"unemployment in 2010 (%)\"", {FontSize -> 14, FontFamily -> Times},
          StripOnInput -> False], TraditionalForm]}, 
     FrameTicks -> {{Automatic, Automatic}, {{{0., 
          FormBox[
           RotationBox[
            StyleBox[
            "\"18 Dec 10\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         3.7364130434782608`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"29 Dec 10\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         9.171195652173912, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"14 Jan 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         10.190217391304346`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"17 Jan 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         12.907608695652172`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"25 Jan 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         13.586956521739129`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"27 Jan 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         19.701086956521735`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"14 Feb 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         20.720108695652172`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"17 Feb 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         28.192934782608692`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"11 Mar 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         29.551630434782606`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"15 Mar 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {35., 
          FormBox[
           RotationBox[
            StyleBox[
            "\"no\\nprotest\"", FontFamily -> "Times", StripOnInput -> False],
             BoxRotation -> 0.], TraditionalForm]}, {35., 
          FormBox[
           RotationBox[
            StyleBox[
            "\"no\\nprotest\"", FontFamily -> "Times", StripOnInput -> False],
             BoxRotation -> 0.], TraditionalForm]}, {21.39945652173913, 
          FormBox[
           RotationBox[
            StyleBox["\"\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         21.73913043478261, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"20 Feb 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         13.926630434782608`, 
          FormBox[
           RotationBox[
            StyleBox["\"\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         14.605978260869565`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"30 Jan 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}, {
         24.116847826086953`, 
          FormBox[
           RotationBox[
            StyleBox[
            "\"27 Feb 11\"", FontFamily -> "Times", StripOnInput -> False], 
            BoxRotation -> 1.5707963267948966`], TraditionalForm]}}, 
        Automatic}}, Epilog -> {
       InsetBox[
        BoxData[
         FormBox[
          TagBox[
           GridBox[{{
              StyleBox[
              "\"vertex diamter \[Proportional]\"", {
               FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
               False]}, {
              StyleBox[
              "\"Internet penetration\"", {
               FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
               False]}}, GridBoxAlignment -> {"Columns" -> {{Center}}}, 
            DefaultBaseStyle -> "Column", 
            GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{0.1}}}], 
           "Column"], TraditionalForm]], {29, 17.5}], 
       InsetBox[
        BoxData[
         FormBox[
          TemplateBox[{
            StyleBox[
            "0", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
             False], 
            StyleBox[
            "2", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
             False], 
            StyleBox[
            "4", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
             False], 
            StyleBox[
            "11", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
             False], 
            StyleBox[
            "13", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
             False]}, "SwatchLegend", DisplayFunction -> (FormBox[
             StyleBox[
              StyleBox[
               PaneBox[
                TagBox[
                 GridBox[{{
                    StyleBox[
                    TemplateBox[{
                    StyleBox[
                    "\"out\"", {FontSize -> 11, FontFamily -> "Times"}, 
                    StripOnInput -> False], 
                    StyleBox[
                    "\"-\"", {FontSize -> 7.5, FontFamily -> "Times"}, 
                    StripOnInput -> False], 
                    StyleBox[
                    "\"degree\"", {FontSize -> 11, FontFamily -> "Times"}, 
                    StripOnInput -> False]}, "RowDefault"], {
                    FontFamily -> "Arial"}, Background -> Automatic, 
                    StripOnInput -> False]}, {
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1., 1., 1.]], 
                    DiskBox[{5, 5}, {5, 5}]}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1., 0.8912947692307693, 0.5302406153846155]], 
                    DiskBox[{5, 5}, {5, 5}]}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1., 0.7133876923076923, 0.18535915384615387`]], 
                    DiskBox[{5, 5}, {5, 5}]}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[
                    0.34411661538461547`, 0.1253538461538462, 
                    0.46754123076923093`]], 
                    DiskBox[{5, 5}, {5, 5}]}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}, {
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0., 0., 0.]], 
                    DiskBox[{5, 5}, {5, 5}]}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {
                    "Columns" -> {{0.5}}, "Rows" -> {{0.5}}}], "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxItemSize -> {
                    "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                    GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}],
                     "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}},
                   AutoDelete -> False, 
                  GridBoxItemSize -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
                  GridBoxSpacings -> {
                   "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
                 "Grid"], Alignment -> Left, AppearanceElements -> None, 
                ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
              False], TraditionalForm]& ), 
           InterpretationFunction :> (RowBox[{"SwatchLegend", "[", 
              RowBox[{
                RowBox[{"{", 
                  RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 1., 1.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.6666666666666667, 0.6666666666666667, 
                    0.6666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1., 1., 1.]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 1., 1.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 1., 1.], Editable -> False, Selectable -> 
                    False], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.8912947692307693, 0.5302406153846155], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.6666666666666667, 0.5941965128205129, 
                    0.3534937435897437], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1., 0.8912947692307693, 0.5302406153846155]"], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.8912947692307693, 0.5302406153846155]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.8912947692307693, 0.5302406153846155], 
                    Editable -> False, Selectable -> False], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1., 0.7133876923076923, 0.18535915384615387`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.6666666666666667, 0.47559179487179487`, 
                    0.12357276923076925`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[1., 0.7133876923076923, 0.18535915384615387]"], 
                    Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1., 0.7133876923076923, 0.18535915384615387`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1., 0.7133876923076923, 0.18535915384615387`], 
                    Editable -> False, Selectable -> False], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[
                    0.34411661538461547`, 0.1253538461538462, 
                    0.46754123076923093`], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.229411076923077, 0.08356923076923081, 
                    0.31169415384615395`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.34411661538461547, 0.1253538461538462, \
0.46754123076923093]"], Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
                    Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[
                    0.34411661538461547`, 0.1253538461538462, 
                    0.46754123076923093`]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[
                    0.34411661538461547`, 0.1253538461538462, 
                    0.46754123076923093`], Editable -> False, Selectable -> 
                    False], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0., 0., 0.], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> RGBColor[0., 0., 0.], FrameTicks -> 
                    None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0., 0., 0.]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0., 0., 0.]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0., 0., 0.], Editable -> False, Selectable -> 
                    False]}], "}"}], ",", 
                RowBox[{"{", 
                  RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
                RowBox[{"LegendLabel", "\[Rule]", 
                  TemplateBox[{
                    StyleBox[
                    "\"out\"", {FontSize -> 11, FontFamily -> "Times"}, 
                    StripOnInput -> False], 
                    StyleBox[
                    "\"-\"", {FontSize -> 7.5, FontFamily -> "Times"}, 
                    StripOnInput -> False], 
                    StyleBox[
                    "\"degree\"", {FontSize -> 11, FontFamily -> "Times"}, 
                    StripOnInput -> False]}, "RowDefault"]}], ",", 
                RowBox[{"LegendMarkers", "\[Rule]", "\"Bubble\""}]}], 
              "]"}]& ), Editable -> True], TraditionalForm]], 
        Scaled[{1, 1}], {1.25, 1.15}], 
       InsetBox[
        BoxData[
         FormBox[
          StyleBox[
          "\"Facebook rank\"", {FontSize -> 11, FontFamily -> "Times"}, 
           StripOnInput -> False], TraditionalForm]], 
        Scaled[{0.12, 0.34}]], 
       InsetBox[
        BoxData[
         FormBox[
          TagBox[
           GridBox[{{
              GraphicsBox[{
                Directive[
                 RGBColor[{0.46484375, 0.51171875, 0.63671875}], 
                 Thickness[0.075], 
                 Opacity[0.8], 
                 Arrowheads[0.33]], 
                ArrowBox[{{0, 0}, {0.3, 0}}]}, ImageSize -> Automatic], 
              StyleBox[
              "1", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
               False]}, {
              GraphicsBox[{
                Directive[
                 RGBColor[{0.46484375, 0.51171875, 0.63671875}], 
                 Thickness[0.06], 
                 Opacity[0.8], 
                 Arrowheads[0.33]], 
                ArrowBox[{{0, 0}, {0.3, 0}}]}, ImageSize -> Automatic], 
              StyleBox[
              "2", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
               False]}, {
              GraphicsBox[{
                Directive[
                 RGBColor[{0.46484375, 0.51171875, 0.63671875}], 
                 Thickness[0.045], 
                 Opacity[0.8], 
                 Arrowheads[0.33]], 
                ArrowBox[{{0, 0}, {0.3, 0}}]}, ImageSize -> Automatic], 
              StyleBox[
              "3", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
               False]}, {
              GraphicsBox[{
                Directive[
                 RGBColor[{0.46484375, 0.51171875, 0.63671875}], 
                 Thickness[0.03], 
                 Opacity[0.8], 
                 Arrowheads[0.33]], 
                ArrowBox[{{0, 0}, {0.3, 0}}]}, ImageSize -> Automatic], 
              StyleBox[
              "4", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
               False]}, {
              GraphicsBox[{
                Directive[
                 RGBColor[{0.46484375, 0.51171875, 0.63671875}], 
                 Thickness[0.015], 
                 Opacity[0.8], 
                 Arrowheads[0.33]], 
                ArrowBox[{{0, 0}, {0.3, 0}}]}, ImageSize -> Automatic], 
              StyleBox[
              "5", {FontSize -> 11, FontFamily -> "Times"}, StripOnInput -> 
               False]}}, 
            GridBoxAlignment -> {
             "Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> 
            False, GridBoxItemSize -> {
             "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{-20.5}}}], 
           "Grid"], TraditionalForm]], 
        Scaled[{0.12, 0.18}]]}, ImageMargins -> 3, DisplayFunction -> 
     Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, AxesOrigin -> {0, 0}, 
     PlotRange -> {{0, 35.}, {0, 17.7999992370605}}, PlotRangeClipping -> 
     True, ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {{0, 35.}, {0, 17.7999992370605}},
      PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Prolog -> {{}}, Ticks -> {Automatic, Automatic}}]},
  "RowWithSeparators"]], "Output",
 CellChangeTimes->{
  3.66868733821799*^9, 3.668687398876873*^9, 3.668687726882297*^9, 
   3.6686879028962727`*^9, {3.66868796369654*^9, 3.668687988149687*^9}, 
   3.668688110427455*^9, {3.668688389085545*^9, 3.668688421164353*^9}, {
   3.6686884634403477`*^9, 3.6686884669035053`*^9}, 3.6686925997952347`*^9}]
}, {2}]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["10 hop motifs",
  FontWeight->"Bold"],
 " (",
 Cell[BoxData[
  FormBox["p", TraditionalForm]],
  FormatType->"TraditionalForm"],
 "-value 0.067, with null model in which protest dates are randomized)"
}], "Item",
 CellChangeTimes->{{3.668692205733886*^9, 3.668692254046752*^9}, 
   3.668692413665539*^9}],

Cell[TextData[{
 StyleBox["Unemployment in 2010", "Text",
  FontWeight->"Bold"],
 " has the largest coefficient of determination ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SuperscriptBox["R", "2"], "=", "0.245"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". Each 1% of unemployment is associated with protests starting ",
 Cell[BoxData[
  FormBox[
   RowBox[{"3.2", "\[PlusMinus]", "1.5"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " days earlier (",
 Cell[BoxData[
  FormBox["p", TraditionalForm]],
  FormatType->"TraditionalForm"],
 "-value 0.06). Based on the criterion for forward selection, no other \
covariate could be added to this model (unemployment and intercept) because \
the resulting adjusted ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["R", "2"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " are all less than 0.245."
}], "Item",
 CellChangeTimes->{{3.668692205733886*^9, 3.66869228216682*^9}, {
  3.668692316854307*^9, 3.66869243062694*^9}, {3.66869321989005*^9, 
  3.668693289822708*^9}, {3.668693474575811*^9, 3.668693474583427*^9}}],

Cell[TextData[{
 StyleBox["Evidence of the domino hypothesis",
  FontWeight->"Bold"],
 ": Among countries that had protests, a majority of those countries share a \
border with at least one country whose protests began earlier, and a majority \
has a Facebook link from at least one country whose protest began earlier. \
These results are statistically significant compared with a null model of \
randomized protest dates. See endnote 9 of the paper."
}], "Item",
 CellChangeTimes->{{3.668692205733886*^9, 3.66869228216682*^9}, {
  3.668692316854307*^9, 3.66869243062694*^9}, {3.66869321989005*^9, 
  3.668693289822708*^9}, {3.668693474575811*^9, 3.668693591778144*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Motifs", "Section",
 CellChangeTimes->{{3.668688616554411*^9, 3.668688617264743*^9}}],

Cell[CellGroupData[{

Cell["find hop motifs", "Subsection",
 CellChangeTimes->{{3.668689871008247*^9, 3.66868987576761*^9}}],

Cell[CellGroupData[{

Cell["code", "Subsubsection",
 CellChangeTimes->{{3.668689877215495*^9, 3.668689877711575*^9}}],

Cell[TextData[{
 "For a given ",
 StyleBox["upstreamCountry", "Code"],
 ", find all cascade hop motifs that have that country as the upstream \
country:"
}], "Text",
 CellChangeTimes->{{3.66868996410809*^9, 3.66869000311014*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"findCascadeHoppingsReversed", "[", 
   RowBox[{"graph_", ",", "upstreamCountry_", ",", "vertexToTimeRules_"}], 
   "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "countriesPointingToInitialCountryCatastropheLater", ",", 
      "secondNeighbors", ",", "result"}], "}"}], ",", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"countriesPointingToInitialCountryCatastropheLater", "=", 
      RowBox[{"Select", "[", 
       RowBox[{
        RowBox[{"VertexList", "[", "graph", "]"}], 
        RowBox[{"(*", 
         RowBox[{"First", "/@", 
          RowBox[{"Cases", "[", 
           RowBox[{
            RowBox[{"EdgeList", "[", "graph", "]"}], ",", 
            RowBox[{"upstreamCountry", "\[DirectedEdge]", "_"}]}], "]"}]}], 
         "*)"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"EdgeList", "[", "graph", "]"}], ",", 
            RowBox[{"upstreamCountry", "\[DirectedEdge]", "#"}]}], "]"}], "&&",
           "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"#", "/.", "vertexToTimeRules"}], ")"}], ">", 
           RowBox[{"(", 
            RowBox[{"upstreamCountry", "/.", "vertexToTimeRules"}], ")"}]}]}],
          "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"result", "=", 
      RowBox[{"Reap", "[", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", "\[IndentingNewLine]", 
        RowBox[{"(*", " ", 
         RowBox[{
         "Make", " ", "a", " ", "list", " ", "of", " ", "countries", " ", 
          "pointing", " ", "to", " ", "firstNeighbor", " ", "who", " ", 
          "protested", " ", "earlier", " ", "than", " ", "it", " ", "did", 
          " ", "but", " ", "after", " ", "initial", " ", "country"}], " ", 
         "*)"}], "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"secondNeighbors", "=", 
           RowBox[{"Select", "[", 
            RowBox[{
             RowBox[{"VertexList", "[", "graph", "]"}], 
             RowBox[{"(*", 
              RowBox[{"Last", "/@", 
               RowBox[{"Cases", "[", 
                RowBox[{
                 RowBox[{"EdgeList", "[", "graph", "]"}], ",", 
                 RowBox[{"firstNeighbor", "\[DirectedEdge]", "_"}]}], "]"}]}],
               "*)"}], ",", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"MemberQ", "[", 
                RowBox[{
                 RowBox[{"EdgeList", "[", "graph", "]"}], ",", 
                 RowBox[{"firstNeighbor", "\[DirectedEdge]", "#"}]}], "]"}], "&&", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"upstreamCountry", "/.", "vertexToTimeRules"}], 
                  ")"}], "<", 
                 RowBox[{"(", 
                  RowBox[{"#", "/.", "vertexToTimeRules"}], ")"}], "<", 
                 RowBox[{"(", 
                  RowBox[{"firstNeighbor", "/.", "vertexToTimeRules"}], 
                  ")"}]}], ")"}]}], "&"}]}], "]"}]}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"secondNeighbors", "=!=", 
             RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Do", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Sow", "[", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"\"\<upstream\>\"", "\[Rule]", "upstreamCountry"}],
                    ",", 
                   RowBox[{
                   "\"\<intermediate\>\"", "\[Rule]", "firstNeighbor"}], ",", 
                   
                   RowBox[{
                   "\"\<downstream\>\"", "\[Rule]", "secondNeighbor"}]}], 
                  "}"}], 
                 RowBox[{"(*", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{
                    "firstNeighbor", "\[DirectedEdge]", "upstreamCountry"}], 
                    ",", 
                    RowBox[{
                    "secondNeighbor", "\[DirectedEdge]", "firstNeighbor"}]}], 
                   "}"}], "*)"}], "]"}], ";"}], ",", "\[IndentingNewLine]", 
               RowBox[{"{", 
                RowBox[{"secondNeighbor", ",", "secondNeighbors"}], "}"}]}], 
              "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], 
         "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{
          "firstNeighbor", ",", 
           "countriesPointingToInitialCountryCatastropheLater"}], "}"}]}], 
        "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Last", "[", "result", "]"}], "=!=", 
        RowBox[{"{", "}"}]}], ",", 
       RowBox[{"result", "\[LeftDoubleBracket]", 
        RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}], ",", "None"}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input"],

Cell["Find all hop motifs:", "Text",
 CellChangeTimes->{{3.6686900320773*^9, 3.6686900343236027`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"findAllHopMotifsReversed", "[", 
   RowBox[{"graph_", ",", "eventTimes_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "cascadeHopTriplets", "}"}], ",", "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cascadeHopTriplets", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Cases", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"findCascadeHoppingsReversed", "[", 
             RowBox[{"graph", ",", "#", ",", "eventTimes"}], "]"}], "&"}], "/@", 
           RowBox[{"VertexList", "[", "graph", "]"}]}], ",", 
          RowBox[{"Except", "[", "None", "]"}]}], "]"}], ",", "1"}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Select", "[", 
      RowBox[{"cascadeHopTriplets", ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Avoid", " ", "fan"}], "-", 
         RowBox[{
         "forward", " ", "triplets", " ", "in", " ", "the", " ", 
          "calculation", " ", "of", " ", "cascade"}], "-", 
         RowBox[{"hop", " ", "temporal", " ", "motifs"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Not", "@", 
          RowBox[{"MemberQ", "[", 
           RowBox[{
            RowBox[{"EdgeList", "[", "graph", "]"}], ",", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\"\<upstream\>\"", "/.", "#"}], ")"}], 
             "\[DirectedEdge]", 
             RowBox[{"(", 
              RowBox[{"\"\<downstream\>\"", "/.", "#"}], ")"}]}]}], "]"}]}], 
         "\[IndentingNewLine]", "&&", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
          "make", " ", "sure", " ", "that", " ", "the", " ", "downstream", 
           " ", "country", " ", 
           RowBox[{"doesn", "'"}], "t", " ", "have", " ", "links", " ", 
           "pointing", " ", "to", " ", "countries", " ", "that", " ", 
           "protested", " ", "before", " ", "it", " ", "did"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{"And", "@@", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"First", "[", "#", "]"}], "/.", "eventTimes"}], 
                ")"}], ">", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Last", "[", "#", "]"}], "/.", "eventTimes"}], 
                ")"}]}], ")"}], "&"}], "/@", 
            RowBox[{"Cases", "[", 
             RowBox[{
              RowBox[{"EdgeList", "[", "graph", "]"}], ",", 
              RowBox[{"_", "\[DirectedEdge]", 
               RowBox[{"(", 
                RowBox[{"\"\<downstream\>\"", "/.", "#"}], ")"}]}]}], "]"}]}],
            ")"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "&"}]}], 
      "]"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.63689494595938*^9, 3.636894953524475*^9}, {
  3.636894996622154*^9, 3.6368950501703863`*^9}, {3.636895274141356*^9, 
  3.636895305195363*^9}, {3.6368957924875193`*^9, 3.636895812446289*^9}, {
  3.636895880899287*^9, 3.636895921110565*^9}, {3.6686900473957*^9, 
  3.668690048506117*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["10 hop motifs in Figure 4", "Subsubsection",
 CellChangeTimes->{{3.668689934581872*^9, 3.668689937988083*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"graph", ",", "countriesToExamine", ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countriesToExamine", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"countriesWithProtests", "~", "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
         "}"}]}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"graph", "=", 
     RowBox[{"Subgraph", "[", 
      RowBox[{"FacebookGraphReversed", ",", "countriesToExamine"}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\"\<upstream\>\"", "\[DirectedEdge]", "\"\<downstream\>\""}], 
      ")"}], "/.", 
     RowBox[{"findAllHopMotifsReversed", "[", 
      RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}]}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Egypt\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"Sudan\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[DirectedEdge]", "\<\"Jordan\"\>"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"Yemen\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.668689911794346*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "%"}]], "Input",
 CellChangeTimes->{{3.668689913162054*^9, 3.668689914040279*^9}}],

Cell[BoxData["10"], "Output",
 CellChangeTimes->{3.668689914206259*^9}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["randomize protest start dates", "Subsection",
 CellChangeTimes->{{3.6368959588702297`*^9, 3.636895966006167*^9}}],

Cell[CellGroupData[{

Cell["summary of results", "Subsubsection",
 CellChangeTimes->{{3.668690107903825*^9, 3.668690110486998*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<countries in Fig. 4, with UAE & Qatar\>\"", ",", "10", ",", 
       "0.0672`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<countries in Fig. 4, without UAE & Qatar\>\"", ",", "9", ",", 
       "0.0871`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<all 20 countries with protests\>\"", ",", "16", ",", "0.209`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<all 20 countries with protests, plus UAE and Qatar\>\"", ",", "10",
        ",", "0.174`"}], "}"}]}], "}"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<countries\>\"", ",", "\"\<# hop motifs in Facebook graph\>\"", 
        ",", "\"\<\!\(\*
StyleBox[\"p\",
FontSlant->\"Italic\"]\)\[Hyphen]value\>\""}], "}"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.637417142855247*^9, 3.637417249308053*^9}, {
   3.637417297184754*^9, 3.637417299712537*^9}, 3.637429379462823*^9}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"countries\"\>",
       HoldForm], 
      TagBox["\<\"# hop motifs in Facebook graph\"\>",
       HoldForm], 
      TagBox["\<\"\\!\\(\\*\\nStyleBox[\\\"p\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\[Hyphen]value\"\>",
       HoldForm]},
     {"\<\"countries in Fig. 4, with UAE & Qatar\"\>", "10", "0.0672`"},
     {"\<\"countries in Fig. 4, without UAE & Qatar\"\>", "9", "0.0871`"},
     {"\<\"all 20 countries with protests\"\>", "16", "0.209`"},
     {"\<\"all 20 countries with protests, plus UAE and Qatar\"\>", "10", 
      "0.174`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {None, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"countries", "# hop motifs in Facebook graph", 
       "\!\(\*\nStyleBox[\"p\",\n\
FontSlant->\"Italic\"]\)\[Hyphen]value"}}]]]], "Output",
 CellChangeTimes->{{3.637417145616363*^9, 3.6374171611273527`*^9}, {
   3.6374171915243998`*^9, 3.6374172496383467`*^9}, 3.6374172999655943`*^9, 
   3.637429380126061*^9}]
}, {2}]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Figure 4 countries with UAE and Qatar", "Subsubsection",
 CellChangeTimes->{{3.6368962219114323`*^9, 3.636896224702689*^9}, {
  3.637417127721281*^9, 3.637417130695118*^9}}],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"graph", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "10000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"graph", "=", 
     RowBox[{"Subgraph", "[", 
      RowBox[{"FacebookGraphReversed", ",", 
       RowBox[{"Cases", "[", 
        RowBox[{
         RowBox[{"countriesWithProtests", "~", "Join", "~", 
          RowBox[{"{", 
           RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
           "}"}]}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
      RowBox[{"(*", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
       "*)"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"randomOutcomes", "=", 
     RowBox[{
      RowBox[{"Reap", "[", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"protestTimes", "=", 
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"VertexList", "[", "graph", "]"}], "\[Rule]", 
             RowBox[{"RandomReal", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"Length", "[", 
                RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], "]"}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"Sow", "[", 
           RowBox[{"findAllHopMotifsReversed", "[", 
            RowBox[{"graph", ",", "protestTimes"}], "]"}], "]"}], ";"}], 
         "\[IndentingNewLine]", ",", 
         RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], "\[IndentingNewLine]",
        "]"}], "\[LeftDoubleBracket]", 
      RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"actualNumberOfHopMotifs", "=", 
     RowBox[{"Length", "@", 
      RowBox[{"findAllHopMotifsReversed", "[", 
       RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}]}]}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.636896013640383*^9, 3.636896053767877*^9}, {
  3.636896088477003*^9, 3.6368961048249817`*^9}, {3.636896173214232*^9, 
  3.636896173763671*^9}, {3.636896628262588*^9, 3.6368966308773003`*^9}, {
  3.637414267614936*^9, 3.6374142737157917`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "/@", "randomOutcomes"}]], "Input",
 CellChangeTimes->{{3.6368960314606256`*^9, 3.636896044118606*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "3", ",", "5", ",", "5", ",", "1", ",", "2", ",", "6", ",", "3", 
   ",", "2", ",", "0", ",", "1", ",", "2", ",", "8", ",", "10", ",", "8", ",",
    "3", ",", "6", ",", "3", ",", "13", ",", "2", ",", "3", ",", "0", ",", 
   "3", ",", "3", ",", "0", ",", "1", ",", "0", ",", "6", ",", "4", ",", "2", 
   ",", "1", ",", "9", ",", "3", ",", "2", ",", "5", ",", "0", ",", "0", ",", 
   "22", ",", "3", ",", "8", ",", "7", ",", "1", ",", "7", ",", "11", ",", 
   "7", ",", "5", ",", "3", ",", "0", ",", "10", ",", "0", ",", "12", ",", 
   "12", ",", "3", ",", "1", ",", "7", ",", "7", ",", "1", ",", "7", ",", "5",
    ",", "0", ",", "2", ",", "2", ",", "3", ",", "4", ",", "1", ",", "0", ",",
    "1", ",", "7", ",", "4", ",", "6", ",", "0", ",", "2", ",", "2", ",", "3",
    ",", "4", ",", "5", ",", "5", ",", "3", ",", "0", ",", "4", ",", "4", ",",
    "2", ",", "1", ",", "3", ",", "3", ",", "4", ",", "2", ",", "2", ",", "8",
    ",", "4", ",", "3", ",", "12", ",", "0", ",", "2", ",", "1", ",", "1", 
   ",", "10", ",", "2", ",", "6", ",", "0", ",", "5", ",", "2", ",", "0", ",",
    "6", ",", "1", ",", "0", ",", "17", ",", "2", ",", "0", ",", "6", ",", 
   "5", ",", "5", ",", "3", ",", "2", ",", "8", ",", "1", ",", "1", ",", "3", 
   ",", "3", ",", "5", ",", "1", ",", "5", ",", "4", ",", "1", ",", "7", ",", 
   "0", ",", "0", ",", "8", ",", "0", ",", "9", ",", "3", ",", "0", ",", "10",
    ",", "2", ",", "1", ",", "0", ",", "11", ",", "7", ",", "7", ",", "4", 
   ",", "1", ",", "4", ",", "1", ",", "14", ",", "10", ",", "4", ",", "0", 
   ",", "2", ",", "2", ",", "1", ",", "6", ",", "1", ",", "3", ",", "1", ",", 
   "8", ",", "3", ",", "2", ",", "10", ",", "5", ",", "1", ",", "6", ",", "2",
    ",", "3", ",", "3", ",", "2", ",", "2", ",", "7", ",", "0", ",", "7", ",",
    "2", ",", "3", ",", "3", ",", "1", ",", "1", ",", "6", ",", "0", ",", "5",
    ",", "1", ",", "5", ",", "1", ",", "5", ",", "0", ",", "13", ",", "6", 
   ",", "2", ",", "0", ",", "4", ",", "2", ",", "0", ",", "2", ",", "1", ",", 
   "2", ",", "7", ",", "0", ",", "7", ",", "10", ",", "4", ",", "4", ",", "0",
    ",", "8"}], "}"}]], "Output",
 CellChangeTimes->{{3.636896032753598*^9, 3.6368960570059767`*^9}, {
  3.6368960963459883`*^9, 3.636896123189824*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.5319999999999999], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.5319999999999999], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 1369}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{31.158326661329063`, 
          45.00900720576461}, {-70.32370161021066, 90.90377156037638}}],
        StatusArea[#, 1369]& ,
        TagBoxNote->"1369"],
       StyleBox["1369", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1369, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 1634}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{44.50900720576461, 
          58.35968775020015}, {-101.43603206324613`, 90.90377156037638}}],
        StatusArea[#, 1634]& ,
        TagBoxNote->"1634"],
       StyleBox["1634", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1634, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 1571}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{57.85968775020015, 
          71.7103682946357}, {-94.0395157668641, 90.90377156037638}}],
        StatusArea[#, 1571]& ,
        TagBoxNote->"1571"],
       StyleBox["1571", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1571, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1352}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{71.2103682946357, 
          85.06104883907125}, {-68.32781626039329, 90.90377156037638}}],
        StatusArea[#, 1352]& ,
        TagBoxNote->"1352"],
       StyleBox["1352", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1352, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 943}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{84.56104883907125, 
          98.41172938350678}, {-20.30916284419891, 90.90377156037638}}],
        StatusArea[#, 943]& ,
        TagBoxNote->"943"],
       StyleBox["943", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[943, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 810}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{97.91172938350678, 
          111.76240992794234`}, {-4.694295107392421, 90.90377156037638}}],
        StatusArea[#, 810]& ,
        TagBoxNote->"810"],
       StyleBox["810", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[810, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 584}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{111.26240992794234`, 125.11309047237788`}, {
          21.83923954312084, 90.90377156037638}}],
        StatusArea[#, 584]& ,
        TagBoxNote->"584"],
       StyleBox["584", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[584, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 476}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{124.61309047237788`, 138.46377101681344`}, {
          34.518981765490025`, 90.90377156037638}}],
        StatusArea[#, 476]& ,
        TagBoxNote->"476"],
       StyleBox["476", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[476, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 358}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{137.96377101681344`, 151.81445156124897`}, {
          48.37277419363412, 90.90377156037638}}],
        StatusArea[#, 358]& ,
        TagBoxNote->"358"],
       StyleBox["358", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[358, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 231}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{151.31445156124897`, 165.1651321056845}, {
          63.28321180697565, 90.90377156037638}}],
        StatusArea[#, 231]& ,
        TagBoxNote->"231"],
       StyleBox["231", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[231, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 196}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{164.6651321056845, 178.51581265012007`}, {
          67.39238752718788, 90.90377156037638}}],
        StatusArea[#, 196]& ,
        TagBoxNote->"196"],
       StyleBox["196", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[196, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 138}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{178.01581265012007`, 191.8664931945556}, {
          74.20187872068243, 90.90377156037638}}],
        StatusArea[#, 138]& ,
        TagBoxNote->"138"],
       StyleBox["138", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[138, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {13., 100}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{191.3664931945556, 205.21717373899116`}, {
          78.66326950262714, 90.90377156037638}}],
        StatusArea[#, 100]& ,
        TagBoxNote->"100"],
       StyleBox["100", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[100, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{13., 0}, {14., 84}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{204.71717373899116`, 218.5678542834267}, {
          80.54174983186702, 90.90377156037638}}],
        StatusArea[#, 84]& ,
        TagBoxNote->"84"],
       StyleBox["84", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[84, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{14., 0}, {15., 55}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{218.0678542834267, 231.91853482786226`}, {
          83.9464954286143, 90.90377156037638}}],
        StatusArea[#, 55]& ,
        TagBoxNote->"55"],
       StyleBox["55", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[55, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{15., 0}, {16., 31}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{231.41853482786226`, 245.2692153722978}, {
          86.76421592247412, 90.90377156037638}}],
        StatusArea[#, 31]& ,
        TagBoxNote->"31"],
       StyleBox["31", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[31, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{16., 0}, {17., 18}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{244.7692153722978, 258.61989591673336`}, {
          88.29048118998152, 90.90377156037638}}],
        StatusArea[#, 18]& ,
        TagBoxNote->"18"],
       StyleBox["18", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[18, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{17., 0}, {18., 16}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{258.11989591673336`, 271.9705764611689}, {
          88.5252912311365, 90.90377156037638}}],
        StatusArea[#, 16]& ,
        TagBoxNote->"16"],
       StyleBox["16", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[16, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{18., 0}, {19., 12}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{271.4705764611689, 285.3212570056044}, {
          88.99491131344648, 90.90377156037638}}],
        StatusArea[#, 12]& ,
        TagBoxNote->"12"],
       StyleBox["12", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[12, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{19., 0}, {20., 11}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{284.8212570056044, 298.67193755003996`}, {
          89.11231633402397, 90.90377156037638}}],
        StatusArea[#, 11]& ,
        TagBoxNote->"11"],
       StyleBox["11", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[11, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{20., 0}, {21., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{298.17193755003996`, 312.02261809447555`}, {
          89.69934143691142, 90.90377156037638}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{21., 0}, {22., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{311.52261809447555`, 325.3732986389111}, {
          90.28636653979889, 90.90377156037638}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{22., 0}, {23., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{324.8732986389111, 338.7239791833466}, {
          90.28636653979889, 90.90377156037638}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{23., 0}, {24., 3}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{338.2239791833466, 352.07465972778215`}, {
          90.0515564986439, 90.90377156037638}}],
        StatusArea[#, 3]& ,
        TagBoxNote->"3"],
       StyleBox["3", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[3, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.48, 0},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 24.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.636896130636484*^9, 3.6368962002840137`*^9, 
  3.6368968954498158`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "10"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", 
      RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}}],

Cell[BoxData["0.0672`"], "Output",
 CellChangeTimes->{{3.6368961567278013`*^9, 3.636896200402142*^9}, 
   3.6368968956637287`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Figure 4 countries without UAE and Qatar", "Subsubsection",
 CellChangeTimes->{{3.6368962219114323`*^9, 3.636896224702689*^9}, {
  3.636896269805234*^9, 3.636896270014453*^9}, {3.637417150222831*^9, 
  3.637417152286605*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"graph", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "10000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"graph", "=", 
     RowBox[{"Subgraph", "[", 
      RowBox[{"FacebookGraphReversed", ",", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
      RowBox[{"(*", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
       "*)"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"actualNumberOfHopMotifs", "=", 
     RowBox[{"Length", "[", 
      RowBox[{"findAllHopMotifsReversed", "[", 
       RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<actualNumberOfHopMotifs = \>\"", ",", "actualNumberOfHopMotifs"}], 
     "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"randomOutcomes", "=", 
     RowBox[{
      RowBox[{"Reap", "[", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"protestTimes", "=", 
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"VertexList", "[", "graph", "]"}], "\[Rule]", 
             RowBox[{"RandomReal", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"Length", "[", 
                RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], "]"}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"Sow", "[", 
           RowBox[{"findAllHopMotifsReversed", "[", 
            RowBox[{"graph", ",", "protestTimes"}], "]"}], "]"}], ";"}], 
         "\[IndentingNewLine]", ",", 
         RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], "\[IndentingNewLine]",
        "]"}], "\[LeftDoubleBracket]", 
      RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.636896013640383*^9, 3.636896053767877*^9}, {
   3.636896088477003*^9, 3.6368961048249817`*^9}, {3.636896173214232*^9, 
   3.636896173763671*^9}, {3.6368962413608313`*^9, 3.63689630695313*^9}, 
   3.636896358998192*^9, 3.637414335986383*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"actualNumberOfHopMotifs = \"\>", "\[InvisibleSpace]", "9"}],
  SequenceForm["actualNumberOfHopMotifs = ", 9],
  Editable->False]], "Print",
 CellChangeTimes->{{3.636896257223905*^9, 3.6368963072254763`*^9}, 
   3.636896359329331*^9, 3.637414336892321*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"Length", "/@", "randomOutcomes"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "1000"}], "}"}]}], "}"}], 
       "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.6368963147822723`*^9, 3.6368963361418667`*^9}, {3.637414345103448*^9, 
  3.6374143452056*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.5389999999999999], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.5389999999999999], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 1256}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{31.15832666132906, 
          45.589471577261804`}, {-54.572638398269746`, 90.9037715603764}}],
        StatusArea[#, 1256]& ,
        TagBoxNote->"1256"],
       StyleBox["1256", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1256, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 1662}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{45.089471577261804`, 
          59.52061649319455}, {-101.43603206324612`, 90.9037715603764}}],
        StatusArea[#, 1662]& ,
        TagBoxNote->"1662"],
       StyleBox["1662", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1662, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 1581}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{59.02061649319455, 
          73.45176140912729}, {-92.08643874584935, 90.9037715603764}}],
        StatusArea[#, 1581]& ,
        TagBoxNote->"1581"],
       StyleBox["1581", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1581, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1364}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{72.95176140912729, 
          87.38290632506003}, {-67.03876282146543, 90.9037715603764}}],
        StatusArea[#, 1364]& ,
        TagBoxNote->"1364"],
       StyleBox["1364", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1364, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 1019}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{86.88290632506003, 
          101.31405124099278`}, {-27.216420914034757`, 90.9037715603764}}],
        StatusArea[#, 1019]& ,
        TagBoxNote->"1019"],
       StyleBox["1019", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1019, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 800}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{100.81405124099278`, 
          115.24519615692552`}, {-1.937890833665719, 90.9037715603764}}],
        StatusArea[#, 800]& ,
        TagBoxNote->"800"],
       StyleBox["800", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[800, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 631}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{114.74519615692552`, 129.17634107285826`}, {
          17.569285347075677`, 90.9037715603764}}],
        StatusArea[#, 631]& ,
        TagBoxNote->"631"],
       StyleBox["631", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[631, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 481}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{128.67634107285826`, 143.107485988791}, {
          34.88334704595857, 90.9037715603764}}],
        StatusArea[#, 481]& ,
        TagBoxNote->"481"],
       StyleBox["481", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[481, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 335}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{142.607485988791, 157.03863090472376`}, {
          51.73570043287126, 90.9037715603764}}],
        StatusArea[#, 335]& ,
        TagBoxNote->"335"],
       StyleBox["335", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[335, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 255}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{156.53863090472376`, 170.9697758206565}, {
          60.96986667227547, 90.9037715603764}}],
        StatusArea[#, 255]& ,
        TagBoxNote->"255"],
       StyleBox["255", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[255, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 194}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{170.4697758206565, 184.90092073658926`}, {
          68.01091842982119, 90.9037715603764}}],
        StatusArea[#, 194]& ,
        TagBoxNote->"194"],
       StyleBox["194", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[194, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 127}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{184.40092073658926`, 198.83206565252198`}, {
          75.74453265532222, 90.9037715603764}}],
        StatusArea[#, 127]& ,
        TagBoxNote->"127"],
       StyleBox["127", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[127, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {13., 105}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{198.33206565252198`, 212.76321056845472`}, {
          78.28392837115837, 90.9037715603764}}],
        StatusArea[#, 105]& ,
        TagBoxNote->"105"],
       StyleBox["105", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[105, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{13., 0}, {14., 72}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{212.26321056845472`, 226.69435548438747`}, {
          82.0930219449126, 90.9037715603764}}],
        StatusArea[#, 72]& ,
        TagBoxNote->"72"],
       StyleBox["72", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[72, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{14., 0}, {15., 40}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{226.19435548438747`, 240.62550040032022`}, {
          85.7866884406743, 90.9037715603764}}],
        StatusArea[#, 40]& ,
        TagBoxNote->"40"],
       StyleBox["40", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[40, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{15., 0}, {16., 31}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{240.12550040032022`, 254.55664531625297`}, {
          86.82553214260727, 90.9037715603764}}],
        StatusArea[#, 31]& ,
        TagBoxNote->"31"],
       StyleBox["31", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[31, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{16., 0}, {17., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{254.05664531625297`, 268.4877902321857}, {
          89.24950078045087, 90.9037715603764}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{17., 0}, {18., 19}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{267.9877902321857, 282.41893514811846`}, {
          88.2106570785179, 90.9037715603764}}],
        StatusArea[#, 19]& ,
        TagBoxNote->"19"],
       StyleBox["19", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[19, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{18., 0}, {19., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{281.91893514811846`, 296.3500800640512}, {
          89.71120909242109, 90.9037715603764}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{19., 0}, {20., 7}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{295.8500800640512, 310.28122497998396`}, {
          89.59578201442854, 90.9037715603764}}],
        StatusArea[#, 7]& ,
        TagBoxNote->"7"],
       StyleBox["7", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[7, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{20., 0}, {21., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{309.78122497998396`, 324.2123698959167}, {
          90.1729174043913, 90.9037715603764}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{21., 0}, {22., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{323.7123698959167, 338.14351481184946`}, {
          90.1729174043913, 90.9037715603764}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{22., 0}, {23., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{337.64351481184946`, 352.0746597277822}, {
          90.28834448238385, 90.9037715603764}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.46, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{9, 0}, {9, 1000}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 23.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.636896130636484*^9, 3.6368962002840137`*^9, {3.636896313374518*^9, 
   3.6368963364396544`*^9}, 3.636896374202293*^9, 3.637414481333397*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "actualNumberOfHopMotifs"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", 
      RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, 
   3.636896353069438*^9}],

Cell[BoxData["0.0871`"], "Output",
 CellChangeTimes->{{3.6368961567278013`*^9, 3.636896200402142*^9}, {
   3.636896353496089*^9, 3.636896374313222*^9}, 3.637414481499543*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["all countries with protests, without UAE and Qatar", "Subsubsection",
 CellChangeTimes->{{3.6368962219114323`*^9, 3.636896224702689*^9}, {
  3.636896269805234*^9, 3.636896270014453*^9}, {3.636896393058805*^9, 
  3.636896396625752*^9}, {3.637414371327292*^9, 3.637414374547799*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"graph", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "1000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"graph", "=", 
     RowBox[{"Subgraph", "[", 
      RowBox[{"FacebookGraphReversed", ",", "countriesWithProtests"}], 
      RowBox[{"(*", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
       "*)"}], 
      RowBox[{"(*", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
       "*)"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"actualNumberOfHopMotifs", "=", 
     RowBox[{"Length", "[", 
      RowBox[{"findAllHopMotifsReversed", "[", 
       RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<actualNumberOfHopMotifs = \>\"", ",", "actualNumberOfHopMotifs"}], 
     "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"randomOutcomes", "=", 
     RowBox[{
      RowBox[{"Reap", "[", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"protestTimes", "=", 
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"VertexList", "[", "graph", "]"}], "\[Rule]", 
             RowBox[{"RandomReal", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"Length", "[", 
                RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], "]"}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"Sow", "[", 
           RowBox[{"findAllHopMotifsReversed", "[", 
            RowBox[{"graph", ",", "protestTimes"}], "]"}], "]"}], ";"}], 
         "\[IndentingNewLine]", ",", 
         RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], "\[IndentingNewLine]",
        "]"}], "\[LeftDoubleBracket]", 
      RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.636896013640383*^9, 3.636896053767877*^9}, {
  3.636896088477003*^9, 3.6368961048249817`*^9}, {3.636896173214232*^9, 
  3.636896173763671*^9}, {3.6368962413608313`*^9, 3.63689630695313*^9}, {
  3.636896358998192*^9, 3.63689638477842*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"actualNumberOfHopMotifs = \"\>", "\[InvisibleSpace]", "9"}],
  SequenceForm["actualNumberOfHopMotifs = ", 9],
  Editable->False]], "Print",
 CellChangeTimes->{{3.636896257223905*^9, 3.6368963072254763`*^9}, {
  3.636896359329331*^9, 3.636896387715218*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"Length", "/@", "randomOutcomes"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "100"}], "}"}]}], "}"}], 
       "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.6368963147822723`*^9, 3.6368963361418667`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.588], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.588], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {2., 186}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{26.254403522818254`, 
          47.0806645316253}, {-72.44403021800157, 91.93456273819315}}],
        StatusArea[#, 186]& ,
        TagBoxNote->"186"],
       StyleBox["186", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[186, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {4., 193}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{46.5806645316253, 
          67.40692554043235}, {-78.61150414646052, 91.93456273819315}}],
        StatusArea[#, 193]& ,
        TagBoxNote->"193"],
       StyleBox["193", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[193, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {6., 221}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{66.90692554043235, 
          87.73318654923939}, {-103.28139986029628`, 91.93456273819315}}],
        StatusArea[#, 221]& ,
        TagBoxNote->"221"],
       StyleBox["221", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[221, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {8., 136}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{87.23318654923939, 
          108.05944755804644`}, {-28.390645014723418`, 91.93456273819315}}],
        StatusArea[#, 136]& ,
        TagBoxNote->"136"],
       StyleBox["136", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[136, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {10., 96}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{107.55944755804644`, 128.3857085668535}, {
          6.852063147899102, 91.93456273819315}}],
        StatusArea[#, 96]& ,
        TagBoxNote->"96"],
       StyleBox["96", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[96, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {12., 60}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{127.88570856685351`, 148.71196957566053`}, {
          38.57050049425937, 91.93456273819315}}],
        StatusArea[#, 60]& ,
        TagBoxNote->"60"],
       StyleBox["60", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[60, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {14., 39}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{148.21196957566053`, 169.03823058446758`}, {
          57.072922279636195`, 91.93456273819315}}],
        StatusArea[#, 39]& ,
        TagBoxNote->"39"],
       StyleBox["39", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[39, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{14., 0}, {16., 34}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{168.53823058446758`, 189.36449159327464`}, {
          61.478260799964005`, 91.93456273819315}}],
        StatusArea[#, 34]& ,
        TagBoxNote->"34"],
       StyleBox["34", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[34, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{16., 0}, {18., 19}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{188.86449159327464`, 209.6907526020817}, {
          74.69427636094746, 91.93456273819315}}],
        StatusArea[#, 19]& ,
        TagBoxNote->"19"],
       StyleBox["19", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[19, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{18., 0}, {20., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{209.1907526020817, 230.01701361088874`}, {
          86.14815651379978, 91.93456273819315}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{20., 0}, {22., 8}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{229.51701361088874`, 250.3432746196958}, {
          84.38602110566865, 91.93456273819315}}],
        StatusArea[#, 8]& ,
        TagBoxNote->"8"],
       StyleBox["8", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[8, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{22., 0}, {24., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{249.8432746196958, 270.66953562850284`}, {
          90.5534950341276, 91.93456273819315}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{30., 0}, {32., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{331.148318654924, 351.97457966373105`}, {
          90.5534950341276, 91.93456273819315}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.64, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{9, 0}, {9, 100}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 32.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.636896130636484*^9, 3.6368962002840137`*^9, {3.636896313374518*^9, 
   3.6368963364396544`*^9}, 3.63689641627451*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "actualNumberOfHopMotifs"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", 
      RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, 
   3.636896353069438*^9}],

Cell[BoxData["0.209`"], "Output",
 CellChangeTimes->{{3.6368961567278013`*^9, 3.636896200402142*^9}, 
   3.636896353496089*^9, 3.636896416378641*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["all countries with protests, with UAE and Qatar", "Subsubsection",
 CellChangeTimes->{{3.6368962219114323`*^9, 3.636896224702689*^9}, {
  3.636896269805234*^9, 3.636896270014453*^9}, {3.636896393058805*^9, 
  3.636896396625752*^9}, {3.637414371327292*^9, 3.637414386715362*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"graph", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "1000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"graph", "=", 
     RowBox[{"Subgraph", "[", 
      RowBox[{"FacebookGraphReversed", ",", 
       RowBox[{"countriesWithProtests", "~", "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
         "}"}]}]}], 
      RowBox[{"(*", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
       "*)"}], 
      RowBox[{"(*", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
       "*)"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"actualNumberOfHopMotifs", "=", 
     RowBox[{"Length", "[", 
      RowBox[{"findAllHopMotifsReversed", "[", 
       RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{
     "\"\<actualNumberOfHopMotifs = \>\"", ",", "actualNumberOfHopMotifs"}], 
     "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"randomOutcomes", "=", 
     RowBox[{
      RowBox[{"Reap", "[", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"protestTimes", "=", 
           RowBox[{"Thread", "[", 
            RowBox[{
             RowBox[{"VertexList", "[", "graph", "]"}], "\[Rule]", 
             RowBox[{"RandomReal", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"0", ",", "1"}], "}"}], ",", 
               RowBox[{"Length", "[", 
                RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], "]"}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"Sow", "[", 
           RowBox[{"findAllHopMotifsReversed", "[", 
            RowBox[{"graph", ",", "protestTimes"}], "]"}], "]"}], ";"}], 
         "\[IndentingNewLine]", ",", 
         RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], "\[IndentingNewLine]",
        "]"}], "\[LeftDoubleBracket]", 
      RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.636896013640383*^9, 3.636896053767877*^9}, {
  3.636896088477003*^9, 3.6368961048249817`*^9}, {3.636896173214232*^9, 
  3.636896173763671*^9}, {3.6368962413608313`*^9, 3.63689630695313*^9}, {
  3.636896358998192*^9, 3.63689638477842*^9}, {3.6374143985212708`*^9, 
  3.637414399787956*^9}}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"actualNumberOfHopMotifs = \"\>", "\[InvisibleSpace]", "10"}],
  SequenceForm["actualNumberOfHopMotifs = ", 10],
  Editable->False]], "Print",
 CellChangeTimes->{{3.636896257223905*^9, 3.6368963072254763`*^9}, {
   3.636896359329331*^9, 3.636896387715218*^9}, 3.637414481599658*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"Length", "/@", "randomOutcomes"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "1000"}], "}"}]}], "}"}], 
       "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.6368963147822723`*^9, 3.6368963361418667`*^9}, {3.637414411460372*^9, 
  3.637414411651547*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.595], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.595], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {2., 195}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{26.254403522818254`, 
          48.4357485988791}, {-98.41350079533403, 91.93456273819312}}],
        StatusArea[#, 195]& ,
        TagBoxNote->"195"],
       StyleBox["195", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[195, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {4., 200}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{47.9357485988791, 
          70.11709367493995}, {-103.28139986029628`, 91.93456273819312}}],
        StatusArea[#, 200]& ,
        TagBoxNote->"200"],
       StyleBox["200", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[200, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {6., 197}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{69.61709367493995, 
          91.79843875100079}, {-100.36066042131894`, 91.93456273819312}}],
        StatusArea[#, 197]& ,
        TagBoxNote->"197"],
       StyleBox["197", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[197, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {8., 129}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{91.29843875100079, 
          113.47978382706164`}, {-34.157233137832534`, 91.93456273819312}}],
        StatusArea[#, 129]& ,
        TagBoxNote->"129"],
       StyleBox["129", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[129, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {10., 105}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{112.97978382706164`, 
          135.1611289031225}, {-10.791317626013807`, 91.93456273819312}}],
        StatusArea[#, 105]& ,
        TagBoxNote->"105"],
       StyleBox["105", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[105, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {12., 64}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{134.6611289031225, 156.84247397918332`}, {
          29.125454706676514`, 91.93456273819312}}],
        StatusArea[#, 64]& ,
        TagBoxNote->"64"],
       StyleBox["64", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[64, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {14., 43}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{156.34247397918332`, 178.5238190552442}, {
          49.5706307795179, 91.93456273819312}}],
        StatusArea[#, 43]& ,
        TagBoxNote->"43"],
       StyleBox["43", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[43, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{14., 0}, {16., 32}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{178.0238190552442, 200.20516413130503`}, {
          60.280008722434815`, 91.93456273819312}}],
        StatusArea[#, 32]& ,
        TagBoxNote->"32"],
       StyleBox["32", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[32, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{16., 0}, {18., 20}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{199.70516413130503`, 221.88650920736586`}, {
          71.96296647834419, 91.93456273819312}}],
        StatusArea[#, 20]& ,
        TagBoxNote->"20"],
       StyleBox["20", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[20, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{18., 0}, {20., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{221.38650920736586`, 243.56785428342673`}, {
          81.69876460826865, 91.93456273819312}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{20., 0}, {22., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{243.06785428342673`, 265.2491993594876}, {
          89.48740311220823, 91.93456273819312}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{24., 0}, {26., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{286.4305444355484, 308.61188951160926`}, {
          89.48740311220823, 91.93456273819312}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{28., 0}, {30., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{329.79323458767016`, 351.974579663731}, {
          90.46098292520068, 91.93456273819312}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.6, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{10, 0}, {10, 1000}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 30.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.636896130636484*^9, 3.6368962002840137`*^9, {3.636896313374518*^9, 
   3.6368963364396544`*^9}, 3.63689641627451*^9, 3.6374145282515697`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "actualNumberOfHopMotifs"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", 
      RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, 
   3.636896353069438*^9}],

Cell[BoxData["0.174`"], "Output",
 CellChangeTimes->{{3.6368961567278013`*^9, 3.636896200402142*^9}, 
   3.636896353496089*^9, 3.636896416378641*^9, 3.637414528337318*^9}]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Shared border network", "Section",
 CellChangeTimes->{{3.637410639863068*^9, 3.6374106450047407`*^9}, {
  3.6686906446901417`*^9, 3.668690646581553*^9}}],

Cell[CellGroupData[{

Cell["shared border graph", "Subsection",
 CellChangeTimes->{{3.6686904316549*^9, 3.668690433214601*^9}, {
  3.6686905891426888`*^9, 3.668690589758753*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"borderEdges", "=", 
   RowBox[{"Union", "@", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Table", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"neighbors", "=", 
         RowBox[{"Intersection", "[", 
          RowBox[{"countries", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"CountryData", "[", 
              RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
            RowBox[{"CountryData", "[", 
             RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", 
             RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
             "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
            RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
         "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"borderGraph", "=", 
   RowBox[{"Graph", "[", 
    RowBox[{"borderEdges", ",", 
     RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], 
  ";"}]}], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["do shared borders close hop motifs? answer: no", "Subsection",
 CellChangeTimes->{{3.637430693878923*^9, 3.637430701709882*^9}, {
  3.668690612806011*^9, 3.6686906167497673`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{"randomOutcomes", ","}], "*)"}], 
    RowBox[{
    "neighbors", ",", "coordinatesBG", ",", "borderGraph", ",", "borderEdges",
      ",", "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", 
     "countries", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "10000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countries", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"countriesWithProtests", "~", "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
         "}"}]}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"fbEdges", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Property", "[", 
        RowBox[{"#", ",", 
         RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
       "&"}], "/@", 
      RowBox[{"EdgeList", "[", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], "]"}]}]}],
     ";", "\[IndentingNewLine]", 
    RowBox[{"fbGraph", "=", 
     RowBox[{"SetProperty", "[", 
      RowBox[{
       RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
         RowBox[{"EdgeStyle", "\[Rule]", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
           "]"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"borderEdges", "=", 
     RowBox[{"Union", "@", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"neighbors", "=", 
           RowBox[{"Intersection", "[", 
            RowBox[{"countries", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"CountryData", "[", 
                RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
              RowBox[{"CountryData", "[", 
               RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", 
               RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
               "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
              RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
           "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"borderGraph", "=", 
     RowBox[{"Graph", "[", 
      RowBox[{"borderEdges", ",", 
       RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"facebookHopMotifs", "=", 
     RowBox[{"findAllHopMotifsReversed", "[", 
      RowBox[{"fbGraph", ",", "vertexToTimeRules"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"Length", "[", "facebookHopMotifs", "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", "borderGraph", "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{"EdgeList", "[", "borderGraph", "]"}]}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.637430706427742*^9, 3.637430708317873*^9}, {
  3.6374307486290207`*^9, 3.637430788248962*^9}, {3.637430834477645*^9, 
  3.637430856639121*^9}, {3.637430959474873*^9, 3.637430961433793*^9}}],

Cell[CellGroupData[{

Cell[BoxData["10"], "Print",
 CellChangeTimes->{{3.637430841568536*^9, 3.6374308570963087`*^9}, 
   3.637430961872904*^9}],

Cell[BoxData[
 GraphicsBox[
  NamespaceBox["NetworkGraphics",
   DynamicModuleBox[{Typeset`graph = HoldComplete[
     Graph[{
      "Algeria", "Libya", "Morocco", "Tunisia", "Bahrain", "Qatar", 
       "Saudi Arabia", "Djibouti", "Somalia", "Egypt", "Sudan", "Jordan", 
       "Syria", "Kuwait", "Lebanon", "Oman", "United Arab Emirates", 
       "Yemen"}, {{{1, 2}, {1, 3}, {1, 4}, {5, 6}, {5, 7}, {8, 9}, {10, 2}, {
       10, 11}, {12, 7}, {12, 13}, {14, 7}, {15, 13}, {2, 1}, {2, 10}, {2, 
       11}, {2, 4}, {3, 1}, {16, 7}, {16, 17}, {16, 18}, {6, 5}, {6, 7}, {7, 
       5}, {7, 12}, {7, 14}, {7, 16}, {7, 6}, {7, 17}, {7, 18}, {9, 8}, {11, 
       10}, {11, 2}, {13, 12}, {13, 15}, {4, 1}, {4, 2}, {17, 16}, {17, 7}, {
       18, 16}, {18, 7}}, Null}, {VertexLabels -> {"Name"}}]]}, 
    TagBox[GraphicsGroupBox[{
       {Hue[0.6, 0.7, 0.5], Opacity[0.7], Arrowheads[0.023001232336601573`], 
        ArrowBox[BezierCurveBox[{{2.7541452867152105`, -4.051506079779363}, {
         2.13455770453526, -4.220875191488982}, {
         1.5353896957272082`, -3.989418143176994}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{2.7541452867152105`, -4.051506079779363}, {
         3.3265626482642503`, -4.0044949279601365`}, {
         3.8151416195774734`, -4.30642583559409}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{2.7541452867152105`, -4.051506079779363}, {
         2.3969069551787694`, -3.797476181593263}, {
         2.260188008272178, -3.3809928754569123`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.5353896957272082`, -3.989418143176994}, {
         2.1549772779071423`, -3.820049031463098}, {
         2.7541452867152105`, -4.051506079779363}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.5353896957272082`, -3.989418143176994}, {
         1.7977389463707192`, -3.566019133255967}, {
         2.260188008272178, -3.3809928754569123`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.5353896957272082`, -3.989418143176994}, {
         1.1772198112559187`, -4.407327120476409}, {
         0.6409140694267288, -4.531059617110138}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.5353896957272082`, -3.989418143176994}, {
         0.988322680324418, -4.073127440291622}, {
         0.49836276959624826`, -3.8157777722443975`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{3.8151416195774734`, -4.30642583559409}, {
         3.242724258028452, -4.353436987453551}, {
         2.7541452867152105`, -4.051506079779363}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{2.260188008272178, -3.3809928754569123`}, {
         2.6174263398086146`, -3.6350227737029908`}, {
         2.7541452867152105`, -4.051506079779363}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{2.260188008272178, -3.3809928754569123`}, {
         1.9978387576286776`, -3.804391885402789}, {
         1.5353896957272082`, -3.989418143176994}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         0.49836276959624826`, -0.9239620688554271}, {
         0.6262507764114899, -0.6593081140490389}, {
         0.8862620005226909, -0.5222270379727578}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         0.49836276959624826`, -0.9239620688554271}, {
         1.0546206245267584`, -1.0145586961305066`}, {
         1.448515920405223, -1.4176431115207246`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{0.8862620005226909, -0.5222270379727578}, {
         0.7583739937074494, -0.7868809927791507}, {
         0.49836276959624826`, -0.9239620688554271}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{0.8862620005226909, -0.5222270379727578}, {
         1.3146318486379571`, -0.8774776200541927}, {
         1.448515920405223, -1.4176431115207246`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.448515920405223, -1.4176431115207246`}, {
         0.8922580654747189, -1.3270464842447265`}, {
         0.49836276959624826`, -0.9239620688554271}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.448515920405223, -1.4176431115207246`}, {
         1.0201460722899574`, -1.062392529438889}, {
         0.8862620005226909, -0.5222270379727578}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.448515920405223, -1.4176431115207246`}, {
         2.180756603155088, -1.1864171459153472`}, {
         2.907302392470823, -1.4349590552015825`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.448515920405223, -1.4176431115207246`}, {
         1.5104579931123605`, -0.8879152621496331}, {
         1.8747343584131178`, -0.49836276959624826`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.448515920405223, -1.4176431115207246`}, {
         1.4054514628045522`, -1.9355068465755803`}, {
         1.0634096689337555`, -2.3267162621589916`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.448515920405223, -1.4176431115207246`}, {
         1.7169420449349433`, -1.8649513449877235`}, {
         1.6674633499403515`, -2.3842673362644167`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.448515920405223, -1.4176431115207246`}, {
         1.0992446210728124`, -1.8542865135697881`}, {
         0.5589803244732741, -1.9983781195368606`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{1.498362769596248, -5.527785156302635}, {
         0.9983627695962304, -5.692225903501086}, {
         0.49836276959624803`, -5.527785156302635}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{0.49836276959624803`, -5.527785156302635}, {
         0.9983627695962656, -5.363344409128088}, {
         1.498362769596248, -5.527785156302635}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{0.6409140694267288, -4.531059617110138}, {
         0.9990839538980356, -4.113150639806612}, {
         1.5353896957272082`, -3.989418143176994}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{0.6409140694267288, -4.531059617110138}, {
         0.4520169384952477, -4.1968599369319755`}, {
         0.49836276959624826`, -3.8157777722443975`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         0.49836276959624826`, -3.8157777722443975`}, {
         1.0454297849990126`, -3.7320684751237057`}, {
         1.5353896957272082`, -3.989418143176994}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         0.49836276959624826`, -3.8157777722443975`}, {
         0.6872599005277272, -4.149977452424059}, {
         0.6409140694267288, -4.531059617110138}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{2.907302392470823, -1.4349590552015825`}, {
         2.1750617097209606`, -1.666185020806575}, {
         1.448515920405223, -1.4176431115207246`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{2.907302392470823, -1.4349590552015825`}, {
         3.5245771823324636`, -1.235979002998013}, {
         4.139459798516047, -1.4422327197861307`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{4.139459798516047, -1.4422327197861307`}, {
         3.522185008654396, -1.6412127719907994`}, {
         2.907302392470823, -1.4349590552015825`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{4.139459798516047, -1.4422327197861307`}, {
         4.623541291300415, -1.2856280203837047`}, {
         5.106079081603582, -1.4469265152950381`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         1.8747343584131178`, -0.49836276959624826`}, {
         1.8127922857059837`, -1.0280906189672643`}, {
         1.448515920405223, -1.4176431115207246`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{5.106079081603582, -1.4469265152950381`}, {
         4.621997588819214, -1.60353121469191}, {
         4.139459798516047, -1.4422327197861307`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         1.0634096689337555`, -2.3267162621589916`}, {
         1.1064741265344236`, -1.808852527101809}, {
         1.448515920405223, -1.4176431115207246`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         1.0634096689337555`, -2.3267162621589916`}, {
         1.3749002510641462`, -2.256160760552665}, {
         1.6674633499403515`, -2.3842673362644167`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         1.0634096689337555`, -2.3267162621589916`}, {
         0.7572028272020148, -2.2454959291564456`}, {
         0.5589803244732741, -1.9983781195368606`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         1.6674633499403515`, -2.3842673362644167`}, {
         1.399037225410633, -1.9369591027988335`}, {
         1.448515920405223, -1.4176431115207246`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{
         1.6674633499403515`, -2.3842673362644167`}, {
         1.35597276780996, -2.454822837854206}, {
         1.0634096689337555`, -2.3267162621589916`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{0.5589803244732741, -1.9983781195368606`}, {
         0.9082516238056859, -1.5617347174882539`}, {
         1.448515920405223, -1.4176431115207246`}}], 0.04321614096227849], 
        ArrowBox[BezierCurveBox[{{0.5589803244732741, -1.9983781195368606`}, {
         0.8651871662050153, -2.079598452536362}, {
         1.0634096689337555`, -2.3267162621589916`}}], 
         0.04321614096227849]}, 
       {Hue[0.6, 0.2, 0.8], EdgeForm[{GrayLevel[0], Opacity[
        0.7]}], {
         DiskBox[{2.7541452867152105`, -4.051506079779363}, 
          0.04321614096227849], 
         InsetBox["\<\"Algeria\"\>", 
          Offset[{2, 2}, {2.797361427677489, -4.008289938817085}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.5353896957272082`, -3.989418143176994}, 
          0.04321614096227849], 
         InsetBox["\<\"Libya\"\>", 
          Offset[{2, 2}, {1.5786058366894866`, -3.9462020022147155`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{3.8151416195774734`, -4.30642583559409}, 
          0.04321614096227849], 
         InsetBox["\<\"Morocco\"\>", 
          Offset[{2, 2}, {3.858357760539752, -4.263209694631811}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.260188008272178, -3.3809928754569123`}, 
          0.04321614096227849], 
         InsetBox["\<\"Tunisia\"\>", 
          Offset[{2, 2}, {2.3034041492344564`, -3.337776734494634}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.49836276959624826`, -0.9239620688554271}, 
          0.04321614096227849], 
         InsetBox["\<\"Bahrain\"\>", 
          Offset[{2, 2}, {0.5415789105585267, -0.8807459278931487}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.8862620005226909, -0.5222270379727578}, 
          0.04321614096227849], 
         InsetBox["\<\"Qatar\"\>", 
          Offset[{2, 2}, {0.9294781414849693, -0.47901089701047933`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.448515920405223, -1.4176431115207246`}, 
          0.04321614096227849], 
         InsetBox["\<\"Saudi Arabia\"\>", 
          Offset[{2, 2}, {1.4917320613675014`, -1.3744269705584462`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.498362769596248, -5.527785156302635}, 
          0.04321614096227849], 
         InsetBox["\<\"Djibouti\"\>", 
          Offset[{2, 2}, {1.5415789105585265`, -5.484569015340356}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.49836276959624803`, -5.527785156302635}, 
          0.04321614096227849], 
         InsetBox["\<\"Somalia\"\>", 
          Offset[{2, 2}, {0.5415789105585265, -5.484569015340356}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.6409140694267288, -4.531059617110138}, 
          0.04321614096227849], 
         InsetBox["\<\"Egypt\"\>", 
          Offset[{2, 2}, {0.6841302103890072, -4.48784347614786}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.49836276959624826`, -3.8157777722443975`}, 
          0.04321614096227849], 
         InsetBox["\<\"Sudan\"\>", 
          Offset[{2, 2}, {0.5415789105585267, -3.772561631282119}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{2.907302392470823, -1.4349590552015825`}, 
          0.04321614096227849], 
         InsetBox["\<\"Jordan\"\>", 
          Offset[{2, 2}, {2.9505185334331014`, -1.391742914239304}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{4.139459798516047, -1.4422327197861307`}, 
          0.04321614096227849], 
         InsetBox["\<\"Syria\"\>", 
          Offset[{2, 2}, {4.182675939478325, -1.3990165788238522`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.8747343584131178`, -0.49836276959624826`}, 
          0.04321614096227849], 
         InsetBox["\<\"Kuwait\"\>", 
          Offset[{2, 2}, {1.9179504993753962`, -0.45514662863396976`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{5.106079081603582, -1.4469265152950381`}, 
          0.04321614096227849], 
         InsetBox["\<\"Lebanon\"\>", 
          Offset[{2, 2}, {5.14929522256586, -1.4037103743327597`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.0634096689337555`, -2.3267162621589916`}, 
          0.04321614096227849], 
         InsetBox["\<\"Oman\"\>", 
          Offset[{2, 2}, {1.106625809896034, -2.283500121196713}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{1.6674633499403515`, -2.3842673362644167`}, 
          0.04321614096227849], 
         InsetBox["\<\"United Arab Emirates\"\>", 
          Offset[{2, 2}, {1.71067949090263, -2.3410511953021382`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}, {
         DiskBox[{0.5589803244732741, -1.9983781195368606`}, 
          0.04321614096227849], 
         InsetBox["\<\"Yemen\"\>", 
          Offset[{2, 2}, {0.6021964654355525, -1.9551619785745822`}], 
          ImageScaled[{0, 0}],
          BaseStyle->"Graphics"]}}}],
     MouseAppearanceTag["NetworkGraphics"]],
    AllowKernelInitialization->False]],
  DefaultBaseStyle->{
   "NetworkGraphics", FrontEnd`GraphicsHighlightColor -> Hue[0.8, 1., 0.6]},
  FrameTicks->None,
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->15]], "Print",
 CellChangeTimes->{{3.637430841568536*^9, 3.6374308570963087`*^9}, 
   3.6374309619672117`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Algeria\"\>", "\[DirectedEdge]", "\<\"Libya\"\>"}], ",", 
   RowBox[{"\<\"Algeria\"\>", "\[DirectedEdge]", "\<\"Morocco\"\>"}], ",", 
   RowBox[{"\<\"Algeria\"\>", "\[DirectedEdge]", "\<\"Tunisia\"\>"}], ",", 
   RowBox[{"\<\"Bahrain\"\>", "\[DirectedEdge]", "\<\"Qatar\"\>"}], ",", 
   RowBox[{"\<\"Bahrain\"\>", "\[DirectedEdge]", "\<\"Saudi Arabia\"\>"}], 
   ",", 
   RowBox[{"\<\"Djibouti\"\>", "\[DirectedEdge]", "\<\"Somalia\"\>"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[DirectedEdge]", "\<\"Libya\"\>"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[DirectedEdge]", "\<\"Sudan\"\>"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[DirectedEdge]", "\<\"Saudi Arabia\"\>"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[DirectedEdge]", "\<\"Syria\"\>"}], ",", 
   RowBox[{"\<\"Kuwait\"\>", "\[DirectedEdge]", "\<\"Saudi Arabia\"\>"}], ",", 
   RowBox[{"\<\"Lebanon\"\>", "\[DirectedEdge]", "\<\"Syria\"\>"}], ",", 
   RowBox[{"\<\"Libya\"\>", "\[DirectedEdge]", "\<\"Algeria\"\>"}], ",", 
   RowBox[{"\<\"Libya\"\>", "\[DirectedEdge]", "\<\"Egypt\"\>"}], ",", 
   RowBox[{"\<\"Libya\"\>", "\[DirectedEdge]", "\<\"Sudan\"\>"}], ",", 
   RowBox[{"\<\"Libya\"\>", "\[DirectedEdge]", "\<\"Tunisia\"\>"}], ",", 
   RowBox[{"\<\"Morocco\"\>", "\[DirectedEdge]", "\<\"Algeria\"\>"}], ",", 
   RowBox[{"\<\"Oman\"\>", "\[DirectedEdge]", "\<\"Saudi Arabia\"\>"}], ",", 
   RowBox[{"\<\"Oman\"\>", 
    "\[DirectedEdge]", "\<\"United Arab Emirates\"\>"}], ",", 
   RowBox[{"\<\"Oman\"\>", "\[DirectedEdge]", "\<\"Yemen\"\>"}], ",", 
   RowBox[{"\<\"Qatar\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Qatar\"\>", "\[DirectedEdge]", "\<\"Saudi Arabia\"\>"}], ",", 
   
   RowBox[{"\<\"Saudi Arabia\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], 
   ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[DirectedEdge]", "\<\"Jordan\"\>"}], ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[DirectedEdge]", "\<\"Kuwait\"\>"}], ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[DirectedEdge]", "\<\"Qatar\"\>"}], ",", 
   
   RowBox[{"\<\"Saudi Arabia\"\>", 
    "\[DirectedEdge]", "\<\"United Arab Emirates\"\>"}], ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[DirectedEdge]", "\<\"Yemen\"\>"}], ",", 
   
   RowBox[{"\<\"Somalia\"\>", "\[DirectedEdge]", "\<\"Djibouti\"\>"}], ",", 
   RowBox[{"\<\"Sudan\"\>", "\[DirectedEdge]", "\<\"Egypt\"\>"}], ",", 
   RowBox[{"\<\"Sudan\"\>", "\[DirectedEdge]", "\<\"Libya\"\>"}], ",", 
   RowBox[{"\<\"Syria\"\>", "\[DirectedEdge]", "\<\"Jordan\"\>"}], ",", 
   RowBox[{"\<\"Syria\"\>", "\[DirectedEdge]", "\<\"Lebanon\"\>"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[DirectedEdge]", "\<\"Algeria\"\>"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[DirectedEdge]", "\<\"Libya\"\>"}], ",", 
   RowBox[{"\<\"United Arab Emirates\"\>", 
    "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"United Arab Emirates\"\>", 
    "\[DirectedEdge]", "\<\"Saudi Arabia\"\>"}], ",", 
   RowBox[{"\<\"Yemen\"\>", "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"Yemen\"\>", "\[DirectedEdge]", "\<\"Saudi Arabia\"\>"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.637430857104039*^9, 3.637430961979507*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\"\<upstream\>\"", "\[DirectedEdge]", "\"\<downstream\>\""}], "/.",
   "facebookHopMotifs"}]], "Input",
 CellChangeTimes->{{3.637430870870495*^9, 3.6374308754614964`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Egypt\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"Sudan\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[DirectedEdge]", "\<\"Jordan\"\>"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[DirectedEdge]", "\<\"Oman\"\>"}], ",", 
   RowBox[{"\<\"Yemen\"\>", "\[DirectedEdge]", "\<\"Bahrain\"\>"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.637430875718936*^9}]
}, Open  ]],

Cell["\<\
How many border edges point from an upstream country to a downstream country \
in the Facebook hop motifs? Zero.\
\>", "Text",
 CellChangeTimes->{{3.646625511337614*^9, 3.646625533560692*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Intersection", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Algeria\>\"", "\[DirectedEdge]", "\"\<Libya\>\""}], ",", 
     RowBox[{"\"\<Algeria\>\"", "\[DirectedEdge]", "\"\<Morocco\>\""}], ",", 
     RowBox[{"\"\<Algeria\>\"", "\[DirectedEdge]", "\"\<Tunisia\>\""}], ",", 
     RowBox[{"\"\<Bahrain\>\"", "\[DirectedEdge]", "\"\<Qatar\>\""}], ",", 
     RowBox[{"\"\<Bahrain\>\"", "\[DirectedEdge]", "\"\<Saudi Arabia\>\""}], 
     ",", 
     RowBox[{"\"\<Djibouti\>\"", "\[DirectedEdge]", "\"\<Somalia\>\""}], ",", 
     
     RowBox[{"\"\<Egypt\>\"", "\[DirectedEdge]", "\"\<Libya\>\""}], ",", 
     RowBox[{"\"\<Egypt\>\"", "\[DirectedEdge]", "\"\<Sudan\>\""}], ",", 
     RowBox[{"\"\<Jordan\>\"", "\[DirectedEdge]", "\"\<Saudi Arabia\>\""}], 
     ",", 
     RowBox[{"\"\<Jordan\>\"", "\[DirectedEdge]", "\"\<Syria\>\""}], ",", 
     RowBox[{"\"\<Kuwait\>\"", "\[DirectedEdge]", "\"\<Saudi Arabia\>\""}], 
     ",", 
     RowBox[{"\"\<Lebanon\>\"", "\[DirectedEdge]", "\"\<Syria\>\""}], ",", 
     RowBox[{"\"\<Libya\>\"", "\[DirectedEdge]", "\"\<Algeria\>\""}], ",", 
     RowBox[{"\"\<Libya\>\"", "\[DirectedEdge]", "\"\<Egypt\>\""}], ",", 
     RowBox[{"\"\<Libya\>\"", "\[DirectedEdge]", "\"\<Sudan\>\""}], ",", 
     RowBox[{"\"\<Libya\>\"", "\[DirectedEdge]", "\"\<Tunisia\>\""}], ",", 
     RowBox[{"\"\<Morocco\>\"", "\[DirectedEdge]", "\"\<Algeria\>\""}], ",", 
     RowBox[{"\"\<Oman\>\"", "\[DirectedEdge]", "\"\<Saudi Arabia\>\""}], ",", 
     RowBox[{
     "\"\<Oman\>\"", "\[DirectedEdge]", "\"\<United Arab Emirates\>\""}], ",", 
     RowBox[{"\"\<Oman\>\"", "\[DirectedEdge]", "\"\<Yemen\>\""}], ",", 
     RowBox[{"\"\<Qatar\>\"", "\[DirectedEdge]", "\"\<Bahrain\>\""}], ",", 
     RowBox[{"\"\<Qatar\>\"", "\[DirectedEdge]", "\"\<Saudi Arabia\>\""}], 
     ",", 
     RowBox[{"\"\<Saudi Arabia\>\"", "\[DirectedEdge]", "\"\<Bahrain\>\""}], 
     ",", 
     RowBox[{"\"\<Saudi Arabia\>\"", "\[DirectedEdge]", "\"\<Jordan\>\""}], 
     ",", 
     RowBox[{"\"\<Saudi Arabia\>\"", "\[DirectedEdge]", "\"\<Kuwait\>\""}], 
     ",", 
     RowBox[{"\"\<Saudi Arabia\>\"", "\[DirectedEdge]", "\"\<Oman\>\""}], ",", 
     RowBox[{"\"\<Saudi Arabia\>\"", "\[DirectedEdge]", "\"\<Qatar\>\""}], 
     ",", 
     RowBox[{
     "\"\<Saudi Arabia\>\"", "\[DirectedEdge]", 
      "\"\<United Arab Emirates\>\""}], ",", 
     RowBox[{"\"\<Saudi Arabia\>\"", "\[DirectedEdge]", "\"\<Yemen\>\""}], 
     ",", 
     RowBox[{"\"\<Somalia\>\"", "\[DirectedEdge]", "\"\<Djibouti\>\""}], ",", 
     
     RowBox[{"\"\<Sudan\>\"", "\[DirectedEdge]", "\"\<Egypt\>\""}], ",", 
     RowBox[{"\"\<Sudan\>\"", "\[DirectedEdge]", "\"\<Libya\>\""}], ",", 
     RowBox[{"\"\<Syria\>\"", "\[DirectedEdge]", "\"\<Jordan\>\""}], ",", 
     RowBox[{"\"\<Syria\>\"", "\[DirectedEdge]", "\"\<Lebanon\>\""}], ",", 
     RowBox[{"\"\<Tunisia\>\"", "\[DirectedEdge]", "\"\<Algeria\>\""}], ",", 
     RowBox[{"\"\<Tunisia\>\"", "\[DirectedEdge]", "\"\<Libya\>\""}], ",", 
     RowBox[{
     "\"\<United Arab Emirates\>\"", "\[DirectedEdge]", "\"\<Oman\>\""}], ",", 
     RowBox[{
     "\"\<United Arab Emirates\>\"", "\[DirectedEdge]", 
      "\"\<Saudi Arabia\>\""}], ",", 
     RowBox[{"\"\<Yemen\>\"", "\[DirectedEdge]", "\"\<Oman\>\""}], ",", 
     RowBox[{"\"\<Yemen\>\"", "\[DirectedEdge]", "\"\<Saudi Arabia\>\""}]}], 
    "}"}], ",", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"\"\<upstream\>\"", "\[DirectedEdge]", "\"\<downstream\>\""}], "/.",
      "facebookHopMotifs"}], "*)"}], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\"\<Egypt\>\"", "\[DirectedEdge]", "\"\<Bahrain\>\""}], ",", 
     RowBox[{"\"\<Egypt\>\"", "\[DirectedEdge]", "\"\<Bahrain\>\""}], ",", 
     RowBox[{"\"\<Egypt\>\"", "\[DirectedEdge]", "\"\<Bahrain\>\""}], ",", 
     RowBox[{"\"\<Jordan\>\"", "\[DirectedEdge]", "\"\<Oman\>\""}], ",", 
     RowBox[{"\"\<Jordan\>\"", "\[DirectedEdge]", "\"\<Bahrain\>\""}], ",", 
     RowBox[{"\"\<Jordan\>\"", "\[DirectedEdge]", "\"\<Oman\>\""}], ",", 
     RowBox[{"\"\<Sudan\>\"", "\[DirectedEdge]", "\"\<Bahrain\>\""}], ",", 
     RowBox[{"\"\<Tunisia\>\"", "\[DirectedEdge]", "\"\<Jordan\>\""}], ",", 
     RowBox[{"\"\<Tunisia\>\"", "\[DirectedEdge]", "\"\<Oman\>\""}], ",", 
     RowBox[{"\"\<Yemen\>\"", "\[DirectedEdge]", "\"\<Bahrain\>\""}]}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6374308853842297`*^9, 3.63743089261276*^9}, {
  3.6374309290074463`*^9, 3.637430929750984*^9}}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.637430893973674*^9, 3.637430930225074*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"\"\<upstream\>\"", ",", "\"\<downstream\>\""}], "}"}], "/.", 
  "facebookHopMotifs"}]], "Input",
 CellChangeTimes->{{3.637430796035122*^9, 3.637430815915126*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "\<\"Bahrain\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "\<\"Bahrain\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "\<\"Bahrain\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "\<\"Oman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "\<\"Bahrain\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "\<\"Oman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", "\<\"Bahrain\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", "\<\"Jordan\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", "\<\"Oman\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", "\<\"Bahrain\"\>"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6374308169013042`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
what fraction of countries with protests bordered one that already had \
protests?\
\>", "Subsection",
 CellChangeTimes->{{3.63734624277824*^9, 3.637346255960052*^9}}],

Cell[CellGroupData[{

Cell["\<\
just countries in Fig. 4: 7 out of the 16 countries shown in Fig. 4 \
(excluding UAE and Qatar) shared a border with at least one country with \
protests (p-value 0.02)\
\>", "Subsubsection",
 CellChangeTimes->{{3.637416281495864*^9, 3.6374162850554867`*^9}, {
  3.6374165715358143`*^9, 3.637416571874948*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "coordinatesBG", ",", "borderGraph", ",", "borderEdges", ",", 
     "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", "countries", 
     ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "1000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countries", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{"countriesWithProtests", 
       RowBox[{"(*", 
        RowBox[{"~", "Join", "~", 
         RowBox[{"{", 
          RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
          "}"}]}], "*)"}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"fbEdges", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Property", "[", 
        RowBox[{"#", ",", 
         RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
       "&"}], "/@", 
      RowBox[{"EdgeList", "[", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], "]"}]}]}],
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"fbGraph", "=", 
     RowBox[{"SetProperty", "[", 
      RowBox[{
       RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
         RowBox[{"EdgeStyle", "\[Rule]", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
           "]"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"borderEdgesDirected", "=", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"UndirectedEdge", "@@", 
              RowBox[{"Identity", "[", 
               RowBox[{"{", 
                RowBox[{"c", ",", "#"}], "}"}], "]"}]}], "&"}], "/@", 
            RowBox[{"Intersection", "[", 
             RowBox[{"countries", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"CountryData", "[", 
                 RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
               RowBox[{"CountryData", "[", 
                RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
             "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], ",", "1"}], 
        "]"}], "~", "Join", "~", 
       RowBox[{"(", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Qatar\>\"", "\[UndirectedEdge]", "\"\<Saudi Arabia\>\""}], 
         "}"}], ")"}]}]}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"Table", "[", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"UndirectedEdge", "@@", 
         RowBox[{"Identity", "[", 
          RowBox[{"{", 
           RowBox[{"c", ",", "#"}], "}"}], "]"}]}], "&"}], "/@"}], "*)"}], 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", 
        RowBox[{"Intersection", "[", 
         RowBox[{"countries", ",", 
          RowBox[{
           RowBox[{
            RowBox[{"CountryData", "[", 
             RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
           RowBox[{"CountryData", "[", 
            RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
         "]"}], ",", 
        RowBox[{"c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], ",", 
        RowBox[{
         RowBox[{"Intersection", "[", 
          RowBox[{"countries", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"CountryData", "[", 
              RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
            RowBox[{"CountryData", "[", 
             RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
          "]"}], "/.", "rescaledProtestOutbreakDatesRulesAll"}], ",", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], 
             ")"}], ">", "#"}], ")"}], "&"}], "/@", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Intersection", "[", 
            RowBox[{"countries", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"CountryData", "[", 
                RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
              RowBox[{"CountryData", "[", 
               RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
            "]"}], "/.", "rescaledProtestOutbreakDatesRulesAll"}], ")"}]}]}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"c", ",", "countries"}], "}"}]}], "]"}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.6373472052104063`*^9, 3.637347273109352*^9}, {
  3.637347307274371*^9, 3.63734735197775*^9}, {3.637347431124258*^9, 
  3.637347477290156*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Libya\"\>", ",", "\<\"Morocco\"\>", 
       ",", "\<\"Tunisia\"\>"}], "}"}], ",", "0.014945652173913042`", ",", 
     RowBox[{"{", 
      RowBox[{
      "0.08288043478260869`", ",", "0.08695652173913043`", ",", "0.`"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", 
     RowBox[{"{", "}"}], ",", "0.07880434782608695`", ",", 
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", 
     RowBox[{"{", "\<\"Somalia\"\>", "}"}], ",", "0.05570652173913043`", ",", 
     
     RowBox[{"{", "0.05570652173913043`", "}"}], ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Libya\"\>", ",", "\<\"Sudan\"\>"}], "}"}], ",", 
     "0.05163043478260869`", ",", 
     RowBox[{"{", 
      RowBox[{"0.08288043478260869`", ",", "0.05842391304347826`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Saudi Arabia\"\>", ",", "\<\"Syria\"\>"}], "}"}], ",", 
     "0.03668478260869565`", ",", 
     RowBox[{"{", 
      RowBox[{"0.11820652173913042`", ",", "0.11277173913043477`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", 
     RowBox[{"{", "\<\"Saudi Arabia\"\>", "}"}], ",", "0.08559782608695651`", 
     ",", 
     RowBox[{"{", "0.11820652173913042`", "}"}], ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", 
     RowBox[{"{", "\<\"Syria\"\>", "}"}], ",", "0.09646739130434781`", ",", 
     RowBox[{"{", "0.11277173913043477`", "}"}], ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Algeria\"\>", ",", "\<\"Egypt\"\>", ",", "\<\"Sudan\"\>", 
       ",", "\<\"Tunisia\"\>"}], "}"}], ",", "0.08288043478260869`", ",", 
     RowBox[{"{", 
      RowBox[{
      "0.014945652173913042`", ",", "0.05163043478260869`", ",", 
       "0.05842391304347826`", ",", "0.`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", 
     RowBox[{"{", "\<\"Algeria\"\>", "}"}], ",", "0.08695652173913043`", ",", 
     
     RowBox[{"{", "0.014945652173913042`", "}"}], ",", 
     RowBox[{"{", "True", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Saudi Arabia\"\>", ",", "\<\"Yemen\"\>"}], "}"}], ",", 
     "0.040760869565217385`", ",", 
     RowBox[{"{", 
      RowBox[{"0.11820652173913042`", ",", "0.05434782608695651`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Jordan\"\>", ",", "\<\"Kuwait\"\>", ",", "\<\"Oman\"\>", 
       ",", "\<\"Yemen\"\>"}], "}"}], ",", "0.11820652173913042`", ",", 
     RowBox[{"{", 
      RowBox[{
      "0.03668478260869565`", ",", "0.08559782608695651`", ",", 
       "0.040760869565217385`", ",", "0.05434782608695651`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", 
     RowBox[{"{", "\<\"Djibouti\"\>", "}"}], ",", "0.05570652173913043`", ",", 
     RowBox[{"{", "0.05570652173913043`", "}"}], ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Egypt\"\>", ",", "\<\"Libya\"\>"}], "}"}], ",", 
     "0.05842391304347826`", ",", 
     RowBox[{"{", 
      RowBox[{"0.05163043478260869`", ",", "0.08288043478260869`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Jordan\"\>", ",", "\<\"Lebanon\"\>"}], "}"}], ",", 
     "0.11277173913043477`", ",", 
     RowBox[{"{", 
      RowBox[{"0.03668478260869565`", ",", "0.09646739130434781`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Algeria\"\>", ",", "\<\"Libya\"\>"}], "}"}], ",", "0.`", 
     ",", 
     RowBox[{"{", 
      RowBox[{"0.014945652173913042`", ",", "0.08288043478260869`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Oman\"\>", ",", "\<\"Saudi Arabia\"\>"}], "}"}], ",", 
     "0.05434782608695651`", ",", 
     RowBox[{"{", 
      RowBox[{"0.040760869565217385`", ",", "0.11820652173913042`"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.637347261640082*^9, 3.6373472734443073`*^9}, {
  3.637347308632352*^9, 3.6373473524734*^9}, {3.637347449178238*^9, 
  3.637347481850924*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Last", "/@", "rescaledProtestOutbreakDatesRules"}]], "Input",
 CellChangeTimes->{{3.63734760699716*^9, 3.637347607788547*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Algeria\"\>", "\[Rule]", "0.014945652173913042`"}], ",", 
   RowBox[{"\<\"Bahrain\"\>", "\[Rule]", "0.07880434782608695`"}], ",", 
   RowBox[{"\<\"Djibouti\"\>", "\[Rule]", "0.05570652173913043`"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[Rule]", "0.05163043478260869`"}], ",", 
   RowBox[{"\<\"Iraq\"\>", "\[Rule]", "0.9999999999999999`"}], ",", 
   RowBox[{"\<\"Israel\"\>", "\[Rule]", "0.2010869565217391`"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[Rule]", "0.03668478260869565`"}], ",", 
   RowBox[{"\<\"Kuwait\"\>", "\[Rule]", "0.08559782608695651`"}], ",", 
   RowBox[{"\<\"Lebanon\"\>", "\[Rule]", "0.09646739130434781`"}], ",", 
   RowBox[{"\<\"Libya\"\>", "\[Rule]", "0.08288043478260869`"}], ",", 
   RowBox[{"\<\"Mauritania\"\>", "\[Rule]", "0.09374999999999999`"}], ",", 
   RowBox[{"\<\"Morocco\"\>", "\[Rule]", "0.08695652173913043`"}], ",", 
   RowBox[{"\<\"Oman\"\>", "\[Rule]", "0.040760869565217385`"}], ",", 
   RowBox[{"\<\"Palestinian Territory\"\>", "\[Rule]", 
    "0.8505434782608695`"}], ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[Rule]", "0.11820652173913042`"}], ",", 
   RowBox[{"\<\"Somalia\"\>", "\[Rule]", "0.05570652173913043`"}], ",", 
   RowBox[{"\<\"Sudan\"\>", "\[Rule]", "0.05842391304347826`"}], ",", 
   RowBox[{"\<\"Syria\"\>", "\[Rule]", "0.11277173913043477`"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[Rule]", "0.`"}], ",", 
   RowBox[{"\<\"Yemen\"\>", "\[Rule]", "0.05434782608695651`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.637347603994568*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sort", "@", "rescaledProtestOutbreakDatesRulesAll"}]], "Input",
 CellChangeTimes->{{3.637347568045875*^9, 3.63734756870133*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\<\"Albania\"\>", "\[Rule]", "2.`"}], ",", 
   RowBox[{"\<\"Algeria\"\>", "\[Rule]", "0.014945652173913042`"}], ",", 
   RowBox[{"\<\"Bahrain\"\>", "\[Rule]", "0.07880434782608695`"}], ",", 
   RowBox[{"\<\"Djibouti\"\>", "\[Rule]", "0.05570652173913043`"}], ",", 
   RowBox[{"\<\"Egypt\"\>", "\[Rule]", "0.05163043478260869`"}], ",", 
   RowBox[{"\<\"Iran\"\>", "\[Rule]", "2.`"}], ",", 
   RowBox[{"\<\"Iraq\"\>", "\[Rule]", "0.9999999999999999`"}], ",", 
   RowBox[{"\<\"Israel\"\>", "\[Rule]", "0.2010869565217391`"}], ",", 
   RowBox[{"\<\"Jordan\"\>", "\[Rule]", "0.03668478260869565`"}], ",", 
   RowBox[{"\<\"Kuwait\"\>", "\[Rule]", "0.08559782608695651`"}], ",", 
   RowBox[{"\<\"Lebanon\"\>", "\[Rule]", "0.09646739130434781`"}], ",", 
   RowBox[{"\<\"Libya\"\>", "\[Rule]", "0.08288043478260869`"}], ",", 
   RowBox[{"\<\"Mauritania\"\>", "\[Rule]", "0.09374999999999999`"}], ",", 
   RowBox[{"\<\"Morocco\"\>", "\[Rule]", "0.08695652173913043`"}], ",", 
   RowBox[{"\<\"Oman\"\>", "\[Rule]", "0.040760869565217385`"}], ",", 
   RowBox[{"\<\"Palestinian Territory\"\>", "\[Rule]", 
    "0.8505434782608695`"}], ",", 
   RowBox[{"\<\"Qatar\"\>", "\[Rule]", "2.`"}], ",", 
   RowBox[{"\<\"Saudi Arabia\"\>", "\[Rule]", "0.11820652173913042`"}], ",", 
   RowBox[{"\<\"Somalia\"\>", "\[Rule]", "0.05570652173913043`"}], ",", 
   RowBox[{"\<\"Sudan\"\>", "\[Rule]", "0.05842391304347826`"}], ",", 
   RowBox[{"\<\"Syria\"\>", "\[Rule]", "0.11277173913043477`"}], ",", 
   RowBox[{"\<\"Tunisia\"\>", "\[Rule]", "0.`"}], ",", 
   RowBox[{"\<\"United Arab Emirates\"\>", "\[Rule]", "2.`"}], ",", 
   RowBox[{"\<\"Yemen\"\>", "\[Rule]", "0.05434782608695651`"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.6373475633443403`*^9, 3.6373475693409443`*^9}}]
}, Open  ]],

Cell["\<\
True/False values for whether a bordering country started to protest earlier:\
\
\>", "Text",
 CellChangeTimes->{{3.637407379242332*^9, 3.637407416847193*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "neighbors", ",", "coordinatesBG", ",", "borderGraph", ",", "borderEdges",
      ",", "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", 
     "countries", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "1000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countries", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{"countriesWithProtests", 
       RowBox[{"(*", 
        RowBox[{"~", "Join", "~", 
         RowBox[{"{", 
          RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
          "}"}]}], "*)"}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"fbEdges", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Property", "[", 
        RowBox[{"#", ",", 
         RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
       "&"}], "/@", 
      RowBox[{"EdgeList", "[", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], "]"}]}]}],
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"fbGraph", "=", 
     RowBox[{"SetProperty", "[", 
      RowBox[{
       RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
         RowBox[{"EdgeStyle", "\[Rule]", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
           "]"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"borderEdgesDirected", "=", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"UndirectedEdge", "@@", 
              RowBox[{"Identity", "[", 
               RowBox[{"{", 
                RowBox[{"c", ",", "#"}], "}"}], "]"}]}], "&"}], "/@", 
            RowBox[{"Intersection", "[", 
             RowBox[{"countries", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"CountryData", "[", 
                 RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
               RowBox[{"CountryData", "[", 
                RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
             "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], ",", "1"}], 
        "]"}], "~", "Join", "~", 
       RowBox[{"(", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Qatar\>\"", "\[UndirectedEdge]", "\"\<Saudi Arabia\>\""}], 
         "}"}], ")"}]}]}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"First", "[", "#", "]"}], ",", 
         RowBox[{"Last", "[", "#", "]"}]}], "}"}], "&"}], "/@"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"geographicNeighborProtestedAlready", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"UndirectedEdge", "@@", 
          RowBox[{"Identity", "[", 
           RowBox[{"{", 
            RowBox[{"c", ",", "#"}], "}"}], "]"}]}], "&"}], "/@"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"neighbors", "=", 
         RowBox[{"Intersection", "[", 
          RowBox[{"countries", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"CountryData", "[", 
              RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
            RowBox[{"CountryData", "[", 
             RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
          "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", 
             RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
             "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"c", ",", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"neighbors", ",", 
            RowBox[{"c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], ",", 
            
            RowBox[{"neighbors", "/.", "vertexToTimeRules"}], ","}], "*)"}], 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], 
               ")"}], ">", "#"}], ")"}], "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{"neighbors", "/.", "vertexToTimeRules"}], ")"}]}]}], 
         "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "countries"}], "}"}]}], "]"}]}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.6373475134347*^9, 3.6373475183695498`*^9}, {
  3.637407443676034*^9, 3.6374076289156847`*^9}, {3.637407695098757*^9, 
  3.6374077068205643`*^9}, {3.637407753507678*^9, 3.637407754210554*^9}, {
  3.637408329402031*^9, 3.637408347055367*^9}, {3.637408807072979*^9, 
  3.637408832780426*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", 
     RowBox[{"{", "True", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True", ",", "True", ",", "True"}], 
      "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.637347518804288*^9, {3.6374074863439283`*^9, 3.637407504922368*^9}, 
   3.637407586955687*^9, {3.637407623777328*^9, 3.637407629301724*^9}, {
   3.637407690707941*^9, 3.637407707656756*^9}, 3.637408347758705*^9, 
   3.637408742715646*^9, {3.637408810294548*^9, 3.6374088334509497`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tally", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Or", "@@", 
     RowBox[{"Last", "[", "#", "]"}]}], "&"}], "/@", 
   "geographicNeighborProtestedAlready"}], "]"}]], "Input",
 CellChangeTimes->{{3.6374077606234093`*^9, 3.637407790581843*^9}, {
   3.6374087460114737`*^9, 3.637408746165061*^9}, 3.6374088356469717`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", "9"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.637407761436083*^9, 3.637407791119761*^9}, 
   3.637408348926773*^9, 3.637408746752446*^9, 3.637408835961871*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Count", "[", 
      RowBox[{
       RowBox[{"Last", "[", "#", "]"}], ",", "True"}], "]"}], ",", 
     RowBox[{"Count", "[", 
      RowBox[{
       RowBox[{"Last", "[", "#", "]"}], ",", "False"}], "]"}]}], "}"}], "&"}],
   "/@", "geographicNeighborProtestedAlready"}]], "Input",
 CellChangeTimes->{3.6374087538824987`*^9, 3.637408838555254*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.637407886302659*^9, 3.6374083497521057`*^9, 
  3.63740875453246*^9, 3.637408838849662*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GatherBy", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"First", "[", "#", "]"}], ",", 
       RowBox[{"Or", "@@", 
        RowBox[{"Last", "[", "#", "]"}]}]}], "}"}], "&"}], "/@", 
    "geographicNeighborProtestedAlready"}], ",", "Last"}], "]"}]], "Input",
 CellChangeTimes->{{3.637408156342395*^9, 3.637408179804764*^9}, 
   3.637408756130237*^9, 3.6374088446398*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"Algeria\"\>", ",", "True"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Libya\"\>", ",", "True"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Morocco\"\>", ",", "True"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Saudi Arabia\"\>", ",", "True"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Sudan\"\>", ",", "True"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Syria\"\>", ",", "True"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Yemen\"\>", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\<\"Bahrain\"\>", ",", "False"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Djibouti\"\>", ",", "False"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Egypt\"\>", ",", "False"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Jordan\"\>", ",", "False"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Kuwait\"\>", ",", "False"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Lebanon\"\>", ",", "False"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Oman\"\>", ",", "False"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Somalia\"\>", ",", "False"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\<\"Tunisia\"\>", ",", "False"}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.637408152998674*^9, 3.637408180155229*^9}, 
   3.6374083509489393`*^9, {3.6374087566475677`*^9, 3.6374087721329327`*^9}, 
   3.637408844953103*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"First", "/@", 
  RowBox[{"First", "[", "%", "]"}]}]], "Input",
 CellChangeTimes->{{3.6374081940325747`*^9, 3.637408196854134*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Algeria\"\>", ",", "\<\"Libya\"\>", ",", "\<\"Morocco\"\>", 
   ",", "\<\"Saudi Arabia\"\>", ",", "\<\"Sudan\"\>", ",", "\<\"Syria\"\>", 
   ",", "\<\"Yemen\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.637408197214283*^9, 3.6374083526208887`*^9, 
  3.637408772949162*^9, 3.637408847336968*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Count", "[", 
        RowBox[{
         RowBox[{"Last", "[", "#", "]"}], ",", "True"}], "]"}], ",", 
       RowBox[{"Count", "[", 
        RowBox[{
         RowBox[{"Last", "[", "#", "]"}], ",", "False"}], "]"}]}], "}"}], 
     "&"}], "/@", "geographicNeighborProtestedAlready"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Darker", "@", "Green"}], ",", 
      RowBox[{"Opacity", "[", ".5", "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[FilledCircle]", ",", "15"}], "}"}]}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", "4", "]"}], ",", 
      RowBox[{"Range", "[", "2", "]"}]}], "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", "4", "]"}], ",", 
      RowBox[{"Range", "[", "2", "]"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<# bordering countries\\nwith protests\>\"", ",", 
      "\"\<# bordering countries\\nwithout protests\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.637407809955882*^9, {3.6374078511339607`*^9, 3.6374078730624037`*^9}, {
   3.637407912379051*^9, 3.637408081987207*^9}, {3.637408362782791*^9, 
   3.6374083782484093`*^9}, {3.637408459553237*^9, 3.6374084628133907`*^9}, 
   3.63740875903281*^9, 3.637408854797557*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0, 
      NCache[
       Rational[2, 3], 0.6666666666666666], 0], AbsolutePointSize[6], 
     AbsoluteThickness[1.6], Opacity[0.5], GeometricTransformationBox[InsetBox[
       StyleBox["\[FilledCircle]",
        StripOnInput->False,
        FontSize->15], {0., 0.}], {{{1., 2.}}, {{0., 2.}}, {{0., 1.}}, {{0., 
      2.}}, {{0., 2.}}, {{0., 1.}}, {{0., 1.}}, {{4., 0.}}, {{1., 0.}}, {{0., 
      2.}}, {{5., 0.}}, {{0., 1.}}, {{1., 1.}}, {{2., 0.}}, {{0., 2.}}, {{1., 
      1.}}}]}, {}}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"# bordering countries\\nwith protests\"", TraditionalForm], 
    FormBox["\"# bordering countries\\nwithout protests\"", TraditionalForm]},
  
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{{1, 2, 3, 4}, {1, 2}},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->Automatic,
  ImageSize->Large,
  Method->{},
  PlotRange->{{0, 5.}, {0, 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{{{1, 
      FormBox["1", TraditionalForm]}, {2, 
      FormBox["2", TraditionalForm]}, {3, 
      FormBox["3", TraditionalForm]}, {4, 
      FormBox["4", TraditionalForm]}}, {{1, 
      FormBox["1", TraditionalForm]}, {2, 
      FormBox["2", TraditionalForm]}}}]], "Output",
 CellChangeTimes->{
  3.637407810297423*^9, {3.637407865728064*^9, 3.6374078744875593`*^9}, {
   3.637407917287714*^9, 3.6374079304473143`*^9}, {3.63740798555058*^9, 
   3.637407999453155*^9}, {3.637408036570571*^9, 3.637408082431837*^9}, {
   3.637408353988274*^9, 3.637408378688219*^9}, 3.637408463420548*^9, 
   3.637408759327549*^9, 3.637408855079008*^9}]
}, Open  ]],

Cell["\<\
Only 7 out of 16 countries (Algeria,Libya,Morocco,Saudi \
Arabia,Sudan,Syria,Yemen) shared a border with a country that already had \
protests. Note that we are using geographic borders, and we are also \
considering Bahrain to border Qatar and Saudi Arabia given the close distance.\
\>", "Text",
 CellChangeTimes->{{3.637408134413309*^9, 3.637408147891873*^9}, {
  3.6374082017781*^9, 3.637408217282136*^9}, {3.637408287575481*^9, 
  3.637408312070077*^9}, {3.637408482676836*^9, 3.637408508994155*^9}, {
  3.637408862103059*^9, 3.637408875142271*^9}}],

Cell[CellGroupData[{

Cell[BoxData["rescaledProtestOutbreakDates"], "Input",
 CellChangeTimes->{{3.6374082912355633`*^9, 3.637408292122011*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", "0.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", "0.014945652173913042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", "0.03668478260869565`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", "0.040760869565217385`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", "0.05163043478260869`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", "0.05434782608695651`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", "0.07880434782608695`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", "0.08288043478260869`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", "0.11277173913043477`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", "0.11820652173913042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", "0.05570652173913043`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iraq\"\>", ",", "0.9999999999999999`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Israel\"\>", ",", "0.2010869565217391`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", "0.08559782608695651`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mauritania\"\>", ",", "0.09374999999999999`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", "0.08695652173913043`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Palestinian Territory\"\>", ",", "0.8505434782608695`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", "0.05570652173913043`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", "0.05842391304347826`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", "0.09646739130434781`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.637408292703623*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
all countries with protests: 11 out of all 20 countries with protests shared \
a border with at least one country that already had protests (p-value 0.02)\
\>", "Subsubsection",
 CellChangeTimes->{{3.637416320815279*^9, 3.6374163242538633`*^9}, {
  3.637416506552176*^9, 3.637416536952413*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "neighbors", ",", "coordinatesBG", ",", "borderGraph", ",", "borderEdges",
      ",", "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", 
     "countries", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "1000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countries", "=", "countriesWithProtests"}], 
    RowBox[{"(*", 
     RowBox[{"Cases", "[", 
      RowBox[{"countriesWithProtests", 
       RowBox[{"(*", 
        RowBox[{"~", "Join", "~", 
         RowBox[{"{", 
          RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
          "}"}]}], "*)"}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
     "*)"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"fbEdges", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"Property", "[", 
        RowBox[{"#", ",", 
         RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
       "&"}], "/@", 
      RowBox[{"EdgeList", "[", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], "]"}]}]}],
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"fbGraph", "=", 
     RowBox[{"SetProperty", "[", 
      RowBox[{
       RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
         RowBox[{"EdgeStyle", "\[Rule]", 
          RowBox[{"RGBColor", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
           "]"}]}], ",", 
         RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{"borderEdgesDirected", "=", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"UndirectedEdge", "@@", 
              RowBox[{"Identity", "[", 
               RowBox[{"{", 
                RowBox[{"c", ",", "#"}], "}"}], "]"}]}], "&"}], "/@", 
            RowBox[{"Intersection", "[", 
             RowBox[{"countries", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"CountryData", "[", 
                 RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
               RowBox[{"CountryData", "[", 
                RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
             "]"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], ",", "1"}], 
        "]"}], "~", "Join", "~", 
       RowBox[{"(", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Qatar\>\"", "\[UndirectedEdge]", "\"\<Saudi Arabia\>\""}], 
         "}"}], ")"}]}]}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"First", "[", "#", "]"}], ",", 
         RowBox[{"Last", "[", "#", "]"}]}], "}"}], "&"}], "/@"}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"geographicNeighborProtestedAlready", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"UndirectedEdge", "@@", 
          RowBox[{"Identity", "[", 
           RowBox[{"{", 
            RowBox[{"c", ",", "#"}], "}"}], "]"}]}], "&"}], "/@"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"neighbors", "=", "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"c", "\[Equal]", "\"\<Palestinian Territory\>\""}], ",", 
           RowBox[{"Intersection", "[", 
            RowBox[{"countries", ",", 
             RowBox[{"{", 
              RowBox[{
              "\"\<Jordan\>\"", ",", "\"\<Israel\>\"", ",", "\"\<Egypt\>\""}],
               "}"}]}], "]"}], ",", 
           RowBox[{"Intersection", "[", 
            RowBox[{"countries", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"CountryData", "[", 
                RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
              RowBox[{"CountryData", "[", 
               RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
            "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", 
             RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
             "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
          RowBox[{"neighbors", "=", 
           RowBox[{"neighbors", "~", "Join", "~", 
            RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"c", ",", "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"neighbors", ",", 
            RowBox[{"c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], ",", 
            
            RowBox[{"neighbors", "/.", "vertexToTimeRules"}], ","}], "*)"}], 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], 
               ")"}], ">", "#"}], ")"}], "&"}], "/@", 
           RowBox[{"(", 
            RowBox[{"neighbors", "/.", "vertexToTimeRules"}], ")"}]}]}], 
         "}"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "countries"}], "}"}]}], "]"}]}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.6373475134347*^9, 3.6373475183695498`*^9}, {
  3.637407443676034*^9, 3.6374076289156847`*^9}, {3.637407695098757*^9, 
  3.6374077068205643`*^9}, {3.637407753507678*^9, 3.637407754210554*^9}, {
  3.637408329402031*^9, 3.637408347055367*^9}, {3.637408807072979*^9, 
  3.637408832780426*^9}, {3.63741633458799*^9, 3.637416346929727*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Algeria\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Bahrain\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Djibouti\"\>", ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Egypt\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Iraq\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Israel\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Jordan\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False", ",", "False", ",", "False"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Kuwait\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Lebanon\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Libya\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Mauritania\"\>", ",", 
     RowBox[{"{", "True", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Morocco\"\>", ",", 
     RowBox[{"{", "True", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Oman\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Palestinian Territory\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Saudi Arabia\"\>", ",", 
     RowBox[{"{", 
      RowBox[{
      "False", ",", "True", ",", "True", ",", "True", ",", "True", ",", 
       "True"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Somalia\"\>", ",", 
     RowBox[{"{", "False", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Sudan\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Syria\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False", ",", "True", ",", "True"}], "}"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Tunisia\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"False", ",", "False"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Yemen\"\>", ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.637416336546509*^9, 3.6374163473959913`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tally", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Or", "@@", 
     RowBox[{"Last", "[", "#", "]"}]}], "&"}], "/@", 
   "geographicNeighborProtestedAlready"}], "]"}]], "Input",
 CellChangeTimes->{{3.6374077606234093`*^9, 3.637407790581843*^9}, {
   3.6374087460114737`*^9, 3.637408746165061*^9}, 3.6374088356469717`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"True", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"False", ",", "9"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.6374163506415367`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Count", "[", 
        RowBox[{
         RowBox[{"Last", "[", "#", "]"}], ",", "True"}], "]"}], ",", 
       RowBox[{"Count", "[", 
        RowBox[{
         RowBox[{"Last", "[", "#", "]"}], ",", "False"}], "]"}]}], "}"}], 
     "&"}], "/@", "geographicNeighborProtestedAlready"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Darker", "@", "Green"}], ",", 
      RowBox[{"Opacity", "[", ".5", "]"}]}], "}"}]}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\[FilledCircle]", ",", "15"}], "}"}]}], ",", 
   RowBox[{"ImagePadding", "\[Rule]", "Automatic"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
   RowBox[{"Ticks", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", "4", "]"}], ",", 
      RowBox[{"Range", "[", "2", "]"}]}], "}"}]}], ",", 
   RowBox[{"GridLines", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Range", "[", "4", "]"}], ",", 
      RowBox[{"Range", "[", "2", "]"}]}], "}"}]}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<# bordering countries\\nwith protests\>\"", ",", 
      "\"\<# bordering countries\\nwithout protests\>\""}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{
  3.637407809955882*^9, {3.6374078511339607`*^9, 3.6374078730624037`*^9}, {
   3.637407912379051*^9, 3.637408081987207*^9}, {3.637408362782791*^9, 
   3.6374083782484093`*^9}, {3.637408459553237*^9, 3.6374084628133907`*^9}, 
   3.63740875903281*^9, 3.637408854797557*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
test for statistical significance on the countries in Figure 4 (excluding UAE \
and Qatar): 7 out of the 16 countries shown in Fig. 4 (excluding UAE and \
Qatar) shared a border with at least one country with protests (p-value 0.02)\
\
\>", "Subsubsection",
 CellChangeTimes->{{3.6374086178875*^9, 3.637408622014514*^9}, {
  3.6374149909014606`*^9, 3.637415004387883*^9}, {3.637415036588457*^9, 
  3.637415039153042*^9}, {3.637416541232814*^9, 3.637416550599189*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"(*", 
       RowBox[{"randomOutcomes", ","}], "*)"}], 
      RowBox[{
      "neighbors", ",", "coordinatesBG", ",", "borderGraph", ",", 
       "borderEdges", ",", "borderEdgesDirected", ",", "fbEdges", ",", 
       "fbGraph", ",", "countries", ",", "protestTimes", ",", 
       RowBox[{"numberOfTrials", "=", "10000"}], ",", 
       RowBox[{
       "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"countries", "=", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fbEdges", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Property", "[", 
          RowBox[{"#", ",", 
           RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
         "&"}], "/@", 
        RowBox[{"EdgeList", "[", 
         RowBox[{"Subgraph", "[", 
          RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], 
         "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fbGraph", "=", 
       RowBox[{"SetProperty", "[", 
        RowBox[{
         RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
           RowBox[{"EdgeStyle", "\[Rule]", 
            RowBox[{"RGBColor", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
             "]"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"randomOutcomes", "=", 
       RowBox[{
        RowBox[{"Reap", "[", "\[IndentingNewLine]", 
         RowBox[{"Do", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"vertexToTimeRules", "=", 
             RowBox[{"Thread", "[", 
              RowBox[{"countries", "\[Rule]", 
               RowBox[{"RandomReal", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "1"}], "}"}], ",", 
                 RowBox[{"Length", "[", "countries", "]"}]}], "]"}]}], 
              "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"Sow", "[", 
             RowBox[{"Count", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Or", "@@", 
                  RowBox[{"Last", "[", "#", "]"}]}], "&"}], "/@", 
                "\[IndentingNewLine]", 
                RowBox[{"Table", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"neighbors", "=", 
                    RowBox[{"Intersection", "[", 
                    RowBox[{"countries", ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"CountryData", "[", 
                    RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                    RowBox[{"CountryData", "[", 
                    RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], 
                    "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
                    RowBox[{"neighbors", "=", 
                    RowBox[{"neighbors", "~", "Join", "~", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                    "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
                    RowBox[{"neighbors", "=", 
                    RowBox[{"neighbors", "~", "Join", "~", 
                    RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
                   "\[IndentingNewLine]", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
                    RowBox[{"neighbors", "=", 
                    RowBox[{"neighbors", "~", "Join", "~", 
                    RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
                   "\[IndentingNewLine]", "\[IndentingNewLine]", 
                   RowBox[{"{", 
                    RowBox[{"c", ",", "\[IndentingNewLine]", 
                    RowBox[{"(*", 
                    RowBox[{"neighbors", ",", 
                    RowBox[{
                    "c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], ",", 
                    
                    RowBox[{"neighbors", "/.", "vertexToTimeRules"}], ","}], 
                    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    "c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], 
                    ")"}], ">", "#"}], ")"}], "&"}], "/@", 
                    RowBox[{"(", 
                    RowBox[{"neighbors", "/.", "vertexToTimeRules"}], 
                    ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
                  "\[IndentingNewLine]", ",", 
                  RowBox[{"{", 
                   RowBox[{"c", ",", "countries"}], "}"}]}], "]"}]}], 
               "\[IndentingNewLine]", ",", "True"}], "]"}], "]"}]}], 
           "\[IndentingNewLine]", ",", 
           RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], 
         "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
        RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}], ";"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{
  3.637408629447278*^9, {3.637408660613257*^9, 3.637408663985157*^9}, {
   3.637408702379196*^9, 3.637408724041976*^9}, {3.637408894572377*^9, 
   3.637409006312479*^9}, {3.637409059000836*^9, 3.637409062699791*^9}, {
   3.637409173918641*^9, 3.637409180276424*^9}, {3.637409247522051*^9, 
   3.6374092476724997`*^9}, {3.6374092940188227`*^9, 3.637409294296476*^9}, {
   3.637409682595458*^9, 3.637409690407494*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"464.903719`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.637409686111515*^9, 3.637410156796315*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"randomOutcomes", ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"7", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7", ",", "100"}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.6368963147822723`*^9, 3.6368963361418667`*^9}, {3.63740903321527*^9, 
  3.637409038855768*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.616], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.616], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 2286}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{31.158326661329063`, 
          58.35968775020016}, {-85.57768553577174, 90.90377156037638}}],
        StatusArea[#, 2286]& ,
        TagBoxNote->"2286"],
       StyleBox["2286", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2286, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2295}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{57.85968775020016, 
          85.06104883907125}, {-86.27052591804005, 90.90377156037638}}],
        StatusArea[#, 2295]& ,
        TagBoxNote->"2295"],
       StyleBox["2295", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2295, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2492}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{84.56104883907125, 
          111.76240992794234`}, {-101.43603206324616`, 90.90377156037638}}],
        StatusArea[#, 2492]& ,
        TagBoxNote->"2492"],
       StyleBox["2492", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2492, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1318}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{111.26240992794234`, 
          138.46377101681344`}, {-11.05885330958128, 90.90377156037638}}],
        StatusArea[#, 1318]& ,
        TagBoxNote->"1318"],
       StyleBox["1318", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1318, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 785}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{137.96377101681344`, 165.16513210568453`}, {
          29.972693773641353`, 90.90377156037638}}],
        StatusArea[#, 785]& ,
        TagBoxNote->"785"],
       StyleBox["785", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[785, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 412}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{164.66513210568453`, 191.86649319455563`}, {
          58.68707850542755, 90.90377156037638}}],
        StatusArea[#, 412]& ,
        TagBoxNote->"412"],
       StyleBox["412", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[412, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 209}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{191.36649319455563`, 218.56785428342673`}, {
          74.31447823881254, 90.90377156037638}}],
        StatusArea[#, 209]& ,
        TagBoxNote->"209"],
       StyleBox["209", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[209, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 113}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{218.06785428342673`, 245.26921537229782`}, {
          81.7047756496744, 90.90377156037638}}],
        StatusArea[#, 113]& ,
        TagBoxNote->"113"],
       StyleBox["113", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[113, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 54}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{244.76921537229782`, 271.97057646116895`}, {
          86.24672926676658, 90.90377156037638}}],
        StatusArea[#, 54]& ,
        TagBoxNote->"54"],
       StyleBox["54", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[54, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 25}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{271.47057646116895`, 298.67193755004}, {
          88.47921494296445, 90.90377156037638}}],
        StatusArea[#, 25]& ,
        TagBoxNote->"25"],
       StyleBox["25", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[25, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{298.17193755004, 325.37329863891114`}, {
          89.6339489134116, 90.90377156037638}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{324.87329863891114`, 352.0746597277822}, {
          90.3267892956799, 90.90377156037638}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.24, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{7, 0}, {7, 100}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 12.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6374090404295273`*^9, 3.63740918760703*^9, 
  3.6374092621533337`*^9, 3.637409341182613*^9, 3.637410157045558*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "7"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", "randomOutcomes", "]"}]}]}], "]"}],
   "//", "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, 
   3.636896353069438*^9, 3.637409153744248*^9, 3.637409192592766*^9}],

Cell[BoxData["0.0203`"], "Output",
 CellChangeTimes->{3.637409193129964*^9, 3.637409262254201*^9, 
  3.637409341268869*^9, 3.6374101572217617`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
test for statistical significance on the countries in Figure 4 (excluding UAE \
and Qatar): p-value 0.02\
\>", "Subsubsection",
 CellChangeTimes->{{3.6374086178875*^9, 3.637408622014514*^9}, {
  3.6374149909014606`*^9, 3.637415004387883*^9}, {3.6374157453658648`*^9, 
  3.637415749540987*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"(*", 
       RowBox[{"randomOutcomes", ","}], "*)"}], 
      RowBox[{
      "neighbors", ",", "coordinatesBG", ",", "borderGraph", ",", 
       "borderEdges", ",", "borderEdgesDirected", ",", "fbEdges", ",", 
       "fbGraph", ",", "countries", ",", "protestTimes", ",", 
       RowBox[{"numberOfTrials", "=", "10000"}], ",", 
       RowBox[{
       "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"countries", "=", "countriesWithProtests"}], 
      RowBox[{"(*", 
       RowBox[{"Cases", "[", 
        RowBox[{"countriesWithProtests", 
         RowBox[{"(*", 
          RowBox[{"~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], "*)"}], ",", 
         RowBox[{"Except", "[", 
          RowBox[{
          "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
           "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
       "*)"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fbEdges", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Property", "[", 
          RowBox[{"#", ",", 
           RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
         "&"}], "/@", 
        RowBox[{"EdgeList", "[", 
         RowBox[{"Subgraph", "[", 
          RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], 
         "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"fbGraph", "=", 
       RowBox[{"SetProperty", "[", 
        RowBox[{
         RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
           RowBox[{"EdgeStyle", "\[Rule]", 
            RowBox[{"RGBColor", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
             "]"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], 
      ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"randomOutcomes", "=", 
       RowBox[{
        RowBox[{"Reap", "[", "\[IndentingNewLine]", 
         RowBox[{"Do", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"vertexToTimeRules", "=", 
             RowBox[{"Thread", "[", 
              RowBox[{"countries", "\[Rule]", 
               RowBox[{"RandomReal", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"0", ",", "1"}], "}"}], ",", 
                 RowBox[{"Length", "[", "countries", "]"}]}], "]"}]}], 
              "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"Sow", "[", 
             RowBox[{"Count", "[", 
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{"Or", "@@", 
                  RowBox[{"Last", "[", "#", "]"}]}], "&"}], "/@", 
                "\[IndentingNewLine]", 
                RowBox[{"Table", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"neighbors", "=", "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{
                    "c", "\[Equal]", "\"\<Palestinian Territory\>\""}], ",", 
                    RowBox[{"Intersection", "[", 
                    RowBox[{"countries", ",", 
                    RowBox[{"{", 
                    RowBox[{
                    "\"\<Jordan\>\"", ",", "\"\<Israel\>\"", ",", 
                    "\"\<Egypt\>\""}], "}"}]}], "]"}], ",", 
                    RowBox[{"Intersection", "[", 
                    RowBox[{"countries", ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"CountryData", "[", 
                    RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                    RowBox[{"CountryData", "[", 
                    RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], 
                    "]"}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
                    RowBox[{"neighbors", "=", 
                    RowBox[{"neighbors", "~", "Join", "~", 
                    RowBox[{"{", 
                    RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                    "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
                    RowBox[{"neighbors", "=", 
                    RowBox[{"neighbors", "~", "Join", "~", 
                    RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
                   "\[IndentingNewLine]", 
                   RowBox[{"If", "[", 
                    RowBox[{
                    RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
                    RowBox[{"neighbors", "=", 
                    RowBox[{"neighbors", "~", "Join", "~", 
                    RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
                   "\[IndentingNewLine]", "\[IndentingNewLine]", 
                   RowBox[{"{", 
                    RowBox[{"c", ",", "\[IndentingNewLine]", 
                    RowBox[{"(*", 
                    RowBox[{"neighbors", ",", 
                    RowBox[{
                    "c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], ",", 
                    
                    RowBox[{"neighbors", "/.", "vertexToTimeRules"}], ","}], 
                    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    "c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], 
                    ")"}], ">", "#"}], ")"}], "&"}], "/@", 
                    RowBox[{"(", 
                    RowBox[{"neighbors", "/.", "vertexToTimeRules"}], 
                    ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
                  "\[IndentingNewLine]", ",", 
                  RowBox[{"{", 
                   RowBox[{"c", ",", "countries"}], "}"}]}], "]"}]}], 
               "\[IndentingNewLine]", ",", "True"}], "]"}], "]"}]}], 
           "\[IndentingNewLine]", ",", 
           RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], 
         "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
        RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}], ";"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{
  3.637408629447278*^9, {3.637408660613257*^9, 3.637408663985157*^9}, {
   3.637408702379196*^9, 3.637408724041976*^9}, {3.637408894572377*^9, 
   3.637409006312479*^9}, {3.637409059000836*^9, 3.637409062699791*^9}, {
   3.637409173918641*^9, 3.637409180276424*^9}, {3.637409247522051*^9, 
   3.6374092476724997`*^9}, {3.6374092940188227`*^9, 3.637409294296476*^9}, {
   3.637409682595458*^9, 3.637409690407494*^9}, {3.63741501519494*^9, 
   3.6374150157946043`*^9}, 3.637415098940482*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"587.984735`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.637409686111515*^9, 3.637410156796315*^9, 
  3.637415019051138*^9, 3.637415690085232*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{"randomOutcomes", ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"7", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"7", ",", "100"}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.6368963147822723`*^9, 3.6368963361418667`*^9}, {3.63740903321527*^9, 
  3.637409038855768*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.616], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.616], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 2286}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{31.158326661329063`, 
          58.35968775020016}, {-85.57768553577174, 90.90377156037638}}],
        StatusArea[#, 2286]& ,
        TagBoxNote->"2286"],
       StyleBox["2286", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2286, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 2295}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{57.85968775020016, 
          85.06104883907125}, {-86.27052591804005, 90.90377156037638}}],
        StatusArea[#, 2295]& ,
        TagBoxNote->"2295"],
       StyleBox["2295", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2295, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 2492}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{84.56104883907125, 
          111.76240992794234`}, {-101.43603206324616`, 90.90377156037638}}],
        StatusArea[#, 2492]& ,
        TagBoxNote->"2492"],
       StyleBox["2492", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2492, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1318}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{111.26240992794234`, 
          138.46377101681344`}, {-11.05885330958128, 90.90377156037638}}],
        StatusArea[#, 1318]& ,
        TagBoxNote->"1318"],
       StyleBox["1318", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1318, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 785}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{137.96377101681344`, 165.16513210568453`}, {
          29.972693773641353`, 90.90377156037638}}],
        StatusArea[#, 785]& ,
        TagBoxNote->"785"],
       StyleBox["785", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[785, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 412}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{164.66513210568453`, 191.86649319455563`}, {
          58.68707850542755, 90.90377156037638}}],
        StatusArea[#, 412]& ,
        TagBoxNote->"412"],
       StyleBox["412", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[412, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 209}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{191.36649319455563`, 218.56785428342673`}, {
          74.31447823881254, 90.90377156037638}}],
        StatusArea[#, 209]& ,
        TagBoxNote->"209"],
       StyleBox["209", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[209, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 113}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{218.06785428342673`, 245.26921537229782`}, {
          81.7047756496744, 90.90377156037638}}],
        StatusArea[#, 113]& ,
        TagBoxNote->"113"],
       StyleBox["113", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[113, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 54}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{244.76921537229782`, 271.97057646116895`}, {
          86.24672926676658, 90.90377156037638}}],
        StatusArea[#, 54]& ,
        TagBoxNote->"54"],
       StyleBox["54", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[54, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 25}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{271.47057646116895`, 298.67193755004}, {
          88.47921494296445, 90.90377156037638}}],
        StatusArea[#, 25]& ,
        TagBoxNote->"25"],
       StyleBox["25", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[25, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{298.17193755004, 325.37329863891114`}, {
          89.6339489134116, 90.90377156037638}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{324.87329863891114`, 352.0746597277822}, {
          90.3267892956799, 90.90377156037638}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.24, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{7, 0}, {7, 100}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{0., 12.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.6374090404295273`*^9, 3.63740918760703*^9, 
  3.6374092621533337`*^9, 3.637409341182613*^9, 3.637410157045558*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "7"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", "randomOutcomes", "]"}]}]}], "]"}],
   "//", "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, 
   3.636896353069438*^9, 3.637409153744248*^9, 3.637409192592766*^9}],

Cell[BoxData["0.0203`"], "Output",
 CellChangeTimes->{3.637409193129964*^9, 3.637409262254201*^9, 
  3.637409341268869*^9, 3.6374101572217617`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["test significance against null model with randomized links", \
"Subsubsection",
 CellChangeTimes->{{3.637425509422325*^9, 3.63742551667633*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"randomizedGraph", ",", 
      RowBox[{"(*", 
       RowBox[{"randomOutcomes", ","}], "*)"}], "neighbors", ",", 
      "coordinatesBG", ",", "borderGraph", ",", "borderEdges", ",", 
      "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", "countries",
       ",", "protestTimes", ",", 
      RowBox[{"numberOfTrials", "=", "1000"}], ",", 
      RowBox[{
      "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"countries", "=", 
      RowBox[{"Cases", "[", 
       RowBox[{"countriesWithProtests", 
        RowBox[{"(*", 
         RowBox[{"~", "Join", "~", 
          RowBox[{"{", 
           RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
           "}"}]}], "*)"}], ",", 
        RowBox[{"Except", "[", 
         RowBox[{
         "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
          "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"fbEdges", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Property", "[", 
           RowBox[{"#", ",", 
            RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
          "&"}], "/@", 
         RowBox[{"EdgeList", "[", 
          RowBox[{"Subgraph", "[", 
           RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], 
          "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"fbGraph", "=", 
        RowBox[{"SetProperty", "[", 
         RowBox[{
          RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
            RowBox[{"EdgeStyle", "\[Rule]", 
             RowBox[{"RGBColor", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
              "]"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], 
       ";"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"borderGraph", "=", 
      RowBox[{"Graph", "[", 
       RowBox[{
        RowBox[{"Union", "@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neighbors", "=", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"c", "\[Equal]", "\"\<Palestinian Territory\>\""}], 
                ",", 
                RowBox[{"Intersection", "[", 
                 RowBox[{"countries", ",", 
                  RowBox[{"{", 
                   RowBox[{
                   "\"\<Jordan\>\"", ",", "\"\<Israel\>\"", ",", 
                    "\"\<Egypt\>\""}], "}"}]}], "]"}], ",", 
                RowBox[{"Intersection", "[", 
                 RowBox[{"countries", ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"CountryData", "[", 
                    RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                   RowBox[{"CountryData", "[", 
                    RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], 
                    "]"}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", 
                  RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                  "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
                 RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
              "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
            ",", 
            RowBox[{"{", 
             RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}], ",", 
        RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"randomOutcomesBorder", "=", 
      RowBox[{
       RowBox[{"Reap", "[", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"vertexToTimeRules", "=", 
            RowBox[{"Thread", "[", 
             RowBox[{"countries", "\[Rule]", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}], ",", 
                RowBox[{"Length", "[", "countries", "]"}]}], "]"}]}], "]"}]}],
            ";"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"randomizedGraph", "=", 
            RowBox[{"rewireEdgesDirectedGraph", "[", 
             RowBox[{"borderGraph", ",", 
              RowBox[{"4", " ", 
               RowBox[{"EdgeCount", "[", "borderGraph", "]"}]}]}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"Sow", "[", 
            RowBox[{"Count", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Or", "@@", 
                 RowBox[{"Last", "[", "#", "]"}]}], "&"}], "/@", 
               "\[IndentingNewLine]", 
               RowBox[{"Table", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"neighbors", "=", 
                   RowBox[{"Complement", "[", 
                    RowBox[{
                    RowBox[{"VertexInComponent", "[", 
                    RowBox[{"randomizedGraph", ",", "c", ",", "1"}], "]"}], 
                    ",", 
                    RowBox[{"{", "c", "}"}]}], "]"}]}], ";", 
                  "\[IndentingNewLine]", "\[IndentingNewLine]", 
                  RowBox[{"{", 
                   RowBox[{"c", ",", "\[IndentingNewLine]", 
                    RowBox[{"(*", 
                    RowBox[{"neighbors", ",", 
                    RowBox[{
                    "c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], ",", 
                    
                    RowBox[{"neighbors", "/.", "vertexToTimeRules"}], ","}], 
                    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    "c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], 
                    ")"}], ">", "#"}], ")"}], "&"}], "/@", 
                    RowBox[{"(", 
                    RowBox[{"neighbors", "/.", "vertexToTimeRules"}], 
                    ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
                 "\[IndentingNewLine]", ",", 
                 RowBox[{"{", 
                  RowBox[{"c", ",", "countries"}], "}"}]}], "]"}]}], 
              "\[IndentingNewLine]", ",", "True"}], "]"}], "]"}]}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], 
        "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"Histogram", "[", 
    RowBox[{"randomOutcomesBorder", ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"7", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"7", ",", "1000"}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], 
    "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "7"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", "randomOutcomesBorder", "]"}]}]}], 
   "]"}], "//", "N"}]}], "Input",
 CellChangeTimes->{{3.6374245151446953`*^9, 3.637424517019938*^9}, {
   3.637425000284477*^9, 3.637425065661858*^9}, 3.637425145018292*^9, {
   3.637425196827092*^9, 3.6374252018877172`*^9}, 3.6374252323636312`*^9, {
   3.637425520269451*^9, 3.63742552476435*^9}, {3.63742571213559*^9, 
   3.637425809582264*^9}, {3.637425866435481*^9, 3.6374259006797247`*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.637], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.637], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 4}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{26.25440352281825, 62.88997864958631}, {
          88.91355290863189, 92.06274967867937}}],
        StatusArea[#, 4]& ,
        TagBoxNote->"4"],
       StyleBox["4", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[4, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 15}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{62.38997864958631, 99.0255537763544}, {
          81.62826179100134, 92.06274967867937}}],
        StatusArea[#, 15]& ,
        TagBoxNote->"15"],
       StyleBox["15", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[15, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 94}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{98.5255537763544, 135.1611289031225}, {
          29.306625582563697`, 92.06274967867937}}],
        StatusArea[#, 94]& ,
        TagBoxNote->"94"],
       StyleBox["94", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[94, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 209}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{134.6611289031225, 
          171.29670402989055`}, {-46.85778155630122, 92.06274967867937}}],
        StatusArea[#, 209]& ,
        TagBoxNote->"209"],
       StyleBox["209", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[209, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 294}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{170.79670402989055`, 
          207.43227915665867`}, {-103.15321291981009`, 92.06274967867937}}],
        StatusArea[#, 294]& ,
        TagBoxNote->"294"],
       StyleBox["294", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[294, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 210}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{206.93227915665867`, 
          243.56785428342673`}, {-47.5200807488131, 92.06274967867937}}],
        StatusArea[#, 210]& ,
        TagBoxNote->"210"],
       StyleBox["210", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[210, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 142}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{243.06785428342673`, 
          279.70342941019476`}, {-2.4837356580060117`, 92.06274967867937}}],
        StatusArea[#, 142]& ,
        TagBoxNote->"142"],
       StyleBox["142", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[142, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {13., 28}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{279.20342941019476`, 315.8390045369629}, {
          73.01837228834704, 92.06274967867937}}],
        StatusArea[#, 28]& ,
        TagBoxNote->"28"],
       StyleBox["28", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[28, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{13., 0}, {14., 4}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{315.3390045369629, 351.974579663731}, {
          88.91355290863189, 92.06274967867937}}],
        StatusArea[#, 4]& ,
        TagBoxNote->"4"],
       StyleBox["4", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[4, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{4.82, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{7, 0}, {7, 1000}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{5., 14.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.637425824615631*^9, 3.6374259163975763`*^9}],

Cell[BoxData["0.981`"], "Output",
 CellChangeTimes->{3.637425824690316*^9, 3.637425916422024*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"randomizedGraph", ",", 
      RowBox[{"(*", 
       RowBox[{"randomOutcomes", ","}], "*)"}], "neighbors", ",", 
      "coordinatesBG", ",", "borderGraph", ",", "borderEdges", ",", 
      "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", "countries",
       ",", "protestTimes", ",", 
      RowBox[{"numberOfTrials", "=", "1000"}], ",", 
      RowBox[{
      "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"countries", "=", "countriesWithProtests"}], 
     RowBox[{"(*", 
      RowBox[{"Cases", "[", 
       RowBox[{"countriesWithProtests", 
        RowBox[{"(*", 
         RowBox[{"~", "Join", "~", 
          RowBox[{"{", 
           RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
           "}"}]}], "*)"}], ",", 
        RowBox[{"Except", "[", 
         RowBox[{
         "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
          "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
      "*)"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"fbEdges", "=", 
        RowBox[{
         RowBox[{
          RowBox[{"Property", "[", 
           RowBox[{"#", ",", 
            RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
          "&"}], "/@", 
         RowBox[{"EdgeList", "[", 
          RowBox[{"Subgraph", "[", 
           RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], 
          "]"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"fbGraph", "=", 
        RowBox[{"SetProperty", "[", 
         RowBox[{
          RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
            RowBox[{"EdgeStyle", "\[Rule]", 
             RowBox[{"RGBColor", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
              "]"}]}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], 
       ";"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"borderGraph", "=", 
      RowBox[{"Graph", "[", 
       RowBox[{
        RowBox[{"Union", "@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neighbors", "=", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"c", "\[Equal]", "\"\<Palestinian Territory\>\""}], 
                ",", 
                RowBox[{"Intersection", "[", 
                 RowBox[{"countries", ",", 
                  RowBox[{"{", 
                   RowBox[{
                   "\"\<Jordan\>\"", ",", "\"\<Israel\>\"", ",", 
                    "\"\<Egypt\>\""}], "}"}]}], "]"}], ",", 
                RowBox[{"Intersection", "[", 
                 RowBox[{"countries", ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"CountryData", "[", 
                    RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                   RowBox[{"CountryData", "[", 
                    RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], 
                    "]"}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", 
                  RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                  "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
                 RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
              "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
            ",", 
            RowBox[{"{", 
             RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}], ",", 
        RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"randomOutcomesBorder", "=", 
      RowBox[{
       RowBox[{"Reap", "[", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{"vertexToTimeRules", "=", 
            RowBox[{"Thread", "[", 
             RowBox[{"countries", "\[Rule]", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}], ",", 
                RowBox[{"Length", "[", "countries", "]"}]}], "]"}]}], "]"}]}],
            ";"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"randomizedGraph", "=", 
            RowBox[{"rewireEdgesDirectedGraph", "[", 
             RowBox[{"borderGraph", ",", 
              RowBox[{"4", " ", 
               RowBox[{"EdgeCount", "[", "borderGraph", "]"}]}]}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"Sow", "[", 
            RowBox[{"Count", "[", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"Or", "@@", 
                 RowBox[{"Last", "[", "#", "]"}]}], "&"}], "/@", 
               "\[IndentingNewLine]", 
               RowBox[{"Table", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"neighbors", "=", 
                   RowBox[{"Complement", "[", 
                    RowBox[{
                    RowBox[{"VertexInComponent", "[", 
                    RowBox[{"randomizedGraph", ",", "c", ",", "1"}], "]"}], 
                    ",", 
                    RowBox[{"{", "c", "}"}]}], "]"}]}], ";", 
                  "\[IndentingNewLine]", "\[IndentingNewLine]", 
                  RowBox[{"{", 
                   RowBox[{"c", ",", "\[IndentingNewLine]", 
                    RowBox[{"(*", 
                    RowBox[{"neighbors", ",", 
                    RowBox[{
                    "c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], ",", 
                    
                    RowBox[{"neighbors", "/.", "vertexToTimeRules"}], ","}], 
                    "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    "c", "/.", "rescaledProtestOutbreakDatesRulesAll"}], 
                    ")"}], ">", "#"}], ")"}], "&"}], "/@", 
                    RowBox[{"(", 
                    RowBox[{"neighbors", "/.", "vertexToTimeRules"}], 
                    ")"}]}]}], "}"}]}], "\[IndentingNewLine]", 
                 "\[IndentingNewLine]", ",", 
                 RowBox[{"{", 
                  RowBox[{"c", ",", "countries"}], "}"}]}], "]"}]}], 
              "\[IndentingNewLine]", ",", "True"}], "]"}], "]"}]}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], 
        "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{"Histogram", "[", 
    RowBox[{"randomOutcomesBorder", ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Red", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"11", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"11", ",", "1000"}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], 
    "]"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "11"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", "randomOutcomesBorder", "]"}]}]}], 
   "]"}], "//", "N"}]}], "Input",
 CellChangeTimes->{{3.6374245151446953`*^9, 3.637424517019938*^9}, {
   3.637425000284477*^9, 3.637425065661858*^9}, 3.637425145018292*^9, {
   3.637425196827092*^9, 3.6374252018877172`*^9}, 3.6374252323636312`*^9, {
   3.637425520269451*^9, 3.63742552476435*^9}, {3.63742571213559*^9, 
   3.637425809582264*^9}, {3.637425866435481*^9, 3.6374259006797247`*^9}, {
   3.637425939312598*^9, 3.637425946866143*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.623], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.623], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 4}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{26.254403522818222`, 56.319874081082986`}, {
          88.5065031502459, 91.93456273819311}}],
        StatusArea[#, 4]& ,
        TagBoxNote->"4"],
       StyleBox["4", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[4, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 14}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{55.819874081082986`, 85.88534463934778}, {
          81.18635418037788, 91.93456273819311}}],
        StatusArea[#, 14]& ,
        TagBoxNote->"14"],
       StyleBox["14", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[14, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 76}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{85.38534463934778, 115.45081519761257`}, {
          35.80143056719614, 91.93456273819311}}],
        StatusArea[#, 76]& ,
        TagBoxNote->"76"],
       StyleBox["76", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[76, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 162}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{114.95081519761257`, 
          145.01628575587736`}, {-27.151850573668852`, 91.93456273819311}}],
        StatusArea[#, 162]& ,
        TagBoxNote->"162"],
       StyleBox["162", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[162, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {13., 266}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{144.51628575587736`, 
          174.58175631414215`}, {-103.28139986029629`, 91.93456273819311}}],
        StatusArea[#, 266]& ,
        TagBoxNote->"266"],
       StyleBox["266", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[266, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{13., 0}, {14., 256}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{174.08175631414215`, 
          204.14722687240695`}, {-95.96125089042826, 91.93456273819311}}],
        StatusArea[#, 256]& ,
        TagBoxNote->"256"],
       StyleBox["256", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[256, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{14., 0}, {15., 152}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{203.64722687240695`, 
          233.71269743067174`}, {-19.831701603800823`, 91.93456273819311}}],
        StatusArea[#, 152]& ,
        TagBoxNote->"152"],
       StyleBox["152", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[152, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{15., 0}, {16., 54}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{233.21269743067174`, 263.2781679889365}, {
          51.90575830090579, 91.93456273819311}}],
        StatusArea[#, 54]& ,
        TagBoxNote->"54"],
       StyleBox["54", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[54, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{16., 0}, {17., 13}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{262.7781679889365, 292.8436385472013}, {
          81.91836907736467, 91.93456273819311}}],
        StatusArea[#, 13]& ,
        TagBoxNote->"13"],
       StyleBox["13", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[13, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{17., 0}, {18., 2}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{292.3436385472013, 322.4091091054661}, {
          89.9705329442195, 91.93456273819311}}],
        StatusArea[#, 2]& ,
        TagBoxNote->"2"],
       StyleBox["2", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[2, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{18., 0}, {19., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{321.9091091054661, 351.9745796637309}, {
          90.70254784120631, 91.93456273819311}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{7.78, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{11, 0}, {11, 1000}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{8., 19.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Print",
 CellChangeTimes->{3.637425978888103*^9}],

Cell[BoxData["0.906`"], "Output",
 CellChangeTimes->{3.63742597890628*^9}]
}, Open  ]],

Cell["\<\
If you randomize the shared-border edges, keeping in- and out-degree fixed, \
then we find that the real network has fewer outcomes than the randomized \
ones.\
\>", "Text",
 CellChangeTimes->{{3.6374261204291553`*^9, 3.637426146851151*^9}, {
  3.6686906584132013`*^9, 3.668690659629632*^9}}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["geographic network hop motifs", "Subsection",
 CellChangeTimes->{{3.6374112096934357`*^9, 3.637411214509967*^9}}],

Cell[CellGroupData[{

Cell["compute hop motifs in the shared border network", "Subsubsection",
 CellChangeTimes->{{3.668690563815489*^9, 3.668690574382362*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{"randomOutcomes", ","}], "*)"}], 
    RowBox[{
    "neighbors", ",", "coordinatesBG", ",", "borderGraph", ",", "borderEdges",
      ",", "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", 
     "countries", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "10000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countries", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"countriesWithProtests", "~", "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
         "}"}]}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"fbEdges", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Property", "[", 
          RowBox[{"#", ",", 
           RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
         "&"}], "/@", 
        RowBox[{"EdgeList", "[", 
         RowBox[{"Subgraph", "[", 
          RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], 
         "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"fbGraph", "=", 
       RowBox[{"SetProperty", "[", 
        RowBox[{
         RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
           RowBox[{"EdgeStyle", "\[Rule]", 
            RowBox[{"RGBColor", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
             "]"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], 
      ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"borderEdges", "=", 
     RowBox[{"Union", "@", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"neighbors", "=", 
           RowBox[{"Intersection", "[", 
            RowBox[{"countries", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"CountryData", "[", 
                RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
              RowBox[{"CountryData", "[", 
               RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", 
               RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
               "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
              RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
           "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"borderGraph", "=", 
     RowBox[{"Graph", "[", 
      RowBox[{"borderEdges", ",", 
       RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"borderHopMotifs", "=", 
     RowBox[{"findAllHopMotifsReversed", "[", 
      RowBox[{"borderGraph", ",", "vertexToTimeRules"}], "]"}]}]}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.637410774955098*^9, 3.6374108198042803`*^9}, {
   3.63741085496487*^9, 3.637410955049718*^9}, {3.6374109956439257`*^9, 
   3.637411006753277*^9}, 3.637411038483724*^9, {3.6374110896112967`*^9, 
   3.637411109029089*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Algeria\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Libya\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Egypt\"\>"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Tunisia\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Libya\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Egypt\"\>"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Kuwait\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Kuwait\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Oman\"\>"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Syria\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Lebanon\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Oman\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Oman\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Kuwait\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Yemen\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Yemen\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Kuwait\"\>"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.6374109008584557`*^9, 3.637410955485532*^9}, 
   3.6374110076678553`*^9, 3.637411039261662*^9, {3.637411092426302*^9, 
   3.6374111094798727`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "%"}]], "Input",
 CellChangeTimes->{{3.637411041172484*^9, 3.637411043730145*^9}}],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{3.6374110439402742`*^9, 3.637411106231614*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["also say that Bahrain borders UAE", "Subsubsection",
 CellChangeTimes->{{3.637428091559763*^9, 3.6374280975979548`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{"randomOutcomes", ","}], "*)"}], 
    RowBox[{
    "neighbors", ",", "coordinatesBG", ",", "borderGraph", ",", "borderEdges",
      ",", "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", 
     "countries", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "10000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countries", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"countriesWithProtests", "~", "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
         "}"}]}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"fbEdges", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Property", "[", 
          RowBox[{"#", ",", 
           RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
         "&"}], "/@", 
        RowBox[{"EdgeList", "[", 
         RowBox[{"Subgraph", "[", 
          RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], 
         "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"fbGraph", "=", 
       RowBox[{"SetProperty", "[", 
        RowBox[{
         RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
           RowBox[{"EdgeStyle", "\[Rule]", 
            RowBox[{"RGBColor", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
             "]"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], 
      ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"borderEdges", "=", 
     RowBox[{"Union", "@", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"neighbors", "=", 
           RowBox[{"Intersection", "[", 
            RowBox[{"countries", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"CountryData", "[", 
                RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
              RowBox[{"CountryData", "[", 
               RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", 
               RowBox[{
               "\"\<Qatar\>\"", ",", "\"\<United Arab Emirates\>\"", ",", 
                "\"\<Saudi Arabia\>\""}], "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<United Arab Emirates\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
              RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
           "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"borderGraph", "=", 
     RowBox[{"Graph", "[", 
      RowBox[{"borderEdges", ",", 
       RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"borderHopMotifs", "=", 
     RowBox[{"findAllHopMotifsReversed", "[", 
      RowBox[{"borderGraph", ",", "vertexToTimeRules"}], "]"}]}]}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.637428103397647*^9, 3.637428118748322*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Algeria\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Libya\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Egypt\"\>"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Tunisia\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Libya\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Egypt\"\>"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Kuwait\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Kuwait\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Oman\"\>"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Syria\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Lebanon\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Oman\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Oman\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Kuwait\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Oman\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", 
      "\[Rule]", "\<\"United Arab Emirates\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Yemen\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Yemen\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Kuwait\"\>"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.637428119390586*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "@", "%"}]], "Input",
 CellChangeTimes->{{3.637428121038361*^9, 3.637428121935299*^9}}],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{3.637428122113419*^9}]
}, Open  ]],

Cell["Hop motifs in the FB and border networks:", "Text",
 CellChangeTimes->{{3.668690446422838*^9, 3.6686904595115223`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Dataset", "[", 
   RowBox[{"Association", "/@", 
    RowBox[{"Intersection", "[", 
     RowBox[{"facebookHopMotifs", ",", "borderHopMotifs"}], "]"}]}], "]"}], 
  "[", 
  RowBox[{"SortBy", "[", 
   RowBox[{"#intermediate", "&"}], "]"}], "]"}]], "Input"],

Cell[BoxData[
 TagBox[
  TemplateBox[{GridBox[{{
       StyleBox["\"upstream\"", 
        GrayLevel[0.3]], 
       StyleBox["\"intermediate\"", 
        GrayLevel[0.3]], 
       StyleBox["\"downstream\"", 
        GrayLevel[0.3]]}, {
       StyleBox["\"Jordan\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Jordan\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Oman\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Yemen\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       ItemBox[
        RowBox[{"2 levels", 
          AdjustmentBox[" | ", BoxBaselineShift -> -0.3], 
          RowBox[{"3", "rows"}]}], 
        BaseStyle -> {
         FontFamily -> "Helvetica", FontSize -> 10, FontColor -> 
          GrayLevel[0.4], Editable -> False, Selectable -> False}, 
        ItemSize -> {Automatic, Automatic}, Alignment -> {Left, Center}, 
        Background -> RGBColor[0.92, 0.92, 0.9]], "\[SpanFromLeft]", 
       "\[SpanFromLeft]"}}, 
     GridBoxFrame -> {"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}}, 
     FrameStyle -> RGBColor[0, 0, 0, 0.4], GridBoxDividers -> {"Columns" -> {
         RGBColor[0, 0, 0, 0.4], {
          RGBColor[0, 0, 0, 0.09]}, 
         RGBColor[0, 0, 0, 0.4]}, "Rows" -> {
         RGBColor[0, 0, 0, 0.4], 
         RGBColor[0, 0, 0, 0.3], {
          RGBColor[0, 0, 0, 0.08]}, 
         RGBColor[0, 0, 0, 0.4]}}, RowSpacings -> {1.5, 1.2}, 
     GridBoxBackground -> {"Columns" -> {}, "Rows" -> {
         RGBColor[0.92, 0.92, 0.9]}}, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, ColumnSpacings -> 2.5, 
     GridFrameMargins -> {{2, 3}, {1, 3}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      RowMinHeight -> 1.3],"Dataset[{__Association}]"},
   "Dataset",
   DisplayFunction->(TagBox[
     StyleBox[#, {
      ShowAutoStyles -> False, LineBreakWithin -> False, FontWeight -> 
       "Light", FontFamily -> "Helvetica Neue", NumberMarks -> False, 
       SpanMaxSize -> 3, SpanMinSize -> 1., Editable -> False, Selectable -> 
       True, Background -> RGBColor[0.985, 0.98, 0.973], 
       LinebreakAdjustments -> {0.4, 5, 100, 0, 0.5}, LineIndent -> 0, 
       LineSpacing -> {1.1, 5}}], Deploy]& ),
   InterpretationFunction->(#2& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.637428132377473*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["statistical significance", "Subsubsection",
 CellChangeTimes->{{3.6374113707542*^9, 3.637411373497608*^9}}],

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"(*", 
     RowBox[{"randomOutcomes", ","}], "*)"}], 
    RowBox[{
    "neighbors", ",", "coordinatesBG", ",", "borderGraph", ",", "borderEdges",
      ",", "borderEdgesDirected", ",", "fbEdges", ",", "fbGraph", ",", 
     "countries", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "10000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countries", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"countriesWithProtests", "~", "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
         "}"}]}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"fbEdges", "=", 
       RowBox[{
        RowBox[{
         RowBox[{"Property", "[", 
          RowBox[{"#", ",", 
           RowBox[{"\"\<type\>\"", "\[Rule]", "\"\<Facebook\>\""}]}], "]"}], 
         "&"}], "/@", 
        RowBox[{"EdgeList", "[", 
         RowBox[{"Subgraph", "[", 
          RowBox[{"FacebookGraphReversed", ",", "countries"}], "]"}], 
         "]"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"fbGraph", "=", 
       RowBox[{"SetProperty", "[", 
        RowBox[{
         RowBox[{"Graph", "[", "fbEdges", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}], ",", 
           RowBox[{"EdgeStyle", "\[Rule]", 
            RowBox[{"RGBColor", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"59", ",", "89", ",", "152"}], "}"}], "/", "256"}], 
             "]"}]}], ",", 
           RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "}"}]}], "]"}]}], 
      ";"}], "\[IndentingNewLine]", "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{"borderEdges", "=", 
     RowBox[{"Union", "@", 
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"neighbors", "=", 
           RowBox[{"Intersection", "[", 
            RowBox[{"countries", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"CountryData", "[", 
                RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
              RowBox[{"CountryData", "[", 
               RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
            "]"}]}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", 
               RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
               "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
            RowBox[{"neighbors", "=", 
             RowBox[{"neighbors", "~", "Join", "~", 
              RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
          "\[IndentingNewLine]", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
              RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
           "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", ",", 
         RowBox[{"{", 
          RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"borderGraph", "=", 
     RowBox[{"Graph", "[", 
      RowBox[{"borderEdges", ",", 
       RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"borderHopMotifs", "=", 
     RowBox[{"findAllHopMotifsReversed", "[", 
      RowBox[{"borderGraph", ",", "vertexToTimeRules"}], "]"}]}]}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}]], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "borderHopMotifs", "]"}]], "Input",
 CellChangeTimes->{{3.637417629487294*^9, 3.6374176306692753`*^9}}],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{3.6374176310173483`*^9}]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["intersection with Facebook hop motifs:", "Subsubsection",
 CellChangeTimes->{{3.637411221383438*^9, 3.637411229646055*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Intersection", "[", 
  RowBox[{"facebookHopMotifs", ",", "borderHopMotifs"}], "]"}]], "Input",
 CellChangeTimes->{{3.637411085230262*^9, 3.637411121378647*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Oman\"\>"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Yemen\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.6374111216450167`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Dataset", "[", 
   RowBox[{"Association", "/@", 
    RowBox[{"Intersection", "[", 
     RowBox[{"facebookHopMotifs", ",", "borderHopMotifs"}], "]"}]}], "]"}], 
  "[", 
  RowBox[{"SortBy", "[", 
   RowBox[{"#intermediate", "&"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.6374113456158323`*^9}],

Cell[BoxData[
 TagBox[
  TemplateBox[{GridBox[{{
       StyleBox["\"upstream\"", 
        GrayLevel[0.3]], 
       StyleBox["\"intermediate\"", 
        GrayLevel[0.3]], 
       StyleBox["\"downstream\"", 
        GrayLevel[0.3]]}, {
       StyleBox["\"Jordan\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Jordan\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Oman\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Yemen\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       ItemBox[
        RowBox[{"2 levels", 
          AdjustmentBox[" | ", BoxBaselineShift -> -0.3], 
          RowBox[{"3", "rows"}]}], 
        BaseStyle -> {
         FontFamily -> "Helvetica", FontSize -> 10, FontColor -> 
          GrayLevel[0.4], Editable -> False, Selectable -> False}, 
        ItemSize -> {Automatic, Automatic}, Alignment -> {Left, Center}, 
        Background -> RGBColor[0.92, 0.92, 0.9]], "\[SpanFromLeft]", 
       "\[SpanFromLeft]"}}, 
     GridBoxFrame -> {"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}}, 
     FrameStyle -> RGBColor[0, 0, 0, 0.4], GridBoxDividers -> {"Columns" -> {
         RGBColor[0, 0, 0, 0.4], {
          RGBColor[0, 0, 0, 0.09]}, 
         RGBColor[0, 0, 0, 0.4]}, "Rows" -> {
         RGBColor[0, 0, 0, 0.4], 
         RGBColor[0, 0, 0, 0.3], {
          RGBColor[0, 0, 0, 0.08]}, 
         RGBColor[0, 0, 0, 0.4]}}, RowSpacings -> {1.5, 1.2}, 
     GridBoxBackground -> {"Columns" -> {}, "Rows" -> {
         RGBColor[0.92, 0.92, 0.9]}}, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, ColumnSpacings -> 2.5, 
     GridFrameMargins -> {{2, 3}, {1, 3}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      RowMinHeight -> 1.3],"Dataset[{__Association}]"},
   "Dataset",
   DisplayFunction->(TagBox[
     StyleBox[#, {
      ShowAutoStyles -> False, LineBreakWithin -> False, FontWeight -> 
       "Light", FontFamily -> "Helvetica Neue", NumberMarks -> False, 
       SpanMaxSize -> 3, SpanMinSize -> 1., Editable -> False, Selectable -> 
       True, Background -> RGBColor[0.985, 0.98, 0.973], 
       LinebreakAdjustments -> {0.4, 5, 100, 0, 0.5}, LineIndent -> 0, 
       LineSpacing -> {1.1, 5}}], Deploy]& ),
   InterpretationFunction->(#2& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.637411345895905*^9}]
}, Open  ]],

Cell["Facebook hop motifs that are not border hop motifs:", "Text",
 CellChangeTimes->{{3.637411255580544*^9, 3.637411265156733*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Complement", "[", 
  RowBox[{"facebookHopMotifs", ",", "borderHopMotifs"}], "]"}]], "Input",
 CellChangeTimes->{{3.6374112401244583`*^9, 3.6374112459500713`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Egypt\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Kuwait\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Egypt\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Egypt\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", 
      "\[Rule]", "\<\"United Arab Emirates\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Egypt\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Oman\"\>"}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Sudan\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Saudi Arabia\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Bahrain\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Tunisia\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Egypt\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Jordan\"\>"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\<\"upstream\"\>", "\[Rule]", "\<\"Tunisia\"\>"}], ",", 
     RowBox[{"\<\"intermediate\"\>", "\[Rule]", "\<\"Egypt\"\>"}], ",", 
     RowBox[{"\<\"downstream\"\>", "\[Rule]", "\<\"Oman\"\>"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.637411266743819*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Dataset", "[", 
   RowBox[{"Association", "/@", 
    RowBox[{"Complement", "[", 
     RowBox[{"facebookHopMotifs", ",", "borderHopMotifs"}], "]"}]}], "]"}], 
  "[", 
  RowBox[{"SortBy", "[", 
   RowBox[{"#intermediate", "&"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{3.637411336745449*^9}],

Cell[BoxData[
 TagBox[
  TemplateBox[{GridBox[{{
       StyleBox["\"upstream\"", 
        GrayLevel[0.3]], 
       StyleBox["\"intermediate\"", 
        GrayLevel[0.3]], 
       StyleBox["\"downstream\"", 
        GrayLevel[0.3]]}, {
       StyleBox["\"Jordan\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Egypt\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Oman\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Tunisia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Egypt\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Jordan\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Tunisia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Egypt\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Oman\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Egypt\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Kuwait\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Egypt\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Sudan\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Egypt\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"United Arab Emirates\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       ItemBox[
        RowBox[{"2 levels", 
          AdjustmentBox[" | ", BoxBaselineShift -> -0.3], 
          RowBox[{"7", "rows"}]}], 
        BaseStyle -> {
         FontFamily -> "Helvetica", FontSize -> 10, FontColor -> 
          GrayLevel[0.4], Editable -> False, Selectable -> False}, 
        ItemSize -> {Automatic, Automatic}, Alignment -> {Left, Center}, 
        Background -> RGBColor[0.92, 0.92, 0.9]], "\[SpanFromLeft]", 
       "\[SpanFromLeft]"}}, 
     GridBoxFrame -> {"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}}, 
     FrameStyle -> RGBColor[0, 0, 0, 0.4], GridBoxDividers -> {"Columns" -> {
         RGBColor[0, 0, 0, 0.4], {
          RGBColor[0, 0, 0, 0.09]}, 
         RGBColor[0, 0, 0, 0.4]}, "Rows" -> {
         RGBColor[0, 0, 0, 0.4], 
         RGBColor[0, 0, 0, 0.3], {
          RGBColor[0, 0, 0, 0.08]}, 
         RGBColor[0, 0, 0, 0.4]}}, RowSpacings -> {1.5, 1.2}, 
     GridBoxBackground -> {"Columns" -> {}, "Rows" -> {
         RGBColor[0.92, 0.92, 0.9]}}, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, ColumnSpacings -> 2.5, 
     GridFrameMargins -> {{2, 3}, {1, 3}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      RowMinHeight -> 1.3],"Dataset[{__Association}]"},
   "Dataset",
   DisplayFunction->(TagBox[
     StyleBox[#, {
      ShowAutoStyles -> False, LineBreakWithin -> False, FontWeight -> 
       "Light", FontFamily -> "Helvetica Neue", NumberMarks -> False, 
       SpanMaxSize -> 3, SpanMinSize -> 1., Editable -> False, Selectable -> 
       True, Background -> RGBColor[0.985, 0.98, 0.973], 
       LinebreakAdjustments -> {0.4, 5, 100, 0, 0.5}, LineIndent -> 0, 
       LineSpacing -> {1.1, 5}}], Deploy]& ),
   InterpretationFunction->(#2& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.63741133702872*^9}]
}, Open  ]],

Cell["Border hop motifs that are not Facebook hop motifs:", "Text",
 CellChangeTimes->{{3.637411255580544*^9, 3.6374112808511868`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Dataset", "[", 
   RowBox[{"Association", "/@", 
    RowBox[{"Complement", "[", 
     RowBox[{"borderHopMotifs", ",", "facebookHopMotifs"}], "]"}]}], "]"}], 
  "[", 
  RowBox[{"SortBy", "[", 
   RowBox[{"#intermediate", "&"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6374112401244583`*^9, 3.6374112459500713`*^9}, {
  3.637411282494276*^9, 3.637411325908016*^9}}],

Cell[BoxData[
 TagBox[
  TemplateBox[{GridBox[{{
       StyleBox["\"upstream\"", 
        GrayLevel[0.3]], 
       StyleBox["\"intermediate\"", 
        GrayLevel[0.3]], 
       StyleBox["\"downstream\"", 
        GrayLevel[0.3]]}, {
       StyleBox["\"Algeria\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Libya\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Egypt\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Tunisia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Libya\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Egypt\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Kuwait\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Jordan\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Kuwait\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Oman\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Bahrain\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Oman\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Kuwait\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Yemen\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Saudi Arabia\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Kuwait\"", FontColor -> GrayLevel[0.4]]}, {
       StyleBox["\"Jordan\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Syria\"", FontColor -> GrayLevel[0.4]], 
       StyleBox["\"Lebanon\"", FontColor -> GrayLevel[0.4]]}, {
       ItemBox[
        RowBox[{"2 levels", 
          AdjustmentBox[" | ", BoxBaselineShift -> -0.3], 
          RowBox[{"8", "rows"}]}], 
        BaseStyle -> {
         FontFamily -> "Helvetica", FontSize -> 10, FontColor -> 
          GrayLevel[0.4], Editable -> False, Selectable -> False}, 
        ItemSize -> {Automatic, Automatic}, Alignment -> {Left, Center}, 
        Background -> RGBColor[0.92, 0.92, 0.9]], "\[SpanFromLeft]", 
       "\[SpanFromLeft]"}}, 
     GridBoxFrame -> {"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}}, 
     FrameStyle -> RGBColor[0, 0, 0, 0.4], GridBoxDividers -> {"Columns" -> {
         RGBColor[0, 0, 0, 0.4], {
          RGBColor[0, 0, 0, 0.09]}, 
         RGBColor[0, 0, 0, 0.4]}, "Rows" -> {
         RGBColor[0, 0, 0, 0.4], 
         RGBColor[0, 0, 0, 0.3], {
          RGBColor[0, 0, 0, 0.08]}, 
         RGBColor[0, 0, 0, 0.4]}}, RowSpacings -> {1.5, 1.2}, 
     GridBoxBackground -> {"Columns" -> {}, "Rows" -> {
         RGBColor[0.92, 0.92, 0.9]}}, 
     GridBoxAlignment -> {"Columns" -> {{Left}}}, ColumnSpacings -> 2.5, 
     GridFrameMargins -> {{2, 3}, {1, 3}}, 
     GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
      RowMinHeight -> 1.3],"Dataset[{__Association}]"},
   "Dataset",
   DisplayFunction->(TagBox[
     StyleBox[#, {
      ShowAutoStyles -> False, LineBreakWithin -> False, FontWeight -> 
       "Light", FontFamily -> "Helvetica Neue", NumberMarks -> False, 
       SpanMaxSize -> 3, SpanMinSize -> 1., Editable -> False, Selectable -> 
       True, Background -> RGBColor[0.985, 0.98, 0.973], 
       LinebreakAdjustments -> {0.4, 5, 100, 0, 0.5}, LineIndent -> 0, 
       LineSpacing -> {1.1, 5}}], Deploy]& ),
   InterpretationFunction->(#2& )],
  False,
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{{3.637411266743819*^9, 3.6374113263475533`*^9}}]
}, Open  ]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
compute statistical significance of getting 11 hop motifs in the border \
dataset by randomizing the protest start dates\
\>", "Subsection",
 CellChangeTimes->{{3.6368959588702297`*^9, 3.636895966006167*^9}, {
  3.637411424938322*^9, 3.637411442334483*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "\"\<countries in Fig. 4, with UAE & Qatar\>\"", ",", "11", ",", 
       "0.0979`"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<countries in Fig. 4, without UAE & Qatar\>\"", ",", "11", ",", 
       "0.0049"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<all 20 countries with protests\>\"", ",", "16", ",", "0.0022"}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<all 20 countries with protests, plus UAE and Qatar\>\"", ",", "16",
        ",", "0.0294"}], "}"}]}], "}"}], ",", 
   RowBox[{"TableHeadings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", 
       RowBox[{
       "\"\<countries\>\"", ",", "\"\<# hop motifs in border graph\>\"", ",", 
        "\"\<\!\(\*
StyleBox[\"p\",
FontSlant->\"Italic\"]\)\[Hyphen]value\>\""}], "}"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.637416883099339*^9, 3.6374170536838713`*^9}, {
  3.6374173370004272`*^9, 3.63741735995221*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"countries\"\>",
       HoldForm], 
      TagBox["\<\"# hop motifs in border graph\"\>",
       HoldForm], 
      TagBox["\<\"\\!\\(\\*\\nStyleBox[\\\"p\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\[Hyphen]value\"\>",
       HoldForm]},
     {"\<\"countries in Fig. 4, with UAE & Qatar\"\>", "11", "0.0979`"},
     {"\<\"countries in Fig. 4, without UAE & Qatar\"\>", "11", "0.0049`"},
     {"\<\"all 20 countries with protests\"\>", "16", "0.0022`"},
     {"\<\"all 20 countries with protests, plus UAE and Qatar\"\>", "16", 
      "0.0294`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {None, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"countries", "# hop motifs in border graph", 
       "\!\(\*\nStyleBox[\"p\",\n\
FontSlant->\"Italic\"]\)\[Hyphen]value"}}]]]], "Output",
 CellChangeTimes->{{3.637416944311656*^9, 3.6374169503841553`*^9}, {
  3.63741699687707*^9, 3.637417054020095*^9}, {3.637417348245307*^9, 
  3.637417360319511*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
border network, Figure 4 countries, with UAE and Qatar: 11 hop motifs, \
p-value 0.098\
\>", "Subsubsection",
 CellChangeTimes->{{3.6368962219114323`*^9, 3.636896224702689*^9}, {
   3.6374155098834*^9, 3.6374155288909407`*^9}, {3.6374167361130733`*^9, 
   3.637416737753872*^9}, 3.637429304035235*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
    "graph", ",", "neighbors", ",", "countries", ",", "protestTimes", ",", 
     RowBox[{"numberOfTrials", "=", "10000"}], ",", 
     RowBox[{
     "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"graph", "=", 
      RowBox[{"Subgraph", "[", 
       RowBox[{"FacebookGraphReversed", ",", 
        RowBox[{"Cases", "[", 
         RowBox[{
          RowBox[{"countriesWithProtests", "~", "Join", "~", 
           RowBox[{"{", 
            RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
            "}"}]}], ",", 
          RowBox[{"Except", "[", 
           RowBox[{
           "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
            "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
       RowBox[{"(*", 
        RowBox[{"Cases", "[", 
         RowBox[{"countriesWithProtests", 
          RowBox[{"(*", 
           RowBox[{"~", "Join", "~", 
            RowBox[{"{", 
             RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
             "}"}]}], "*)"}], ",", 
          RowBox[{"Except", "[", 
           RowBox[{
           "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
            "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
        "*)"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"countries", "=", 
     RowBox[{"Cases", "[", 
      RowBox[{
       RowBox[{"countriesWithProtests", "~", "Join", "~", 
        RowBox[{"{", 
         RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
         "}"}]}], ",", 
       RowBox[{"Except", "[", 
        RowBox[{
        "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
         "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], ";",
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
    RowBox[{"graph", "=", 
     RowBox[{"Graph", "[", 
      RowBox[{
       RowBox[{"Union", "@", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Table", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"neighbors", "=", 
             RowBox[{"Intersection", "[", 
              RowBox[{"countries", ",", 
               RowBox[{
                RowBox[{
                 RowBox[{"CountryData", "[", 
                  RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                RowBox[{"CountryData", "[", 
                 RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}], 
              "]"}]}], ";", "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
              RowBox[{"neighbors", "=", 
               RowBox[{"neighbors", "~", "Join", "~", 
                RowBox[{"{", 
                 RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                 "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
              RowBox[{"neighbors", "=", 
               RowBox[{"neighbors", "~", "Join", "~", 
                RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
              RowBox[{"neighbors", "=", 
               RowBox[{"neighbors", "~", "Join", "~", 
                RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
            "\[IndentingNewLine]", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
                RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
             "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
           ",", 
           RowBox[{"{", 
            RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}], ",", 
       RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"actualNumberOfHopMotifs", "=", 
     RowBox[{"Length", "@", 
      RowBox[{"findAllHopMotifsReversed", "[", 
       RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}]}]}]}]}], 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->{{3.637414219229444*^9, 3.637414222053453*^9}}],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{3.637414222519537*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "graph", ",", "neighbors", ",", "countries", ",", "protestTimes", ",", 
      RowBox[{"numberOfTrials", "=", "10000"}], ",", 
      RowBox[{
      "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"graph", "=", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", 
         RowBox[{"Cases", "[", 
          RowBox[{
           RowBox[{"countriesWithProtests", "~", "Join", "~", 
            RowBox[{"{", 
             RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
             "}"}]}], ",", 
           RowBox[{"Except", "[", 
            RowBox[{
            "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
             "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
        
        RowBox[{"(*", 
         RowBox[{"Cases", "[", 
          RowBox[{"countriesWithProtests", 
           RowBox[{"(*", 
            RowBox[{"~", "Join", "~", 
             RowBox[{"{", 
              RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
              "}"}]}], "*)"}], ",", 
           RowBox[{"Except", "[", 
            RowBox[{
            "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
             "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
         "*)"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"countries", "=", 
      RowBox[{"Cases", "[", 
       RowBox[{
        RowBox[{"countriesWithProtests", "~", "Join", "~", 
         RowBox[{"{", 
          RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
          "}"}]}], ",", 
        RowBox[{"Except", "[", 
         RowBox[{
         "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
          "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"graph", "=", 
      RowBox[{"Graph", "[", 
       RowBox[{
        RowBox[{"Union", "@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neighbors", "=", 
              RowBox[{"Intersection", "[", 
               RowBox[{"countries", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"CountryData", "[", 
                   RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                 RowBox[{"CountryData", "[", 
                  RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}],
                "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", 
                  RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                  "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
                 RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
              "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
            ",", 
            RowBox[{"{", 
             RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}], ",", 
        RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"randomOutcomes", "=", 
      RowBox[{
       RowBox[{"Reap", "[", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"protestTimes", "=", 
            RowBox[{"Thread", "[", 
             RowBox[{
              RowBox[{"VertexList", "[", "graph", "]"}], "\[Rule]", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}], ",", 
                RowBox[{"Length", "[", 
                 RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], "]"}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Sow", "[", 
            RowBox[{"findAllHopMotifsReversed", "[", 
             RowBox[{"graph", ",", "protestTimes"}], "]"}], "]"}], ";"}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], 
        "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.636896013640383*^9, 3.636896053767877*^9}, {
  3.636896088477003*^9, 3.6368961048249817`*^9}, {3.636896173214232*^9, 
  3.636896173763671*^9}, {3.636896628262588*^9, 3.6368966308773003`*^9}, {
  3.637411482939447*^9, 3.6374115970261183`*^9}, {3.637411639736237*^9, 
  3.6374116438662148`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"136.72802`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.63741178146616*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "/@", "randomOutcomes"}]], "Input",
 CellChangeTimes->{{3.6368960314606256`*^9, 3.636896044118606*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "8", ",", "1", ",", "13", ",", "0", ",", "5", ",", "3", ",", "2", ",", "5", 
   ",", "4", ",", "8", ",", "4", ",", "0", ",", "3", ",", "10", ",", "2", ",",
    "1", ",", "6", ",", "1", ",", "3", ",", "4", ",", "2", ",", "0", ",", "2",
    ",", "11", ",", "5", ",", "2", ",", "5", ",", "2", ",", "4", ",", "2", 
   ",", "9", ",", "7", ",", "0", ",", "0", ",", "2", ",", "4", ",", "1", ",", 
   "3", ",", "1", ",", "2", ",", "3", ",", "16", ",", "1", ",", "7", ",", "4",
    ",", "8", ",", "14", ",", "10", ",", "15", ",", "5", ",", "1", ",", "6", 
   ",", "3", ",", "8", ",", "5", ",", "3", ",", "1", ",", "7", ",", "1", ",", 
   "16", ",", "5", ",", "8", ",", "0", ",", "1", ",", "1", ",", "0", ",", "4",
    ",", "1", ",", "1", ",", "1", ",", "0", ",", "5", ",", "3", ",", "3", ",",
    "1", ",", "7", ",", "10", ",", "12", ",", "0", ",", "5", ",", "11", ",", 
   "5", ",", "10", ",", "2", ",", "4", ",", "7", ",", "5", ",", "2", ",", "2",
    ",", "9", ",", "11", ",", "13", ",", "2", ",", "5", ",", "4", ",", "8", 
   ",", "5", ",", "14", ",", "6", ",", "4", ",", "4", ",", "1", ",", "1", ",",
    "3", ",", "0", ",", "4", ",", "9", ",", "8", ",", "4", ",", "3", ",", "1",
    ",", "10", ",", "11", ",", "1", ",", "2", ",", "4", ",", "0", ",", "1", 
   ",", "4", ",", "5", ",", "2", ",", "1", ",", "3", ",", "1", ",", "7", ",", 
   "0", ",", "9", ",", "12", ",", "3", ",", "14", ",", "7", ",", "1", ",", 
   "4", ",", "1", ",", "5", ",", "3", ",", "1", ",", "3", ",", "5", ",", "0", 
   ",", "2", ",", "9", ",", "15", ",", "4", ",", "7", ",", "14", ",", "7", 
   ",", "9", ",", "1", ",", "10", ",", "6", ",", "1", ",", "1", ",", "3", ",",
    "2", ",", "4", ",", "9", ",", "10", ",", "1", ",", "2", ",", "3", ",", 
   "2", ",", "5", ",", "3", ",", "3", ",", "12", ",", "0", ",", "2", ",", "7",
    ",", "7", ",", "5", ",", "2", ",", "2", ",", "2", ",", "4", ",", "4", ",",
    "7", ",", "7", ",", "8", ",", "3", ",", "7", ",", "2", ",", "12", ",", 
   "2", ",", "10", ",", "1", ",", "4", ",", "2", ",", "3", ",", "3", ",", "8",
    ",", "6", ",", "13", ",", "4", ",", "5", ",", "2", ",", "3", ",", "12", 
   ",", "2", ",", "1", ",", "7", ",", "2", ",", "7", ",", "7", ",", "3", ",", 
   "9", ",", "7", ",", "3", ",", "2", ",", "4", ",", "1", ",", "9", ",", "18",
    ",", "5", ",", "2", ",", "1", ",", "1", ",", "2", ",", "2", ",", "1", ",",
    "3", ",", "2", ",", "2", ",", "11", ",", "2", ",", "5", ",", "14", ",", 
   "4", ",", "8", ",", "4", ",", "11", ",", "2", ",", "13", ",", "10", ",", 
   "12", ",", "8", ",", "4", ",", "5", ",", "1", ",", "3", ",", "3", ",", "4",
    ",", "15", ",", "4", ",", "7", ",", "18", ",", "2", ",", "2", ",", "0", 
   ",", "9", ",", "7", ",", "8", ",", "9", ",", "11", ",", "1", ",", "9", ",",
    "12", ",", "1", ",", "3", ",", "0", ",", "1", ",", "1", ",", "5", ",", 
   "7", ",", "2", ",", "2", ",", "14", ",", "4", ",", "9", ",", "8", ",", "3",
    ",", "4", ",", "6", ",", "2", ",", "8", ",", "6", ",", "14", ",", "10", 
   ",", "5", ",", "5", ",", "10", ",", "10", ",", "3", ",", "6", ",", "2", 
   ",", "4", ",", "16", ",", "9", ",", "11", ",", "1", ",", "2", ",", "1", 
   ",", "2", ",", "2", ",", "12", ",", "2", ",", "3", ",", "5", ",", "3", ",",
    "8", ",", "2", ",", "6", ",", "0", ",", "7", ",", "7", ",", "3", ",", "2",
    ",", "14", ",", "2", ",", "9", ",", "5", ",", "1", ",", "4", ",", "2", 
   ",", "3", ",", "3", ",", "3", ",", "3", ",", "14", ",", "3", ",", "7", ",",
    "5", ",", "3", ",", "1", ",", "5", ",", "6", ",", "10", ",", "10", ",", 
   "15", ",", "1", ",", "6", ",", "4", ",", "1", ",", "3", ",", "2", ",", "8",
    ",", "2", ",", "10", ",", "6", ",", "3", ",", "9", ",", "3", ",", "0", 
   ",", "2", ",", "3", ",", "9", ",", "2", ",", "12", ",", "2", ",", "5", ",",
    "8", ",", "8", ",", "4", ",", "4", ",", "0", ",", "3", ",", "2", ",", "1",
    ",", "5", ",", "4", ",", "4", ",", "9", ",", "3", ",", "4", ",", "5", ",",
    "1", ",", "1", ",", "6", ",", "9", ",", "3", ",", "6", ",", "5", ",", "6",
    ",", "3", ",", "4", ",", "2", ",", "4", ",", "14", ",", "6", ",", "0", 
   ",", "2", ",", "13", ",", "2", ",", "11", ",", "15", ",", "7", ",", "3", 
   ",", "0", ",", "3", ",", "2", ",", "5", ",", "9", ",", "2", ",", "1", ",", 
   "4", ",", "5", ",", "10", ",", "0", ",", "3", ",", "5", ",", "1", ",", "2",
    ",", "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", "1", ",", "6", ",",
    "14", ",", "9", ",", "4", ",", "3", ",", "11", ",", "5", ",", "9", ",", 
   "6", ",", "2", ",", "5", ",", "8", ",", "1", ",", "8", ",", "9", ",", "8", 
   ",", "3", ",", "2", ",", "15", ",", "2", ",", "4", ",", "1", ",", "4", ",",
    "5", ",", "3", ",", "1", ",", "4", ",", "9", ",", "2", ",", "3", ",", "5",
    ",", "6", ",", "3", ",", "8", ",", "17", ",", "8", ",", "2", ",", "5", 
   ",", "1", ",", "1", ",", "4", ",", "7", ",", "0", ",", "10", ",", "9", ",",
    "1", ",", "2", ",", "2", ",", "12", ",", "2", ",", "2", ",", "5", ",", 
   "1", ",", "4", ",", "7", ",", "5", ",", "4", ",", "3", ",", "1", ",", "0", 
   ",", "4", ",", "1", ",", "1", ",", "3", ",", "16", ",", "3", ",", "4", ",",
    "2", ",", "0", ",", "4", ",", "5", ",", "5", ",", "0", ",", "1", ",", 
   "11", ",", "6", ",", "1", ",", "2", ",", "4", ",", "13", ",", "3", ",", 
   "1", ",", "5", ",", "2", ",", "1", ",", "10", ",", "3", ",", "1", ",", 
   "12", ",", "2", ",", "8", ",", "9", ",", "8", ",", "3", ",", "0", ",", "1",
    ",", "0", ",", "2", ",", "5", ",", "12", ",", "6", ",", "16", ",", "0", 
   ",", "9", ",", "12", ",", "3", ",", "4", ",", "4", ",", "9", ",", "7", ",",
    "3", ",", "6", ",", "2", ",", "4", ",", "10", ",", "15", ",", "3", ",", 
   "1", ",", "1", ",", "8", ",", "10", ",", "0", ",", "10", ",", "3", ",", 
   "0", ",", "0", ",", "5", ",", "10", ",", "3", ",", "4", ",", "1", ",", "1",
    ",", "1", ",", "5", ",", "12", ",", "4", ",", "9", ",", "7", ",", "8", 
   ",", "10", ",", "0", ",", "9", ",", "2", ",", "14", ",", "4", ",", "7", 
   ",", "5", ",", "2", ",", "5", ",", "2", ",", "5", ",", "10", ",", "2", ",",
    "1", ",", "4", ",", "3", ",", "11", ",", "3", ",", "0", ",", "14", ",", 
   "0", ",", "2", ",", "6", ",", "3", ",", "4", ",", "5", ",", "2", ",", "3", 
   ",", "3", ",", "10", ",", "10", ",", "0", ",", "5", ",", "2", ",", "4", 
   ",", "9", ",", "11", ",", "3", ",", "2", ",", "9", ",", "5", ",", "7", ",",
    "10", ",", "1", ",", "3", ",", "1", ",", "8", ",", "3", ",", "9", ",", 
   "8", ",", "10", ",", "8", ",", "5", ",", "6", ",", "6", ",", "3", ",", "9",
    ",", "11", ",", "2", ",", "14", ",", "2", ",", "2", ",", "7", ",", "9", 
   ",", "2", ",", "5", ",", "5", ",", "6", ",", "4", ",", "7", ",", "11", ",",
    "8", ",", "12", ",", "0", ",", "5", ",", "13", ",", "1", ",", "13", ",", 
   "4", ",", "8", ",", "5", ",", "8", ",", "2", ",", "1", ",", "5", ",", "6", 
   ",", "5", ",", "1", ",", "13", ",", "2", ",", "3", ",", "11", ",", "13", 
   ",", "3", ",", "4", ",", "8", ",", "15", ",", "6", ",", "2", ",", "2", ",",
    "7", ",", "5", ",", "6", ",", "4", ",", "14", ",", "9", ",", "6", ",", 
   "4", ",", "15", ",", "4", ",", "6", ",", "8", ",", "5", ",", "6", ",", "9",
    ",", "1", ",", "2", ",", "9", ",", "3", ",", "4", ",", "1", ",", "0", ",",
    "1", ",", "1", ",", "9", ",", "4", ",", "3", ",", "12", ",", "9", ",", 
   "8", ",", "16", ",", "8", ",", "6", ",", "0", ",", "2", ",", "7", ",", "7",
    ",", "1", ",", "4", ",", "11", ",", "4", ",", "3", ",", "11", ",", "5", 
   ",", "3", ",", "0", ",", "5", ",", "5", ",", "1", ",", "9", ",", "2", ",", 
   "3", ",", "4", ",", "5", ",", "6", ",", "3", ",", "4", ",", "2", ",", "8", 
   ",", "5", ",", "9", ",", "8", ",", "3", ",", "3", ",", "2", ",", "5", ",", 
   "1", ",", "12", ",", "3", ",", "2", ",", "1", ",", "11", ",", "12", ",", 
   "3", ",", "3", ",", "12", ",", "13", ",", "5", ",", "1", ",", "6", ",", 
   "0", ",", "4", ",", "1", ",", "1", ",", "12", ",", "9", ",", "3", ",", "1",
    ",", "7", ",", "1", ",", "3", ",", "3", ",", "6", ",", "0", ",", "5", ",",
    "0", ",", "3", ",", "2", ",", "10", ",", "1", ",", "2", ",", "9", ",", 
   "13", ",", "14", ",", "0", ",", "9", ",", "9", ",", "11", ",", "9", ",", 
   "7", ",", "4", ",", "6", ",", "9", ",", "16", ",", "4", ",", "0", ",", "1",
    ",", "1", ",", "1", ",", "9", ",", "4", ",", "12", ",", "9", ",", "1", 
   ",", "7", ",", "5", ",", "2", ",", "8", ",", "14", ",", "3", ",", "6", ",",
    "7", ",", "13", ",", "7", ",", "0", ",", "0", ",", "7", ",", "2", ",", 
   "9", ",", "11", ",", "5", ",", "3", ",", "10", ",", "3", ",", "5", ",", 
   "1", ",", "2", ",", "8", ",", "17", ",", "7", ",", "2", ",", "4", ",", "4",
    ",", "2", ",", "2", ",", "7", ",", "8", ",", "4", ",", "2", ",", "4", ",",
    "6", ",", "12", ",", "9", ",", "1", ",", "1", ",", "15", ",", "1", ",", 
   "2", ",", "1", ",", "14", ",", "4", ",", "5", ",", "7", ",", "6", ",", "2",
    ",", "15", ",", "4", ",", "7", ",", "2", ",", "2", ",", "6", ",", "6", 
   ",", "2", ",", "4", ",", "1", ",", "8", ",", "10", ",", "2", ",", "4", ",",
    "6", ",", "1", ",", "0", ",", "6", ",", "3", ",", "8", ",", "4", ",", "1",
    ",", "1", ",", "8", ",", "7", ",", "8", ",", "5", ",", "2", ",", "4", ",",
    "14", ",", "8", ",", "2", ",", "3", ",", "2", ",", "10", ",", "14", ",", 
   "3", ",", "2", ",", "6", ",", "11", ",", "5", ",", "4", ",", "2", ",", "8",
    ",", "5", ",", "1", ",", "7", ",", "3", ",", "3", ",", "16", ",", "4", 
   ",", "4", ",", "3", ",", "2", ",", "10", ",", "2", ",", "2", ",", "2", ",",
    "1", ",", "5", ",", "1", ",", "13", ",", "1", ",", "4", ",", "0", ",", 
   "9", ",", "0", ",", "4", ",", "8", ",", "14", ",", "4", ",", "2", ",", "6",
    ",", "8", ",", "9", ",", "7", ",", "3", ",", "0", ",", "2", ",", "4", ",",
    "2", ",", "3", ",", "7", ",", "1", ",", "3", ",", "2", ",", "9", ",", "8",
    ",", "1", ",", "10", ",", "6", ",", "9", ",", "9", ",", "8", ",", "4", 
   ",", "2", ",", "4", ",", "2", ",", "1", ",", "6", ",", "2", ",", "1", ",", 
   "6", ",", "11", ",", "1", ",", "7", ",", "15", ",", "5", ",", "2", ",", 
   "11", ",", "13", ",", "1", ",", "5", ",", "3", ",", "9", ",", "8", ",", 
   "12", ",", "5", ",", "4", ",", "1", ",", "1", ",", "0", ",", "3", ",", 
   "13", ",", "0", ",", "1", ",", "3", ",", "1", ",", "6", ",", "9", ",", "9",
    ",", "2", ",", "2", ",", "3", ",", "9", ",", "4", ",", "7", ",", "1", ",",
    "2", ",", "1", ",", "3", ",", "1", ",", "3", ",", "1", ",", "8", ",", "3",
    ",", "3", ",", "0", ",", "1", ",", "5", ",", "11", ",", "2", ",", "7", 
   ",", "3", ",", "4", ",", "3", ",", "1", ",", "1", ",", "11", ",", "14", 
   ",", "8", ",", "1", ",", "10", ",", "8", ",", "0", ",", "3", ",", "2", ",",
    "3", ",", "2", ",", "4", ",", "4", ",", "5", ",", "7", ",", "6", ",", "4",
    ",", "0", ",", "1"}], "}"}]], "Output",
 CellChangeTimes->{{3.636896032753598*^9, 3.6368960570059767`*^9}, {
   3.6368960963459883`*^9, 3.636896123189824*^9}, {3.637411555830635*^9, 
   3.637411578899601*^9}, 3.637411611682703*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"Length", "/@", "randomOutcomes"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"11", ",", "10000"}], "}"}]}], "}"}], "]"}]}], "}"}]}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.637411565021809*^9, 3.637411566725525*^9}, {3.637411790922532*^9, 
  3.637411815213842*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.5529999999999999], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.5529999999999999], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 522}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{31.15191961607678, 47.65671865626874}, {
          21.688680508874654`, 95.79924112206007}}],
        StatusArea[#, 522]& ,
        TagBoxNote->"522"],
       StyleBox["522", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[522, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 1329}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{47.15671865626874, 
          63.66151769646069}, {-92.11155400231428, 95.79924112206007}}],
        StatusArea[#, 1329]& ,
        TagBoxNote->"1329"],
       StyleBox["1329", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1329, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 1427}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{63.16151769646069, 
          79.66631673665266}, {-105.93116116724181`, 95.79924112206007}}],
        StatusArea[#, 1427]& ,
        TagBoxNote->"1427"],
       StyleBox["1427", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1427, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1244}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{79.16631673665266, 
          95.67111577684462}, {-80.1251600327343, 95.79924112206007}}],
        StatusArea[#, 1244]& ,
        TagBoxNote->"1244"],
       StyleBox["1244", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1244, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 975}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{95.17111577684462, 
          111.67591481703657`}, {-42.191748529004656`, 95.79924112206007}}],
        StatusArea[#, 975]& ,
        TagBoxNote->"975"],
       StyleBox["975", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[975, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 787}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{111.17591481703657`, 
          127.68071385722854`}, {-15.680665396286528`, 95.79924112206007}}],
        StatusArea[#, 787]& ,
        TagBoxNote->"787"],
       StyleBox["787", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[787, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 640}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{127.18071385722854`, 143.6855128974205}, {
          5.04874535110477, 95.79924112206007}}],
        StatusArea[#, 640]& ,
        TagBoxNote->"640"],
       StyleBox["640", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[640, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 590}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{143.1855128974205, 159.69031193761245`}, {
          12.099565333210649`, 95.79924112206007}}],
        StatusArea[#, 590]& ,
        TagBoxNote->"590"],
       StyleBox["590", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[590, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 588}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{159.19031193761245`, 175.6951109778044}, {
          12.381598132494886`, 95.79924112206007}}],
        StatusArea[#, 588]& ,
        TagBoxNote->"588"],
       StyleBox["588", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[588, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 530}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{175.1951109778044, 191.69991001799636`}, {
          20.560549311737716`, 95.79924112206007}}],
        StatusArea[#, 530]& ,
        TagBoxNote->"530"],
       StyleBox["530", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[530, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 389}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{191.19991001799636`, 207.7047090581883}, {
          40.4438616612763, 95.79924112206007}}],
        StatusArea[#, 389]& ,
        TagBoxNote->"389"],
       StyleBox["389", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[389, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 245}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{207.2047090581883, 223.7095080983803}, {
          60.75022320974124, 95.79924112206007}}],
        StatusArea[#, 245]& ,
        TagBoxNote->"245"],
       StyleBox["245", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[245, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {13., 241}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{223.2095080983803, 239.71430713857225`}, {
          61.31428880830971, 95.79924112206007}}],
        StatusArea[#, 241]& ,
        TagBoxNote->"241"],
       StyleBox["241", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[241, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{13., 0}, {14., 176}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{239.21430713857225`, 255.7191061787642}, {
          70.48035478504735, 95.79924112206007}}],
        StatusArea[#, 176]& ,
        TagBoxNote->"176"],
       StyleBox["176", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[176, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{14., 0}, {15., 152}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{255.2191061787642, 271.72390521895613`}, {
          73.86474837645818, 95.79924112206007}}],
        StatusArea[#, 152]& ,
        TagBoxNote->"152"],
       StyleBox["152", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[152, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{15., 0}, {16., 85}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{271.22390521895613`, 287.7287042591481}, {
          83.31284715248006, 95.79924112206007}}],
        StatusArea[#, 85]& ,
        TagBoxNote->"85"],
       StyleBox["85", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[85, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{16., 0}, {17., 47}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{287.2287042591481, 303.7335032993401}, {
          88.67147033888054, 95.79924112206007}}],
        StatusArea[#, 47]& ,
        TagBoxNote->"47"],
       StyleBox["47", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[47, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{17., 0}, {18., 22}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{303.2335032993401, 319.738302339532}, {
          92.19688032993348, 95.79924112206007}}],
        StatusArea[#, 22]& ,
        TagBoxNote->"22"],
       StyleBox["22", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[22, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{18., 0}, {19., 10}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{319.238302339532, 335.743101379724}, {
          93.88907712563889, 95.79924112206007}}],
        StatusArea[#, 10]& ,
        TagBoxNote->"10"],
       StyleBox["10", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[10, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{19., 0}, {20., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{335.243101379724, 351.74790041991594`}, {
          95.15822472241796, 95.79924112206007}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.4, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{11, 0}, {11, 10000}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{-1., 20.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.637411815900712*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "11"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", 
      RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, {
  3.637411605942173*^9, 3.637411606122512*^9}}],

Cell[BoxData["0.0979`"], "Output",
 CellChangeTimes->{{3.6368961567278013`*^9, 3.636896200402142*^9}, 
   3.6368968956637287`*^9, 3.637411612023472*^9, 3.637411781913765*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
border network, Figure 4 countries, without UAE and Qatar: 11 hop motifs,  \
p-value 0.0049\
\>", "Subsubsection",
 CellChangeTimes->{{3.6368962219114323`*^9, 3.636896224702689*^9}, {
  3.637411836532589*^9, 3.6374118368282013`*^9}, {3.637415505122736*^9, 
  3.637415539202938*^9}, {3.637416720794045*^9, 3.637416729001864*^9}, {
  3.6374292976212378`*^9, 3.6374292991640053`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "graph", ",", "neighbors", ",", "countries", ",", "protestTimes", ",", 
      RowBox[{"numberOfTrials", "=", "10000"}], ",", 
      RowBox[{
      "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"graph", "=", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", 
         RowBox[{"Cases", "[", 
          RowBox[{
           RowBox[{"countriesWithProtests", "~", "Join", "~", 
            RowBox[{"{", 
             RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
             "}"}]}], ",", 
           RowBox[{"Except", "[", 
            RowBox[{
            "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
             "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
        
        RowBox[{"(*", 
         RowBox[{"Cases", "[", 
          RowBox[{"countriesWithProtests", 
           RowBox[{"(*", 
            RowBox[{"~", "Join", "~", 
             RowBox[{"{", 
              RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
              "}"}]}], "*)"}], ",", 
           RowBox[{"Except", "[", 
            RowBox[{
            "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
             "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
         "*)"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"countries", "=", 
      RowBox[{"Cases", "[", 
       RowBox[{"countriesWithProtests", 
        RowBox[{"(*", 
         RowBox[{"~", "Join", "~", 
          RowBox[{"{", 
           RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
           "}"}]}], "*)"}], ",", 
        RowBox[{"Except", "[", 
         RowBox[{
         "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
          "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"graph", "=", 
      RowBox[{"Graph", "[", 
       RowBox[{
        RowBox[{"Union", "@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neighbors", "=", 
              RowBox[{"Intersection", "[", 
               RowBox[{"countries", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"CountryData", "[", 
                   RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                 RowBox[{"CountryData", "[", 
                  RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], "]"}]}]}],
                "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", 
                  RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                  "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
                 RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
              "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
            ",", 
            RowBox[{"{", 
             RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}], ",", 
        RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"randomOutcomes", "=", 
      RowBox[{
       RowBox[{"Reap", "[", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"protestTimes", "=", 
            RowBox[{"Thread", "[", 
             RowBox[{
              RowBox[{"VertexList", "[", "graph", "]"}], "\[Rule]", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}], ",", 
                RowBox[{"Length", "[", 
                 RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], "]"}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Sow", "[", 
            RowBox[{"findAllHopMotifsReversed", "[", 
             RowBox[{"graph", ",", "protestTimes"}], "]"}], "]"}], ";"}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], 
        "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"actualNumberOfHopMotifs", "=", 
      RowBox[{"Length", "@", 
       RowBox[{"findAllHopMotifsReversed", "[", 
        RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}]}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.636896013640383*^9, 3.636896053767877*^9}, {
   3.636896088477003*^9, 3.6368961048249817`*^9}, {3.636896173214232*^9, 
   3.636896173763671*^9}, {3.636896628262588*^9, 3.6368966308773003`*^9}, {
   3.637411482939447*^9, 3.6374115970261183`*^9}, {3.637411639736237*^9, 
   3.6374116438662148`*^9}, 3.637411832449128*^9, {3.637411889377878*^9, 
   3.6374119069168453`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"104.491044`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{3.63741178146616*^9, 3.637411834894142*^9, 
  3.637411887920659*^9, 3.6374120125825977`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["actualNumberOfHopMotifs"], "Input"],

Cell[BoxData["11"], "Output",
 CellChangeTimes->{3.6374120129575367`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"Length", "/@", "randomOutcomes"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "10000"}], "}"}]}], "}"}], 
       "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.637411565021809*^9, 3.637411566725525*^9}, {3.637411790922532*^9, 
  3.637411815213842*^9}, {3.637411917332952*^9, 3.63741191891971*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.602], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.602], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 483}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{31.95857142857144, 57.00714285714287}, {
          47.2701764680487, 98.5810446130131}}],
        StatusArea[#, 483]& ,
        TagBoxNote->"483"],
       StyleBox["483", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[483, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 1606}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{56.50714285714287, 
          81.5557142857143}, {-70.86772193111283, 98.5810446130131}}],
        StatusArea[#, 1606]& ,
        TagBoxNote->"1606"],
       StyleBox["1606", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1606, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 1956}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{81.0557142857143, 
          106.10428571428574`}, {-107.68719160137688`, 98.5810446130131}}],
        StatusArea[#, 1956]& ,
        TagBoxNote->"1956"],
       StyleBox["1956", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1956, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1877}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{105.60428571428574`, 
          130.65285714285716`}, {-99.37651130437443, 98.5810446130131}}],
        StatusArea[#, 1877]& ,
        TagBoxNote->"1877"],
       StyleBox["1877", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1877, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 1391}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{130.15285714285716`, 
          155.2014285714286}, {-48.25004770509348, 98.5810446130131}}],
        StatusArea[#, 1391]& ,
        TagBoxNote->"1391"],
       StyleBox["1391", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1391, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 917}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{154.7014285714286, 179.75000000000003`}, {
          1.6140340769212713`, 98.5810446130131}}],
        StatusArea[#, 917]& ,
        TagBoxNote->"917"],
       StyleBox["917", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[917, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 607}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{179.25000000000003`, 204.29857142857148`}, {
          34.22556435629802, 98.5810446130131}}],
        StatusArea[#, 607]& ,
        TagBoxNote->"607"],
       StyleBox["607", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[607, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 458}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{203.79857142857148`, 228.8471428571429}, {
          49.90013858735328, 98.5810446130131}}],
        StatusArea[#, 458]& ,
        TagBoxNote->"458"],
       StyleBox["458", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[458, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 351}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{228.3471428571429, 253.39571428571432`}, {
          61.15637645797687, 98.5810446130131}}],
        StatusArea[#, 351]& ,
        TagBoxNote->"351"],
       StyleBox["351", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[351, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 211}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{252.89571428571432`, 277.94428571428574`}, {
          75.88416432608248, 98.5810446130131}}],
        StatusArea[#, 211]& ,
        TagBoxNote->"211"],
       StyleBox["211", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[211, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 94}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{277.44428571428574`, 302.4928571428572}, {
          88.1923870444279, 98.5810446130131}}],
        StatusArea[#, 94]& ,
        TagBoxNote->"94"],
       StyleBox["94", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[94, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 38}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{301.9928571428572, 327.0414285714286}, {
          94.08350219167015, 98.5810446130131}}],
        StatusArea[#, 38]& ,
        TagBoxNote->"38"],
       StyleBox["38", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[38, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {13., 11}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{326.5414285714286, 351.59000000000003`}, {
          96.92386128051909, 98.5810446130131}}],
        StatusArea[#, 11]& ,
        TagBoxNote->"11"],
       StyleBox["11", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[11, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.26, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{11, 0}, {11, 10000}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{-1., 13.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.637411815900712*^9, 3.637412013179141*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "actualNumberOfHopMotifs"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", 
      RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, {
   3.637411605942173*^9, 3.637411606122512*^9}, 3.637411920620755*^9}],

Cell[BoxData["0.0049`"], "Output",
 CellChangeTimes->{{3.6368961567278013`*^9, 3.636896200402142*^9}, 
   3.6368968956637287`*^9, 3.637411612023472*^9, 3.637411781913765*^9, 
   3.6374120133097258`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["all countries with protests; 16 hop motifs, p-value 0.0022", \
"Subsubsection",
 CellChangeTimes->{{3.6368962219114323`*^9, 3.636896224702689*^9}, {
   3.636896269805234*^9, 3.636896270014453*^9}, {3.636896393058805*^9, 
   3.636896396625752*^9}, {3.637412055271411*^9, 3.637412067108797*^9}, 
   3.63741234572785*^9, {3.637415551036137*^9, 3.637415553620508*^9}, {
   3.6374167513958693`*^9, 3.6374167560167513`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "graph", ",", "neighbors", ",", "countries", ",", "protestTimes", ",", 
      RowBox[{"numberOfTrials", "=", "10000"}], ",", 
      RowBox[{
      "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"graph", "=", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", 
         RowBox[{"Cases", "[", 
          RowBox[{
           RowBox[{"countriesWithProtests", "~", "Join", "~", 
            RowBox[{"{", 
             RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
             "}"}]}], ",", 
           RowBox[{"Except", "[", 
            RowBox[{
            "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
             "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
        
        RowBox[{"(*", 
         RowBox[{"Cases", "[", 
          RowBox[{"countriesWithProtests", 
           RowBox[{"(*", 
            RowBox[{"~", "Join", "~", 
             RowBox[{"{", 
              RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
              "}"}]}], "*)"}], ",", 
           RowBox[{"Except", "[", 
            RowBox[{
            "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
             "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
         "*)"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"countries", "=", "countriesWithProtests"}], 
     RowBox[{"(*", 
      RowBox[{"Cases", "[", 
       RowBox[{"countriesWithProtests", ",", 
        RowBox[{"Except", "[", "\"\<Palestinian Territory\>\"", "]"}]}], 
       "]"}], "*)"}], 
     RowBox[{"(*", 
      RowBox[{"Cases", "[", 
       RowBox[{"countriesWithProtests", 
        RowBox[{"(*", 
         RowBox[{"~", "Join", "~", 
          RowBox[{"{", 
           RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
           "}"}]}], "*)"}], ",", 
        RowBox[{"Except", "[", 
         RowBox[{
         "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
          "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
      "*)"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"graph", "=", 
      RowBox[{"Graph", "[", 
       RowBox[{
        RowBox[{"Union", "@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neighbors", "=", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"c", "\[Equal]", "\"\<Palestinian Territory\>\""}], 
                ",", 
                RowBox[{"Intersection", "[", 
                 RowBox[{"countries", ",", 
                  RowBox[{"{", 
                   RowBox[{
                   "\"\<Jordan\>\"", ",", "\"\<Israel\>\"", ",", 
                    "\"\<Egypt\>\""}], "}"}]}], "]"}], ",", 
                RowBox[{"Intersection", "[", 
                 RowBox[{"countries", ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"CountryData", "[", 
                    RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                   RowBox[{"CountryData", "[", 
                    RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], 
                    "]"}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", 
                  RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                  "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
                 RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
              "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
            ",", 
            RowBox[{"{", 
             RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}], ",", 
        RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"randomOutcomes", "=", 
      RowBox[{
       RowBox[{"Reap", "[", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"protestTimes", "=", 
            RowBox[{"Thread", "[", 
             RowBox[{
              RowBox[{"VertexList", "[", "graph", "]"}], "\[Rule]", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}], ",", 
                RowBox[{"Length", "[", 
                 RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], "]"}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Sow", "[", 
            RowBox[{"findAllHopMotifsReversed", "[", 
             RowBox[{"graph", ",", "protestTimes"}], "]"}], "]"}], ";"}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], 
        "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"actualNumberOfHopMotifs", "=", 
      RowBox[{"Length", "@", 
       RowBox[{"findAllHopMotifsReversed", "[", 
        RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}]}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.636896013640383*^9, 3.636896053767877*^9}, {
   3.636896088477003*^9, 3.6368961048249817`*^9}, {3.636896173214232*^9, 
   3.636896173763671*^9}, {3.636896628262588*^9, 3.6368966308773003`*^9}, {
   3.637411482939447*^9, 3.6374115970261183`*^9}, {3.637411639736237*^9, 
   3.6374116438662148`*^9}, 3.637411832449128*^9, {3.637411889377878*^9, 
   3.6374119069168453`*^9}, {3.6374119749327497`*^9, 
   3.6374119754983187`*^9}, {3.6374120389962807`*^9, 3.637412049379324*^9}, {
   3.63741215139629*^9, 3.637412222924968*^9}, {3.637412448563414*^9, 
   3.6374124489435797`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"280.157844`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.63741178146616*^9, 3.637411834894142*^9, 3.637411887920659*^9, 
   3.637412027151272*^9, {3.6374121499845457`*^9, 3.637412154257869*^9}, 
   3.637412226308876*^9, 3.6374127310174017`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["actualNumberOfHopMotifs"], "Input"],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{3.6374121543110857`*^9, 3.637412229114252*^9, 
  3.637412731305645*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"Length", "/@", "randomOutcomes"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "10000"}], "}"}]}], "}"}], 
       "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.637411565021809*^9, 3.637411566725525*^9}, {3.637411790922532*^9, 
  3.637411815213842*^9}, {3.637411917332952*^9, 3.63741191891971*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.5599999999999999], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.5599999999999999], Thickness[Small]}], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{0., 0}, {1., 199}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{31.15158275804008, 48.49785317393501}, {
          64.21076650126741, 96.31950722252077}}],
        StatusArea[#, 199]& ,
        TagBoxNote->"199"],
       StyleBox["199", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[199, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{1., 0}, {2., 638}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{47.99785317393501, 
          65.34412358982995}, {-5.519068557175899, 96.31950722252077}}],
        StatusArea[#, 638]& ,
        TagBoxNote->"638"],
       StyleBox["638", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[638, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{2., 0}, {3., 940}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{64.84412358982995, 
          82.19039400572488}, {-53.48811226480663, 96.31950722252077}}],
        StatusArea[#, 940]& ,
        TagBoxNote->"940"],
       StyleBox["940", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[940, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{3., 0}, {4., 1113}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{81.69039400572488, 
          99.03666442161982}, {-80.96706776619772, 96.31950722252077}}],
        StatusArea[#, 1113]& ,
        TagBoxNote->"1113"],
       StyleBox["1113", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1113, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{4., 0}, {5., 1270}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{98.53666442161982, 
          115.88293483751475`}, {-105.90461697844282`, 96.31950722252077}}],
        StatusArea[#, 1270]& ,
        TagBoxNote->"1270"],
       StyleBox["1270", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1270, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{5., 0}, {6., 1229}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{115.38293483751475`, 
          132.7292052534097}, {-99.39226336250621, 96.31950722252077}}],
        StatusArea[#, 1229]& ,
        TagBoxNote->"1229"],
       StyleBox["1229", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1229, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{6., 0}, {7., 1193}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{132.2292052534097, 
          149.57547566930464`}, {-93.67409921192771, 96.31950722252077}}],
        StatusArea[#, 1193]& ,
        TagBoxNote->"1193"],
       StyleBox["1193", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1193, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{7., 0}, {8., 1014}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{149.07547566930464`, 
          166.42174608519957`}, {-65.24211635210685, 96.31950722252077}}],
        StatusArea[#, 1014]& ,
        TagBoxNote->"1014"],
       StyleBox["1014", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1014, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{8., 0}, {9., 780}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{165.92174608519957`, 
          183.2680165010945}, {-28.07404937334664, 96.31950722252077}}],
        StatusArea[#, 780]& ,
        TagBoxNote->"780"],
       StyleBox["780", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[780, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{9., 0}, {10., 562}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{182.7680165010945, 200.11428691698944`}, {
          6.552611316267587, 96.31950722252077}}],
        StatusArea[#, 562]& ,
        TagBoxNote->"562"],
       StyleBox["562", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[562, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{10., 0}, {11., 421}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{199.61428691698944`, 216.96055733288438`}, {
          28.948754239366693`, 96.31950722252077}}],
        StatusArea[#, 421]& ,
        TagBoxNote->"421"],
       StyleBox["421", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[421, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{11., 0}, {12., 267}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{216.46055733288438`, 233.8068277487793}, {
          53.40978977239693, 96.31950722252077}}],
        StatusArea[#, 267]& ,
        TagBoxNote->"267"],
       StyleBox["267", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[267, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{12., 0}, {13., 176}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{233.3068277487793, 250.65309816467425`}, {
          67.8640380419148, 96.31950722252077}}],
        StatusArea[#, 176]& ,
        TagBoxNote->"176"],
       StyleBox["176", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[176, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{13., 0}, {14., 96}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{250.15309816467425`, 267.4993685805692}, {
          80.57106948764478, 96.31950722252077}}],
        StatusArea[#, 96]& ,
        TagBoxNote->"96"],
       StyleBox["96", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[96, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{14., 0}, {15., 58}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{266.9993685805692, 284.3456389964641}, {
          86.60690942436652, 96.31950722252077}}],
        StatusArea[#, 58]& ,
        TagBoxNote->"58"],
       StyleBox["58", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[58, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{15., 0}, {16., 22}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{283.8456389964641, 301.19190941235905`}, {
          92.32507357494502, 96.31950722252077}}],
        StatusArea[#, 22]& ,
        TagBoxNote->"22"],
       StyleBox["22", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[22, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{16., 0}, {17., 15}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{300.69190941235905`, 318.038179828254}, {
          93.4369388264464, 96.31950722252077}}],
        StatusArea[#, 15]& ,
        TagBoxNote->"15"],
       StyleBox["15", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[15, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{17., 0}, {18., 6}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{317.538179828254, 334.8844502441489}, {
          94.86647986409102, 96.31950722252077}}],
        StatusArea[#, 6]& ,
        TagBoxNote->"6"],
       StyleBox["6", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[6, {}], "Tooltip"]& ], 
     TagBox[
      TooltipBox[
       TagBox[
        DynamicBox[{
          FEPrivate`If[
           CurrentValue["MouseOver"], 
           EdgeForm[{
             GrayLevel[0.5], 
             AbsoluteThickness[1.5], 
             Opacity[0.66]}], {}, {}], 
          RectangleBox[{18., 0}, {19., 1}, "RoundingRadius" -> 0]},
         ImageSizeCache->{{334.3844502441489, 351.73072066004386`}, {
          95.66066932944915, 96.31950722252077}}],
        StatusArea[#, 1]& ,
        TagBoxNote->"1"],
       StyleBox["1", {}, StripOnInput -> False]],
      Annotation[#, 
       Style[1, {}], 
       "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.38, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{16, 0}, {16, 10000}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{-1., 19.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.637411815900712*^9, 3.637412154640497*^9, 
  3.637412230404826*^9, 3.637412731505555*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "actualNumberOfHopMotifs"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", 
      RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, {
   3.637411605942173*^9, 3.637411606122512*^9}, 3.637411920620755*^9}],

Cell[BoxData["0.0022`"], "Output",
 CellChangeTimes->{{3.6368961567278013`*^9, 3.636896200402142*^9}, 
   3.6368968956637287`*^9, 3.637411612023472*^9, 3.637411781913765*^9, 
   3.637412158728241*^9, 3.637412232641438*^9, 3.637412731749949*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
all countries with protests, plus UAE and Qatar: 16 hop motifs, p-value 0.0294\
\>", "Subsubsection",
 CellChangeTimes->{{3.6368962219114323`*^9, 3.636896224702689*^9}, {
  3.636896269805234*^9, 3.636896270014453*^9}, {3.636896393058805*^9, 
  3.636896396625752*^9}, {3.63741199591951*^9, 3.6374119985986357`*^9}, {
  3.637415565858726*^9, 3.637415568356337*^9}, {3.637416759929494*^9, 
  3.637416762865526*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "graph", ",", "neighbors", ",", "countries", ",", "protestTimes", ",", 
      RowBox[{"numberOfTrials", "=", "10000"}], ",", 
      RowBox[{
      "vertexToTimeRules", "=", "rescaledProtestOutbreakDatesRulesAll"}]}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"graph", "=", 
       RowBox[{"Subgraph", "[", 
        RowBox[{"FacebookGraphReversed", ",", 
         RowBox[{"Cases", "[", 
          RowBox[{
           RowBox[{"countriesWithProtests", "~", "Join", "~", 
            RowBox[{"{", 
             RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
             "}"}]}], ",", 
           RowBox[{"Except", "[", 
            RowBox[{
            "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
             "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}]}], 
        
        RowBox[{"(*", 
         RowBox[{"Cases", "[", 
          RowBox[{"countriesWithProtests", 
           RowBox[{"(*", 
            RowBox[{"~", "Join", "~", 
             RowBox[{"{", 
              RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
              "}"}]}], "*)"}], ",", 
           RowBox[{"Except", "[", 
            RowBox[{
            "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
             "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
         "*)"}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"countries", "=", 
      RowBox[{"countriesWithProtests", "~", "Join", "~", 
       RowBox[{"{", 
        RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
        "}"}]}]}], 
     RowBox[{"(*", 
      RowBox[{"Cases", "[", 
       RowBox[{"countriesWithProtests", 
        RowBox[{"(*", 
         RowBox[{"~", "Join", "~", 
          RowBox[{"{", 
           RowBox[{"\"\<United Arab Emirates\>\"", ",", "\"\<Qatar\>\""}], 
           "}"}]}], "*)"}], ",", 
        RowBox[{"Except", "[", 
         RowBox[{
         "\"\<Palestinian Territory\>\"", "|", "\"\<Iraq\>\"", "|", 
          "\"\<Israel\>\"", "|", "\"\<Mauritania\>\""}], "]"}]}], "]"}], 
      "*)"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"graph", "=", 
      RowBox[{"Graph", "[", 
       RowBox[{
        RowBox[{"Union", "@", 
         RowBox[{"Flatten", "[", 
          RowBox[{"Table", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"neighbors", "=", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"c", "\[Equal]", "\"\<Palestinian Territory\>\""}], 
                ",", 
                RowBox[{"Intersection", "[", 
                 RowBox[{"countries", ",", 
                  RowBox[{"{", 
                   RowBox[{
                   "\"\<Jordan\>\"", ",", "\"\<Israel\>\"", ",", 
                    "\"\<Egypt\>\""}], "}"}]}], "]"}], ",", 
                RowBox[{"Intersection", "[", 
                 RowBox[{"countries", ",", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"CountryData", "[", 
                    RowBox[{"#", ",", "\"\<Name\>\""}], "]"}], "&"}], "/@", 
                   RowBox[{"CountryData", "[", 
                    RowBox[{"c", ",", "\"\<BorderingCountries\>\""}], 
                    "]"}]}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Bahrain\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", 
                  RowBox[{"\"\<Qatar\>\"", ",", "\"\<Saudi Arabia\>\""}], 
                  "}"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Qatar\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{"c", "\[Equal]", "\"\<Saudi Arabia\>\""}], ",", 
               RowBox[{"neighbors", "=", 
                RowBox[{"neighbors", "~", "Join", "~", 
                 RowBox[{"{", "\"\<Bahrain\>\"", "}"}]}]}]}], "]"}], ";", 
             "\[IndentingNewLine]", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"c", "\[DirectedEdge]", "#"}], ",", 
                 RowBox[{"#", "\[DirectedEdge]", "c"}]}], "}"}], "&"}], "/@", 
              "neighbors"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
            ",", 
            RowBox[{"{", 
             RowBox[{"c", ",", "countries"}], "}"}]}], "]"}], "]"}]}], ",", 
        RowBox[{"VertexLabels", "\[Rule]", "\"\<Name\>\""}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"randomOutcomes", "=", 
      RowBox[{
       RowBox[{"Reap", "[", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"protestTimes", "=", 
            RowBox[{"Thread", "[", 
             RowBox[{
              RowBox[{"VertexList", "[", "graph", "]"}], "\[Rule]", 
              RowBox[{"RandomReal", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "1"}], "}"}], ",", 
                RowBox[{"Length", "[", 
                 RowBox[{"VertexList", "[", "graph", "]"}], "]"}]}], "]"}]}], 
             "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Sow", "[", 
            RowBox[{"findAllHopMotifsReversed", "[", 
             RowBox[{"graph", ",", "protestTimes"}], "]"}], "]"}], ";"}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", "numberOfTrials", "}"}]}], "]"}], 
        "\[IndentingNewLine]", "]"}], "\[LeftDoubleBracket]", 
       RowBox[{"2", ",", "1"}], "\[RightDoubleBracket]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"actualNumberOfHopMotifs", "=", 
      RowBox[{"Length", "@", 
       RowBox[{"findAllHopMotifsReversed", "[", 
        RowBox[{"graph", ",", "vertexToTimeRules"}], "]"}]}]}], ";"}]}], 
   "\[IndentingNewLine]", "]"}], "//", "Timing"}]], "Input",
 CellChangeTimes->{{3.636896013640383*^9, 3.636896053767877*^9}, {
   3.636896088477003*^9, 3.6368961048249817`*^9}, {3.636896173214232*^9, 
   3.636896173763671*^9}, {3.636896628262588*^9, 3.6368966308773003`*^9}, {
   3.637411482939447*^9, 3.6374115970261183`*^9}, {3.637411639736237*^9, 
   3.6374116438662148`*^9}, 3.637411832449128*^9, {3.637411889377878*^9, 
   3.6374119069168453`*^9}, {3.6374119749327497`*^9, 
   3.6374119754983187`*^9}, {3.6374120097315474`*^9, 3.637412013424807*^9}, {
   3.6374123391014223`*^9, 3.6374123536476727`*^9}, {3.637412455500636*^9, 
   3.6374124557188473`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"336.051845`", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{
  3.63741178146616*^9, 3.637411834894142*^9, 3.637411887920659*^9, {
   3.6374123573406553`*^9, 3.637412374554675*^9}, 3.637413068466754*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["actualNumberOfHopMotifs"], "Input"],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{3.6374123573911858`*^9, 3.637413068588777*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"Length", "/@", "randomOutcomes"}], ",", 
   RowBox[{"{", "1", "}"}], ",", 
   RowBox[{"Epilog", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Red", ",", 
      RowBox[{"Line", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"actualNumberOfHopMotifs", ",", "10000"}], "}"}]}], "}"}], 
       "]"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.636896128917643*^9, 3.6368961303006287`*^9}, {
  3.637411565021809*^9, 3.637411566725525*^9}, {3.637411790922532*^9, 
  3.637411815213842*^9}, {3.637411917332952*^9, 3.63741191891971*^9}}],

Cell[BoxData[
 GraphicsBox[{
   {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
    Opacity[0.504], Thickness[Small]}], {}, 
    {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{
     Opacity[0.504], Thickness[Small]}], RectangleBox[{0., 0}, {1., 239},
      RoundingRadius->0], RectangleBox[{1., 0}, {2., 486},
      RoundingRadius->0], RectangleBox[{2., 0}, {3., 700},
      RoundingRadius->0], RectangleBox[{3., 0}, {4., 839},
      RoundingRadius->0], RectangleBox[{4., 0}, {5., 951},
      RoundingRadius->0], RectangleBox[{5., 0}, {6., 988},
      RoundingRadius->0], RectangleBox[{6., 0}, {7., 915},
      RoundingRadius->0], RectangleBox[{7., 0}, {8., 916},
      RoundingRadius->0], RectangleBox[{8., 0}, {9., 813},
      RoundingRadius->0], RectangleBox[{9., 0}, {10., 718},
      RoundingRadius->0], RectangleBox[{10., 0}, {11., 600},
      RoundingRadius->0], RectangleBox[{11., 0}, {12., 465},
      RoundingRadius->0], RectangleBox[{12., 0}, {13., 375},
      RoundingRadius->0], RectangleBox[{13., 0}, {14., 294},
      RoundingRadius->0], RectangleBox[{14., 0}, {15., 246},
      RoundingRadius->0], RectangleBox[{15., 0}, {16., 161},
      RoundingRadius->0], RectangleBox[{16., 0}, {17., 109},
      RoundingRadius->0], RectangleBox[{17., 0}, {18., 67},
      RoundingRadius->0], RectangleBox[{18., 0}, {19., 45},
      RoundingRadius->0], RectangleBox[{19., 0}, {20., 35},
      RoundingRadius->0], RectangleBox[{20., 0}, {21., 15},
      RoundingRadius->0], RectangleBox[{21., 0}, {22., 10},
      RoundingRadius->0], RectangleBox[{22., 0}, {23., 7},
      RoundingRadius->0], RectangleBox[{23., 0}, {24., 4},
      RoundingRadius->0], RectangleBox[{24., 0},
      RoundingRadius->0], RectangleBox[{26., 0},
      RoundingRadius->
       0]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-0.54, 0},
  Epilog->{
    RGBColor[1, 0, 0], 
    LineBox[{{16, 0}, {16, 10000}}]},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  PlotRange->{{-1., 27.}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.637411815900712*^9, 3.637412357564025*^9, 
  3.6374130687252483`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{"outcome", "\[GreaterEqual]", "actualNumberOfHopMotifs"}], ",", 
    RowBox[{"outcome", "\[Distributed]", 
     RowBox[{"EmpiricalDistribution", "[", 
      RowBox[{"Length", "/@", "randomOutcomes"}], "]"}]}]}], "]"}], "//", 
  "N"}]], "Input",
 CellChangeTimes->{{3.6368961514147873`*^9, 3.6368961703316517`*^9}, {
   3.637411605942173*^9, 3.637411606122512*^9}, 3.637411920620755*^9}],

Cell[BoxData["0.0294`"], "Output",
 CellChangeTimes->{{3.6368961567278013`*^9, 3.636896200402142*^9}, 
   3.6368968956637287`*^9, 3.637411612023472*^9, 3.637411781913765*^9, 
   3.637412359050467*^9, 3.6374130689142847`*^9}]
}, Open  ]]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Hop motif significance: summary", "Subsection",
 CellChangeTimes->{{3.6374295107189903`*^9, 3.637429517406555*^9}}],

Cell["Facebook hop motifs:", "Text",
 CellChangeTimes->{{3.63742952029325*^9, 3.637429523670019*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"countries\"\>",
       HoldForm], 
      TagBox["\<\"# hop motifs in Facebook graph\"\>",
       HoldForm], 
      TagBox["\<\"\\!\\(\\*\\nStyleBox[\\\"p\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\[Hyphen]value\"\>",
       HoldForm]},
     {"\<\"countries in Fig. 4, with UAE & Qatar\"\>", "10", "0.0672`"},
     {"\<\"countries in Fig. 4, without UAE & Qatar\"\>", "9", "0.0871`"},
     {"\<\"all 20 countries with protests\"\>", "16", "0.209`"},
     {"\<\"all 20 countries with protests, plus UAE and Qatar\"\>", "10", 
      "0.174`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {None, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"countries", "# hop motifs in Facebook graph", 
       "\!\(\*\nStyleBox[\"p\",\n\
FontSlant->\"Italic\"]\)\[Hyphen]value"}}]]]], "Output",
 CellChangeTimes->{{3.637417145616363*^9, 3.6374171611273527`*^9}, {
   3.6374171915243998`*^9, 3.6374172496383467`*^9}, 3.6374172999655943`*^9, 
   3.637429380126061*^9}],

Cell["Border hop motifs:", "Text",
 CellChangeTimes->{{3.637429535173736*^9, 3.637429537285565*^9}}],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      TagBox["\<\"countries\"\>",
       HoldForm], 
      TagBox["\<\"# hop motifs in border graph\"\>",
       HoldForm], 
      TagBox["\<\"\\!\\(\\*\\nStyleBox[\\\"p\\\",\\nFontSlant->\\\"Italic\\\"]\
\\)\[Hyphen]value\"\>",
       HoldForm]},
     {"\<\"countries in Fig. 4, with UAE & Qatar\"\>", "11", "0.0979`"},
     {"\<\"countries in Fig. 4, without UAE & Qatar\"\>", "11", "0.0049`"},
     {"\<\"all 20 countries with protests\"\>", "16", "0.0022`"},
     {"\<\"all 20 countries with protests, plus UAE and Qatar\"\>", "16", 
      "0.0294`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {{False}}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {None, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {
     None, {"countries", "# hop motifs in border graph", 
       "\!\(\*\nStyleBox[\"p\",\n\
FontSlant->\"Italic\"]\)\[Hyphen]value"}}]]]], "Output",
 CellChangeTimes->{{3.637416944311656*^9, 3.6374169503841553`*^9}, {
  3.63741699687707*^9, 3.637417054020095*^9}, {3.637417348245307*^9, 
  3.637417360319511*^9}}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{899, 755},
WindowMargins->{{Automatic, -32}, {Automatic, 0}},
FrontEndVersion->"10.4 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 25, \
2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 175, 4, 148, "Title"],
Cell[CellGroupData[{
Cell[780, 30, 158, 2, 65, "Chapter"],
Cell[CellGroupData[{
Cell[963, 36, 104, 1, 64, "Section"],
Cell[1070, 39, 296, 6, 30, "Text"],
Cell[1369, 47, 603, 15, 49, "Text"],
Cell[CellGroupData[{
Cell[1997, 66, 109, 1, 44, "Subsection"],
Cell[2109, 69, 296, 8, 30, "Text"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2454, 83, 193, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[2672, 89, 94, 1, 44, "Subsection"],
Cell[CellGroupData[{
Cell[2791, 94, 108, 1, 35, "Subsubsection"],
Cell[2902, 97, 123, 1, 30, "Text"],
Cell[3028, 100, 483, 12, 49, "Text"],
Cell[3514, 114, 104, 1, 30, "Text"],
Cell[3621, 117, 463, 12, 46, "Input",
 InitializationCell->True],
Cell[4087, 131, 127, 1, 30, "Text"],
Cell[4217, 134, 246, 7, 28, "Input",
 InitializationCell->True],
Cell[4466, 143, 132, 1, 30, "Text"],
Cell[4601, 146, 1837, 51, 97, "Input",
 InitializationCell->True],
Cell[6441, 199, 395, 7, 49, "Text"],
Cell[6839, 208, 708, 19, 63, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[7584, 232, 184, 2, 29, "Subsubsection"],
Cell[7771, 236, 462, 13, 30, "Text"],
Cell[8236, 251, 4733, 120, 267, "Input",
 InitializationCell->True],
Cell[12972, 373, 704, 18, 46, "Input",
 InitializationCell->True],
Cell[13679, 393, 173, 4, 30, "Text"],
Cell[13855, 399, 1674, 47, 123, "Input",
 InitializationCell->True],
Cell[15532, 448, 256, 5, 49, "Text"],
Cell[15791, 455, 661, 14, 63, "Input",
 InitializationCell->True],
Cell[16455, 471, 795, 15, 80, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[17287, 491, 179, 2, 29, "Subsubsection"],
Cell[17469, 495, 330, 9, 30, "Text"],
Cell[17802, 506, 776, 17, 63, "Input",
 InitializationCell->True],
Cell[18581, 525, 542, 13, 63, "Input",
 InitializationCell->True],
Cell[19126, 540, 577, 15, 28, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[19728, 559, 900, 24, 80, "Input",
 InitializationCell->True],
Cell[20631, 585, 2507, 41, 70, "Output"]
}, Open  ]],
Cell[23153, 629, 466, 9, 30, "Text"],
Cell[CellGroupData[{
Cell[23644, 642, 904, 25, 80, "Input",
 InitializationCell->True],
Cell[24551, 669, 1938, 33, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26526, 707, 179, 3, 28, "Input"],
Cell[26708, 712, 215, 4, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26960, 721, 150, 2, 28, "Input"],
Cell[27113, 725, 172, 3, 70, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[27334, 734, 234, 5, 29, "Subsubsection"],
Cell[27571, 741, 330, 9, 30, "Text"],
Cell[27904, 752, 147, 2, 30, "Text"],
Cell[28054, 756, 432, 9, 49, "Text"],
Cell[28489, 767, 877, 13, 125, "Text"],
Cell[29369, 782, 589, 14, 63, "Input",
 InitializationCell->True],
Cell[29961, 798, 610, 15, 28, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[30596, 817, 468, 11, 63, "Input"],
Cell[31067, 830, 2660, 60, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33764, 895, 120, 2, 28, "Input"],
Cell[33887, 899, 219, 4, 70, "Output"]
}, Open  ]],
Cell[34121, 906, 347, 9, 46, "Input"],
Cell[34471, 917, 258, 5, 49, "Text"],
Cell[CellGroupData[{
Cell[34754, 926, 2366, 55, 182, "Input",
 InitializationCell->True],
Cell[37123, 983, 2532, 58, 70, "Output"]
}, Open  ]],
Cell[39670, 1044, 306, 9, 46, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[40013, 1058, 184, 2, 29, "Subsubsection"],
Cell[40200, 1062, 330, 9, 30, "Text"],
Cell[40533, 1073, 670, 12, 87, "Text"],
Cell[41206, 1087, 641, 14, 63, "Input",
 InitializationCell->True],
Cell[41850, 1103, 664, 16, 28, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[42539, 1123, 571, 13, 63, "Input",
 InitializationCell->True],
Cell[43113, 1138, 2688, 62, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45838, 1205, 120, 2, 28, "Input"],
Cell[45961, 1209, 267, 4, 70, "Output"]
}, Open  ]],
Cell[46243, 1216, 421, 11, 46, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[46701, 1232, 141, 2, 29, "Subsubsection"],
Cell[46845, 1236, 330, 9, 30, "Text"],
Cell[47178, 1247, 149, 2, 30, "Text"],
Cell[47330, 1251, 691, 15, 63, "Input",
 InitializationCell->True],
Cell[48024, 1268, 728, 17, 28, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[48777, 1289, 635, 14, 63, "Input",
 InitializationCell->True],
Cell[49415, 1305, 2700, 62, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52152, 1372, 120, 2, 28, "Input"],
Cell[52275, 1376, 246, 4, 70, "Output"]
}, Open  ]],
Cell[52536, 1383, 764, 17, 55, "Text"],
Cell[53303, 1402, 768, 19, 80, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[54108, 1426, 117, 1, 29, "Subsubsection"],
Cell[54228, 1429, 330, 9, 30, "Text"],
Cell[54561, 1440, 462, 9, 49, "Text"],
Cell[55026, 1451, 159, 2, 30, "Text"],
Cell[55188, 1455, 490, 12, 63, "Input",
 InitializationCell->True],
Cell[55681, 1469, 584, 16, 28, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[56290, 1489, 510, 12, 63, "Input",
 InitializationCell->True],
Cell[56803, 1503, 2819, 63, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59659, 1571, 120, 2, 28, "Input"],
Cell[59782, 1575, 166, 3, 70, "Output"]
}, Open  ]],
Cell[59963, 1581, 388, 11, 46, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[60388, 1597, 160, 2, 29, "Subsubsection"],
Cell[60551, 1601, 2031, 49, 131, "Input",
 InitializationCell->True],
Cell[62585, 1652, 1993, 49, 131, "Input",
 InitializationCell->True],
Cell[64581, 1703, 2009, 48, 114, "Input",
 InitializationCell->True],
Cell[66593, 1753, 1930, 48, 114, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[68560, 1806, 191, 2, 29, "Subsubsection"],
Cell[68754, 1810, 738, 17, 68, "Text"],
Cell[69495, 1829, 610, 16, 80, "Input",
 InitializationCell->True],
Cell[70108, 1847, 2061, 46, 165, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[72206, 1898, 116, 1, 29, "Subsubsection"],
Cell[72325, 1901, 779, 17, 68, "Text"],
Cell[73107, 1920, 587, 14, 63, "Input",
 InitializationCell->True],
Cell[73697, 1936, 928, 24, 63, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[74662, 1965, 174, 2, 29, "Subsubsection"],
Cell[74839, 1969, 666, 17, 87, "Text"],
Cell[75508, 1988, 272, 5, 49, "Text"],
Cell[75783, 1995, 1491, 23, 709, "Input",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[77299, 2022, 303, 8, 28, "Input",
 InitializationCell->True],
Cell[77605, 2032, 830, 13, 70, "Output"]
}, Open  ]],
Cell[78450, 2048, 117, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[78592, 2053, 621, 16, 63, "Input"],
Cell[79216, 2071, 306, 6, 70, "Output"]
}, Open  ]],
Cell[79537, 2080, 105, 1, 30, "Text"],
Cell[79645, 2083, 1217, 35, 80, "Input",
 InitializationCell->True],
Cell[80865, 2120, 3879, 113, 301, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[84781, 2238, 107, 1, 29, "Subsubsection"],
Cell[84891, 2241, 537, 13, 30, "Text"],
Cell[85431, 2256, 5300, 75, 2409, "Input",
 InitializationCell->True],
Cell[90734, 2333, 1046, 27, 48, "Input",
 InitializationCell->True],
Cell[91783, 2362, 621, 14, 49, "Text"],
Cell[92407, 2378, 541, 13, 46, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[92985, 2396, 107, 1, 29, "Subsubsection"],
Cell[93095, 2399, 550, 14, 49, "Text"],
Cell[93648, 2415, 531, 11, 106, "Text"],
Cell[94182, 2428, 631, 10, 106, "Text"],
Cell[94816, 2440, 1343, 35, 97, "Input"]
}, Closed]]
}, Open  ]],
Cell[CellGroupData[{
Cell[96208, 2481, 96, 1, 44, "Subsection"],
Cell[CellGroupData[{
Cell[96329, 2486, 229, 5, 35, "Subsubsection"],
Cell[96561, 2493, 141, 1, 30, "Text"],
Cell[96705, 2496, 149, 4, 28, "Input"],
Cell[96857, 2502, 160, 2, 30, "Text"],
Cell[CellGroupData[{
Cell[97042, 2508, 463, 11, 46, "Input"],
Cell[97508, 2521, 17245, 300, 321, "Output"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[114802, 2827, 185, 2, 29, "Subsubsection"],
Cell[114990, 2831, 154, 2, 39, "Input"],
Cell[115147, 2835, 90, 1, 28, "Input"],
Cell[115240, 2838, 60562, 1290, 4170, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[175839, 4133, 201, 4, 53, "Subsubsection"],
Cell[CellGroupData[{
Cell[176065, 4141, 5191, 119, 458, "Input"],
Cell[181259, 4262, 51455, 1141, 316, "Output"]
}, {2}]],
Cell[CellGroupData[{
Cell[232748, 5408, 331, 10, 30, "Item"],
Cell[233082, 5420, 1094, 29, 83, "Item"],
Cell[234179, 5451, 671, 11, 79, "Item"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[234923, 5470, 91, 1, 64, "Section"],
Cell[CellGroupData[{
Cell[235039, 5475, 102, 1, 44, "Subsection"],
Cell[CellGroupData[{
Cell[235166, 5480, 95, 1, 35, "Subsubsection"],
Cell[235264, 5483, 229, 6, 30, "Text"],
Cell[235496, 5491, 5117, 121, 471, "Input"],
Cell[240616, 5614, 102, 1, 30, "Text"],
Cell[240721, 5617, 3327, 79, 301, "Input",
 InitializationCell->True]
}, Closed]],
Cell[CellGroupData[{
Cell[244085, 5701, 116, 1, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[244226, 5706, 1224, 31, 132, "Input"],
Cell[245453, 5739, 835, 14, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[246325, 5758, 120, 2, 28, "Input"],
Cell[246448, 5762, 71, 1, 28, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[246580, 5770, 119, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[246724, 5775, 109, 1, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[246858, 5780, 1115, 32, 97, "Input"],
Cell[247976, 5814, 1612, 40, 99, "Output"]
}, {2}]]
}, Open  ]],
Cell[CellGroupData[{
Cell[249634, 5860, 179, 2, 35, "Subsubsection"],
Cell[249816, 5864, 2979, 69, 286, "Input"],
Cell[CellGroupData[{
Cell[252820, 5937, 136, 2, 28, "Input"],
Cell[252959, 5941, 2300, 32, 114, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[255296, 5978, 172, 3, 28, "Input"],
Cell[255471, 5983, 15852, 457, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271360, 6445, 372, 9, 46, "Input"],
Cell[271735, 6456, 130, 2, 28, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[271914, 6464, 231, 3, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[272170, 6471, 3206, 74, 320, "Input"],
Cell[275379, 6547, 304, 6, 22, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[275720, 6558, 653, 17, 46, "Input"],
Cell[276376, 6577, 15369, 443, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291782, 7025, 419, 10, 46, "Input"],
Cell[292204, 7037, 174, 2, 28, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[292427, 7045, 287, 3, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[292739, 7052, 3265, 76, 320, "Input"],
Cell[296007, 7130, 305, 6, 22, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[296349, 7141, 605, 16, 46, "Input"],
Cell[296957, 7159, 9079, 263, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[306073, 7427, 419, 10, 46, "Input"],
Cell[306495, 7439, 149, 2, 28, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[306693, 7447, 284, 3, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[307002, 7454, 3465, 81, 337, "Input"],
Cell[310470, 7537, 330, 6, 22, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[310837, 7548, 655, 17, 46, "Input"],
Cell[311495, 7567, 9119, 263, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[320651, 7835, 419, 10, 46, "Input"],
Cell[321073, 7847, 171, 2, 28, "Output"]
}, Open  ]]
}, Closed]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[321317, 7857, 159, 2, 64, "Section"],
Cell[CellGroupData[{
Cell[321501, 7863, 156, 2, 44, "Subsection"],
Cell[321660, 7867, 2198, 55, 199, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[323895, 7927, 185, 2, 36, "Subsection"],
Cell[CellGroupData[{
Cell[324105, 7933, 5061, 118, 523, "Input"],
Cell[CellGroupData[{
Cell[329191, 8055, 122, 2, 21, "Print"],
Cell[329316, 8059, 14673, 266, 404, "Print"]
}, Open  ]],
Cell[344004, 8328, 3244, 53, 182, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[347285, 8386, 206, 4, 28, "Input"],
Cell[347494, 8392, 835, 14, 46, "Output"]
}, Open  ]],
Cell[348344, 8409, 202, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[348571, 8417, 4450, 81, 284, "Input"],
Cell[353024, 8500, 109, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[353170, 8507, 214, 5, 28, "Input"],
Cell[353387, 8514, 947, 24, 46, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[354383, 8544, 177, 4, 36, "Subsection"],
Cell[CellGroupData[{
Cell[354585, 8552, 320, 6, 59, "Subsubsection"],
Cell[CellGroupData[{
Cell[354930, 8562, 5401, 138, 472, "Input"],
Cell[360334, 8702, 5571, 143, 284, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[365942, 8850, 150, 2, 28, "Input"],
Cell[366095, 8854, 1549, 25, 97, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[367681, 8884, 152, 2, 28, "Input"],
Cell[367836, 8888, 1809, 29, 97, "Output"]
}, Open  ]],
Cell[369660, 8920, 169, 4, 30, "Text"],
Cell[CellGroupData[{
Cell[369854, 8928, 6452, 160, 574, "Input"],
Cell[376309, 9090, 2424, 68, 97, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[378770, 9163, 343, 8, 28, "Input"],
Cell[379116, 9173, 314, 8, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[379467, 9186, 422, 12, 28, "Input"],
Cell[379892, 9200, 1109, 36, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[381038, 9241, 439, 12, 28, "Input"],
Cell[381480, 9255, 1584, 42, 80, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[383101, 9302, 154, 3, 28, "Input"],
Cell[383258, 9307, 339, 6, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[383634, 9318, 1663, 44, 97, "Input"],
Cell[385300, 9364, 1963, 48, 327, "Output"]
}, Open  ]],
Cell[387278, 9415, 564, 9, 68, "Text"],
Cell[CellGroupData[{
Cell[387867, 9428, 122, 1, 28, "Input"],
Cell[387992, 9431, 1929, 45, 114, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[389970, 9482, 304, 5, 53, "Subsubsection"],
Cell[CellGroupData[{
Cell[390299, 9491, 6971, 170, 608, "Input"],
Cell[397273, 9663, 2948, 87, 148, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[400258, 9755, 343, 8, 28, "Input"],
Cell[400604, 9765, 223, 7, 28, "Output"]
}, Open  ]],
Cell[400842, 9775, 1663, 44, 80, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[402542, 9824, 477, 8, 77, "Subsubsection"],
Cell[CellGroupData[{
Cell[403044, 9836, 6828, 149, 608, "Input"],
Cell[409875, 9987, 150, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[410062, 9995, 574, 16, 28, "Input"],
Cell[410639, 10013, 8500, 244, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[419176, 10262, 408, 9, 28, "Input"],
Cell[419587, 10273, 147, 2, 28, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[419783, 10281, 303, 6, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[420111, 10291, 7452, 161, 659, "Input"],
Cell[427566, 10454, 197, 4, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[427800, 10463, 574, 16, 28, "Input"],
Cell[428377, 10481, 8500, 244, 235, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[436914, 10730, 408, 9, 28, "Input"],
Cell[437325, 10741, 147, 2, 28, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[437521, 10749, 150, 2, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[437696, 10755, 9369, 216, 761, "Input"],
Cell[447068, 10973, 6525, 188, 231, "Print"],
Cell[453596, 11163, 97, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[453730, 11169, 9476, 218, 778, "Input"],
Cell[463209, 11389, 7755, 225, 231, "Print"],
Cell[470967, 11616, 74, 1, 28, "Output"]
}, Open  ]],
Cell[471056, 11620, 302, 6, 49, "Text"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[471407, 11632, 119, 1, 36, "Subsection"],
Cell[CellGroupData[{
Cell[471551, 11637, 138, 1, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[471714, 11642, 4911, 116, 455, "Input"],
Cell[476628, 11760, 3105, 69, 199, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[479770, 11834, 120, 2, 28, "Input"],
Cell[479893, 11838, 95, 1, 28, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[480037, 11845, 126, 1, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[480188, 11850, 5124, 122, 506, "Input"],
Cell[485315, 11974, 3256, 74, 216, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[488608, 12053, 120, 2, 28, "Input"],
Cell[488731, 12057, 71, 1, 28, "Output"]
}, Open  ]],
Cell[488817, 12061, 125, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[488967, 12066, 287, 8, 46, "Input"],
Cell[489257, 12076, 2688, 57, 138, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[491994, 12139, 113, 1, 29, "Subsubsection"],
Cell[492110, 12142, 4668, 112, 455, "Input"],
Cell[CellGroupData[{
Cell[496803, 12258, 141, 2, 28, "Input"],
Cell[496947, 12262, 73, 1, 28, "Output"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[497069, 12269, 129, 1, 29, "Subsubsection"],
Cell[CellGroupData[{
Cell[497223, 12274, 184, 3, 28, "Input"],
Cell[497410, 12279, 890, 21, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[498337, 12305, 331, 9, 46, "Input"],
Cell[498671, 12316, 2688, 57, 138, "Output"]
}, Open  ]],
Cell[501374, 12376, 133, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[501532, 12381, 186, 3, 28, "Input"],
Cell[501721, 12386, 1935, 46, 131, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[503693, 12437, 327, 9, 28, "Input"],
Cell[504023, 12448, 3431, 69, 230, "Output"]
}, Open  ]],
Cell[507469, 12520, 135, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[507629, 12525, 404, 10, 28, "Input"],
Cell[508036, 12537, 3647, 72, 252, "Output"]
}, Open  ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[511744, 12616, 267, 5, 61, "Subsection"],
Cell[CellGroupData[{
Cell[512036, 12625, 1093, 32, 97, "Input"],
Cell[513132, 12659, 1604, 40, 99, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[514773, 12704, 311, 6, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[515109, 12714, 4613, 109, 406, "Input"],
Cell[519725, 12825, 71, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[519833, 12831, 5910, 135, 508, "Input"],
Cell[525746, 12968, 126, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[525909, 12976, 136, 2, 28, "Input"],
Cell[526048, 12980, 10942, 143, 454, "Output"]
}, Closed]],
Cell[CellGroupData[{
Cell[537027, 13128, 639, 18, 22, "Input"],
Cell[537669, 13148, 13413, 387, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[551119, 13540, 421, 10, 46, "Input"],
Cell[551543, 13552, 174, 2, 28, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[551766, 13560, 391, 7, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[552182, 13571, 6270, 142, 542, "Input"],
Cell[558455, 13715, 198, 4, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[558690, 13724, 49, 0, 28, "Input"],
Cell[558742, 13726, 73, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[558852, 13732, 731, 18, 46, "Input"],
Cell[559586, 13752, 9048, 261, 249, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[568671, 14018, 465, 10, 46, "Input"],
Cell[569139, 14030, 202, 3, 28, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[569390, 14039, 424, 6, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[569839, 14049, 7205, 161, 610, "Input"],
Cell[577047, 14212, 298, 6, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[577382, 14223, 49, 0, 28, "Input"],
Cell[577434, 14225, 120, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[577591, 14232, 731, 18, 46, "Input"],
Cell[578325, 14252, 12860, 370, 245, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[591222, 14627, 465, 10, 46, "Input"],
Cell[591690, 14639, 244, 3, 28, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[591983, 14648, 422, 7, 35, "Subsubsection"],
Cell[CellGroupData[{
Cell[592430, 14659, 7163, 160, 593, "Input"],
Cell[599596, 14821, 248, 5, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[599881, 14831, 49, 0, 28, "Input"],
Cell[599933, 14833, 95, 1, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[600065, 14839, 731, 18, 46, "Input"],
Cell[600799, 14859, 2611, 54, 242, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[603447, 14918, 465, 10, 46, "Input"],
Cell[603915, 14930, 224, 3, 28, "Output"]
}, Open  ]]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[604200, 14940, 121, 1, 36, "Subsection"],
Cell[604324, 14943, 101, 1, 30, "Text"],
Cell[604428, 14946, 1612, 40, 99, "Output"],
Cell[606043, 14988, 100, 1, 30, "Text"],
Cell[606146, 14991, 1604, 40, 99, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)