(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 226027, 5274] NotebookOptionsPosition[ 217325, 5083] NotebookOutlinePosition[ 217679, 5099] CellTagsIndexPosition[ 217636, 5096] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ StyleBox["See: A. M. Petersen, E. M. Vincent, A. L. Westerling \n", "Subsection"], StyleBox["Discrepancy in scientific authority and media visibility of \ climate change scientists and contrarians ", "Subsection", FontSlant->"Italic"], StyleBox[" \nNature Communications (2019). DOI:10.1038/s41467-019-09959-4\n", "Subsection"], StyleBox["Script for producing individual figures comprising ", FontWeight->"Bold"], "Fig. 5 : ", StyleBox["\[OpenCurlyDoubleQuote]How climate change contrarians (CCCw) and \ climate change scientists (CCSs) are sourced in CC articles - by media \ source.\[CloseCurlyDoubleQuote] ", FontSlant->"Italic"] }], "Text", CellChangeTimes->{ 3.74673937495341*^9, {3.765128055942144*^9, 3.765128092494294*^9}, { 3.765128332594054*^9, 3.765128438222024*^9}, 3.765132136326138*^9, { 3.765132843439495*^9, 3.765132844252933*^9}, {3.765132988292057*^9, 3.765132993822706*^9}},ExpressionUUID->"b6582d5f-4862-4873-b8ee-\ 7c1863e7ba16"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Import", " ", "data", " ", "file", " ", "with", " ", "article", " ", "annotations"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Din", "=", RowBox[{"Import", "[", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], ",", "\"\\""}], "]"}], ",", "\"\\""}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"DHeader", "=", RowBox[{"Din", "[", RowBox[{"[", "1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"MediaSourcesX", "=", RowBox[{"Union", "[", RowBox[{"Delete", "[", RowBox[{ RowBox[{"Din", "[", RowBox[{"[", RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", "1"}], "]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.73981989184307*^9, 3.739819954854376*^9}, { 3.73982004438557*^9, 3.739820073203964*^9}, {3.739820153294524*^9, 3.7398201551195908`*^9}, {3.7402314233497267`*^9, 3.740231423735634*^9}, { 3.740787797025804*^9, 3.7407878005980177`*^9}, {3.7423431486791267`*^9, 3.7423431498163223`*^9}, {3.7424152584091063`*^9, 3.742415259132647*^9}, { 3.742567427013688*^9, 3.742567427182892*^9}, {3.742567681158269*^9, 3.742567681993677*^9}, 3.746738197281357*^9, {3.746739354694334*^9, 3.746739402553512*^9}, {3.746739438064846*^9, 3.7467394392277517`*^9}, { 3.746740244455151*^9, 3.746740313736154*^9}, {3.746740367832203*^9, 3.746740373357235*^9}, {3.7467404153184834`*^9, 3.746740446428473*^9}, { 3.746740489432351*^9, 3.746740490435425*^9}, {3.746744191261733*^9, 3.746744195253064*^9}, 3.746744420066038*^9, 3.7474232922232723`*^9, { 3.765128116288641*^9, 3.765128133476308*^9}, {3.7651282669274693`*^9, 3.765128282519199*^9}, {3.765128475737317*^9, 3.7651285853173122`*^9}, { 3.7651287322206087`*^9, 3.7651287471400003`*^9}},ExpressionUUID->"7114c3a7-4ba2-411a-a364-\ 0dc418eadd65"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"MediaSource\"\>", ",", "\<\"MSID\"\>", ",", "\<\"Y\"\>", ",", "\<\"Title\"\>", ",", "\<\"MCID\"\>", ",", "\<\"ArticleGroup\"\>", ",", "\<\"nCC\"\>", ",", "\<\"CClist\"\>", ",", "\<\"PubDate\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.765128513943084*^9, 3.765128566449135*^9}, 3.765128690861785*^9, {3.765129159502318*^9, 3.765129174444551*^9}, 3.7651321457464113`*^9, 3.765132644460266*^9, 3.765132895855987*^9},ExpressionUUID->"b6a5bb0d-47d2-4c90-93a3-\ a69ca54c02c1"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"FOXNews\"\>", ",", "\<\"Guardian\"\>", ",", "\<\"LAT\"\>", ",", "\<\"NYT\"\>", ",", "\<\"WP\"\>", ",", "\<\"WSJ\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.765128513943084*^9, 3.765128566449135*^9}, 3.765128690861785*^9, {3.765129159502318*^9, 3.765129174444551*^9}, 3.7651321457464113`*^9, 3.765132644460266*^9, 3.765132895868573*^9},ExpressionUUID->"4a24d9b1-f29e-478e-9a52-\ 7cd479a060fb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Specify", " ", "a", " ", "media", " ", "source", " ", "to", " ", "analyze"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"TypeX", "=", "\"\\""}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], " ", "or", " ", "ALL"}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"TypeX", "\[Equal]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DIndividualAnnotated", "=", RowBox[{"Delete", "[", RowBox[{"Din", ",", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"DIndividualAnnotated", "=", RowBox[{"Select", "[", RowBox[{"Din", ",", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "TypeX"}], "&"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "DIndividualAnnotated", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"MCIDListALL", "=", RowBox[{ RowBox[{ RowBox[{"Reap", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "DIndividualAnnotated", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Sow", "[", RowBox[{ RowBox[{"DIndividualAnnotated", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "5", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", RowBox[{"Tally", "[", "MCIDListALL", "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.73981989184307*^9, 3.739819954854376*^9}, { 3.73982004438557*^9, 3.739820073203964*^9}, {3.739820153294524*^9, 3.7398201551195908`*^9}, {3.7402314233497267`*^9, 3.740231423735634*^9}, { 3.740787797025804*^9, 3.7407878005980177`*^9}, {3.7423431486791267`*^9, 3.7423431498163223`*^9}, {3.7424152584091063`*^9, 3.742415259132647*^9}, { 3.742567427013688*^9, 3.742567427182892*^9}, {3.742567681158269*^9, 3.742567681993677*^9}, 3.746738197281357*^9, {3.746739354694334*^9, 3.746739402553512*^9}, {3.746739438064846*^9, 3.7467394392277517`*^9}, { 3.746740244455151*^9, 3.746740313736154*^9}, {3.746740367832203*^9, 3.746740373357235*^9}, {3.7467404153184834`*^9, 3.746740446428473*^9}, { 3.746740489432351*^9, 3.746740490435425*^9}, {3.746744191261733*^9, 3.746744195253064*^9}, 3.746744420066038*^9, 3.7474232922232723`*^9, { 3.765128116288641*^9, 3.765128133476308*^9}, {3.7651282669274693`*^9, 3.765128282519199*^9}, {3.765128475737317*^9, 3.765128497168386*^9}, { 3.7651285894460907`*^9, 3.765128611068177*^9}, {3.765128752302615*^9, 3.765128765885104*^9}, {3.765128817311686*^9, 3.7651288367444277`*^9}, 3.7651288731065073`*^9, {3.7651291622649183`*^9, 3.7651291868978863`*^9}, { 3.7651293102472486`*^9, 3.765129327088071*^9}, {3.765132163654216*^9, 3.7651321822875223`*^9}, {3.765132678902727*^9, 3.765132740232586*^9}},ExpressionUUID->"9eb11e33-d7fd-4dcb-9f9a-\ a54b9692651c"], Cell[BoxData["\<\"ALL\"\>"], "Output", CellChangeTimes->{ 3.7651282898940973`*^9, 3.765128477439126*^9, 3.7651286125701017`*^9, { 3.7651288193654413`*^9, 3.7651288376064167`*^9}, 3.765128873571727*^9, { 3.765129165972794*^9, 3.765129188971531*^9}, {3.7651293226469717`*^9, 3.765129327349058*^9}, {3.765132171330873*^9, 3.765132182784123*^9}, 3.765132646442346*^9, {3.7651327164629307`*^9, 3.765132740731894*^9}, 3.765132899770728*^9},ExpressionUUID->"7ec8258f-7e7c-4408-b03f-\ 6c1705c30222"], Cell[BoxData["2256"], "Output", CellChangeTimes->{ 3.7651282898940973`*^9, 3.765128477439126*^9, 3.7651286125701017`*^9, { 3.7651288193654413`*^9, 3.7651288376064167`*^9}, 3.765128873571727*^9, { 3.765129165972794*^9, 3.765129188971531*^9}, {3.7651293226469717`*^9, 3.765129327349058*^9}, {3.765132171330873*^9, 3.765132182784123*^9}, 3.765132646442346*^9, {3.7651327164629307`*^9, 3.765132740731894*^9}, 3.7651328997841463`*^9},ExpressionUUID->"8a7f8a82-781b-4a05-a8d0-\ 9a33415e4247"], Cell[BoxData["\<\"Number of Unique MCIDs\"\>"], "Print", CellChangeTimes->{ 3.7651282899573593`*^9, 3.765128477450631*^9, 3.765128612576859*^9, { 3.7651288193723497`*^9, 3.765128837614829*^9}, 3.7651288735799103`*^9, { 3.765129165981336*^9, 3.7651291889801197`*^9}, {3.7651293226766768`*^9, 3.765129327357544*^9}, {3.765132171347269*^9, 3.7651321827999973`*^9}, 3.765132646457704*^9, {3.765132716479281*^9, 3.765132740748082*^9}, 3.765132899793303*^9},ExpressionUUID->"da55ff56-2ae6-4e21-a4c6-\ bfd2c067899d"], Cell[BoxData["2256"], "Output", CellChangeTimes->{ 3.7651282898940973`*^9, 3.765128477439126*^9, 3.7651286125701017`*^9, { 3.7651288193654413`*^9, 3.7651288376064167`*^9}, 3.765128873571727*^9, { 3.765129165972794*^9, 3.765129188971531*^9}, {3.7651293226469717`*^9, 3.765129327349058*^9}, {3.765132171330873*^9, 3.765132182784123*^9}, 3.765132646442346*^9, {3.7651327164629307`*^9, 3.765132740731894*^9}, 3.765132899801779*^9},ExpressionUUID->"b04ba7e0-2fa0-4d78-8092-\ 34956b2065b9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Parse", " ", RowBox[{"individuals", "'"}], " ", "annotation", " ", "data"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"IndividualAnnotatedALLFIN", "=", RowBox[{"Table", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"DIndividualAnnotated", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "4", "]"}], "]"}], ",", RowBox[{ RowBox[{"DIndividualAnnotated", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "5", "]"}], "]"}], ",", RowBox[{ RowBox[{"DIndividualAnnotated", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "6", "]"}], "]"}], ",", RowBox[{ RowBox[{"DIndividualAnnotated", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "7", "]"}], "]"}], ",", RowBox[{"StringSplit", "[", RowBox[{ RowBox[{"StringSplit", "[", RowBox[{ RowBox[{"StringReplace", "[", RowBox[{ RowBox[{ RowBox[{"DIndividualAnnotated", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "8", "]"}], "]"}], ",", RowBox[{"\"\<_\>\"", "\[Rule]", "\"\< \>\""}]}], "]"}], ",", "\"\<;\>\""}], "]"}], ",", "\"\<-\>\""}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "DIndividualAnnotated", "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"IndividualAnnotatedALLFIN", "[", RowBox[{"[", "1", "]"}], "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "IndividualAnnotatedALLFIN", "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"AnnotationsALL", "=", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Reap", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", " ", RowBox[{"Length", "[", "IndividualAnnotatedALLFIN", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Indi", "=", RowBox[{ RowBox[{"IndividualAnnotatedALLFIN", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "5", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", " ", RowBox[{"Length", "[", "Indi", "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Indi", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "\[Equal]", "3"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Sow", "[", RowBox[{"StringTrim", "[", RowBox[{ RowBox[{"Indi", "[", RowBox[{"[", "j", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "]"}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"TallyAnnotationsALL", "=", RowBox[{"Sort", "[", RowBox[{ RowBox[{"Tally", "[", "AnnotationsALL", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ">", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"TotalAnnotatedIndivuals", "=", RowBox[{"Total", "[", RowBox[{ RowBox[{"Transpose", "[", "TallyAnnotationsALL", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"TallyAnnotationsALLPctALL", "=", RowBox[{"TallyAnnotationsALL", "/", RowBox[{"Array", "[", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"N", "[", "TotalAnnotatedIndivuals", "]"}]}], "}"}], "&"}], ",", RowBox[{"Length", "[", "TallyAnnotationsALL", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Transpose", "[", "TallyAnnotationsALLPctALL", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7651291960010977`*^9, 3.765129196472316*^9}, { 3.7651293374953012`*^9, 3.765129338822513*^9}, {3.765129500559259*^9, 3.765129599771657*^9}, {3.765129853719528*^9, 3.765129958018969*^9}, { 3.765130006750391*^9, 3.765130021998135*^9}, 3.765130910478717*^9, { 3.765130965176902*^9, 3.765130965841257*^9}, {3.765132614556633*^9, 3.765132639132465*^9}},ExpressionUUID->"36be8f48-b3cc-4cfd-8412-\ c2b305459165"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Scientist who urged government to sue climate skeptics gets \ millions from taxpayers\"\>", ",", "385336806", ",", "\<\"C\"\>", ",", "2", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"alex epstein\"\>", ",", "\<\"C\"\>", ",", "\<\"q\"\>"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"roger pielke jr\"\>", ",", "\<\"C\"\>", ",", "\<\"q\"\>"}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7651300230715714`*^9, 3.765130912142598*^9, 3.765130966626196*^9, 3.765132185947197*^9, 3.765132650441601*^9, 3.76513274419563*^9, 3.765132901935397*^9},ExpressionUUID->"c92261e8-f5ed-43a1-b11e-\ c12f6f4c7255"], Cell[BoxData["2256"], "Output", CellChangeTimes->{3.7651300230715714`*^9, 3.765130912142598*^9, 3.765130966626196*^9, 3.765132185947197*^9, 3.765132650441601*^9, 3.76513274419563*^9, 3.765132901947782*^9},ExpressionUUID->"2176830a-7ca5-4a52-b1ff-\ 515988b20f8f"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"m\"\>", ",", "1497"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"q\"\>", ",", "752"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"s\"\>", ",", "519"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"d\"\>", ",", "84"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"p\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"v\"\>", ",", "10"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7651300230715714`*^9, 3.765130912142598*^9, 3.765130966626196*^9, 3.765132185947197*^9, 3.765132650441601*^9, 3.76513274419563*^9, 3.7651329020355253`*^9},ExpressionUUID->"65cfabdc-56bf-4f0f-8f01-\ 631fa0bbefa5"], Cell[BoxData["2931"], "Output", CellChangeTimes->{3.7651300230715714`*^9, 3.765130912142598*^9, 3.765130966626196*^9, 3.765132185947197*^9, 3.765132650441601*^9, 3.76513274419563*^9, 3.765132902046933*^9},ExpressionUUID->"82e21364-eeee-446e-b752-\ aaf99c50202b"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"m\"\>", ",", "0.5107471852610032`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"q\"\>", ",", "0.2565677243261686`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"s\"\>", ",", "0.17707267144319347`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"d\"\>", ",", "0.02865916069600819`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "0.018082565677243263`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"p\"\>", ",", "0.005458887751620608`"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"v\"\>", ",", "0.00341180484476288`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.7651300230715714`*^9, 3.765130912142598*^9, 3.765130966626196*^9, 3.765132185947197*^9, 3.765132650441601*^9, 3.76513274419563*^9, 3.765132902059072*^9},ExpressionUUID->"e85173ff-3085-4f5a-9970-\ fc3a02f4045d"], Cell[BoxData["1.0000000000000002`"], "Output", CellChangeTimes->{3.7651300230715714`*^9, 3.765130912142598*^9, 3.765130966626196*^9, 3.765132185947197*^9, 3.765132650441601*^9, 3.76513274419563*^9, 3.765132902070286*^9},ExpressionUUID->"5d4c22df-8019-4ace-abd6-\ 0144b0bcf4fa"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Frequency", " ", "of", " ", "annotation", " ", "per", " ", "individual"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"XLabel0", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "LabelMap", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "XLabel0", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{ RowBox[{"LabelMap", "[", RowBox[{ RowBox[{"XLabel0", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"XLabel0", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"LabelMap", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"XLabel", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Rotate", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ RowBox[{"LabelMap", "[", RowBox[{ RowBox[{"TallyAnnotationsALLPctALL", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", RowBox[{"FontSize", "\[Rule]", " ", "15"}], ",", "Black"}], "]"}], ",", RowBox[{ RowBox[{"-", "65"}], " ", "Degree"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "TallyAnnotationsALLPctALL", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"BarChart", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "TallyAnnotationsALLPctALL", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"ChartLabels", "\[Rule]", RowBox[{"{", RowBox[{"None", ",", "XLabel"}], "}"}]}], ",", RowBox[{"LabelStyle", " ", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"FontSize", "\[Rule]", "30"}], ",", RowBox[{"FontFamily", "\[Rule]", " ", "\"\\""}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "Automatic"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "0.5"}], ",", RowBox[{"BarSpacing", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", ".2"}], "}"}]}], ",", RowBox[{"ColorFunction", "\[Rule]", RowBox[{"Function", "[", RowBox[{ RowBox[{"{", "height", "}"}], ",", RowBox[{"Opacity", "[", "height", "]"}]}], "]"}]}], ",", RowBox[{"ChartStyle", "\[Rule]", "Red"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.739897837968685*^9, 3.7398978809152517`*^9}, 3.739898050182343*^9, {3.739898365843876*^9, 3.739898368888068*^9}, { 3.739898406649523*^9, 3.739898507178122*^9}, {3.739898554514741*^9, 3.739898609223989*^9}, {3.7398986829743347`*^9, 3.739898685016984*^9}, { 3.7398987175453176`*^9, 3.73989876870426*^9}, {3.739898820644301*^9, 3.739898831293488*^9}, {3.7398988624614153`*^9, 3.7398988626997633`*^9}, { 3.739898899864008*^9, 3.739898912913082*^9}, {3.7398990396163197`*^9, 3.73989908679556*^9}, {3.7399108664346724`*^9, 3.739910966764966*^9}, { 3.739911085064431*^9, 3.7399111996949377`*^9}, {3.7399112388350563`*^9, 3.739911278125304*^9}, {3.73991138982338*^9, 3.7399114303434143`*^9}, { 3.739912610551628*^9, 3.739912648617728*^9}, 3.740766697146306*^9, { 3.76513097989818*^9, 3.765130980727867*^9}, 3.765132191481056*^9},ExpressionUUID->"ec415b3b-78c1-4101-aea1-\ 94b5ee5b181b"], Cell[BoxData["\<\"Mentioned\"\>"], "Output", CellChangeTimes->{3.76513055584046*^9, 3.765130981144719*^9, 3.765132192064745*^9, 3.76513275078047*^9, 3.765132904800153*^9},ExpressionUUID->"ec0fc325-1384-4330-911d-\ 082694613f68"], Cell[BoxData[ RowBox[{"{", RowBox[{ RotationBox[ StyleBox["\<\"Mentioned\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], ",", RotationBox[ StyleBox["\<\"Quoted-NonSci.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], ",", RotationBox[ StyleBox["\<\"Quoted-Sci.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], ",", RotationBox[ StyleBox["\<\"Quoted-Advers.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], ",", RotationBox[ StyleBox["\<\"Authored\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], ",", RotationBox[ StyleBox["\<\"Interv.-Sci.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], ",", RotationBox[ StyleBox["\<\"Interv.-Advers.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`]}], "}"}]], "Output", CellChangeTimes->{3.76513055584046*^9, 3.765130981144719*^9, 3.765132192064745*^9, 3.76513275078047*^9, 3.76513290481038*^9},ExpressionUUID->"67d236db-9564-438c-acc7-66fe470ef614"], Cell[BoxData[ GraphicsBox[{{ {Opacity[0], PointBox[{{0.36, 0.}, {7.5, 0.}}]}}, {{}, { {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[0.651], Thickness[Small]}], { {RGBColor[1, 0, 0], Opacity[1.], EdgeForm[{Opacity[0.651], Thickness[ Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5, 0.}, {1.5, 0.5107471852610032}, "RoundingRadius" -> 0]}, ImageSizeCache->{{53.29930207377069, 114.86574545784701`}, {-159.1683673469388, 56.75}}], StatusArea[#, 0.5107471852610032]& , TagBoxNote->"0.5107471852610032"], StyleBox["0.5107471852610032`", { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.5107471852610032, { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], Opacity[0.4989912575655683], EdgeForm[{Opacity[ 0.651], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5, 0.}, {2.5, 0.2565677243261686}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.36574545784701`, 175.93218884192333`}, {-51.96283383092716, 56.75000000000001}}], StatusArea[#, 0.2565677243261686]& , TagBoxNote->"0.2565677243261686"], StyleBox["0.2565677243261686`", { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.2565677243261686, { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], Opacity[0.34229993275050435`], EdgeForm[{Opacity[ 0.651], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2.5, 0.}, {3.5, 0.17707267144319347`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{175.43218884192333`, 236.99863222599967`}, {-18.43412334873829, 56.75000000000001}}], StatusArea[#, 0.17707267144319347`]& , TagBoxNote->"0.17707267144319347"], StyleBox["0.17707267144319347`", { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.17707267144319347`, { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], Opacity[0.049764626765299254`], EdgeForm[{Opacity[ 0.651], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.5, 0.}, {4.5, 0.02865916069600819}, "RoundingRadius" -> 0]}, ImageSizeCache->{{236.49863222599967`, 298.065075610076}, { 44.162396221013466`, 56.75000000000001}}], StatusArea[#, 0.02865916069600819]& , TagBoxNote->"0.02865916069600819"], StyleBox["0.02865916069600819`", { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.02865916069600819, { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], Opacity[0.028917283120376593`], EdgeForm[{Opacity[ 0.651], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.5, 0.}, {5.5, 0.018082565677243263`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{297.565075610076, 359.1315189941523}, { 48.62329761563945, 56.75000000000001}}], StatusArea[#, 0.018082565677243263`]& , TagBoxNote->"0.018082565677243263"], StyleBox["0.018082565677243263`", { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.018082565677243263`, { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], Opacity[0.004034969737726966], EdgeForm[{Opacity[ 0.651], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.5, 0.}, {6.5, 0.005458887751620608}, "RoundingRadius" -> 0]}, ImageSizeCache->{{358.6315189941523, 420.1979623782286}, { 53.947599280193046`, 56.75000000000001}}], StatusArea[#, 0.005458887751620608]& , TagBoxNote->"0.005458887751620608"], StyleBox["0.005458887751620608`", { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.005458887751620608, { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {Opacity[0.], EdgeForm[{Opacity[0.651], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.5, 0.}, {7.5, 0.00341180484476288}, "RoundingRadius" -> 0]}, ImageSizeCache->{{419.6979623782286, 481.26440576230493`}, { 54.810999550120655`, 56.75000000000001}}], StatusArea[#, 0.00341180484476288]& , TagBoxNote->"0.00341180484476288"], StyleBox["0.00341180484476288`", { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.00341180484476288, { Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}}}, {}, {}}, {}, {}, {}, {}, { StyleBox[{ StyleBox[{{ {Thickness[Tiny], {LineBox[{{0.36, 0.}, {7.6428, 0.}}]}, StyleBox[{}, "GraphicsLabel", StripOnInput->False]}}, StyleBox[{{ {Thickness[Tiny], LineBox[{{0.5, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {0.5, 0.}]}], LineBox[{{7.5, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {7.5, 0.}]}], {{}, {}, {}, {}, {}, {}, {}, { LineBox[{{1.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {1.5, 0.}]}], LineBox[{{1.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {1.5, 0.}]}], LineBox[{{2.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {2.5, 0.}]}], LineBox[{{2.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {2.5, 0.}]}], LineBox[{{3.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {3.5, 0.}]}], LineBox[{{3.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {3.5, 0.}]}], LineBox[{{4.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {4.5, 0.}]}], LineBox[{{4.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {4.5, 0.}]}], LineBox[{{5.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {5.5, 0.}]}], LineBox[{{5.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {5.5, 0.}]}], LineBox[{{6.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {6.5, 0.}]}], LineBox[{{6.5, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {6.5, 0.}]}]}, {}}}}, StyleBox[{ {Thickness[Tiny], { {GrayLevel[0], StyleBox[{}, FontFamily->"Helvetica", FontSize->30]}}, {InsetBox[ RotationBox[ StyleBox["\<\"Mentioned\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], Offset[{0., -2.}, {1., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox[ RotationBox[ StyleBox["\<\"Quoted-NonSci.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], Offset[{0., -2.}, {2., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox[ RotationBox[ StyleBox["\<\"Quoted-Sci.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], Offset[{0., -2.}, {3., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox[ RotationBox[ StyleBox["\<\"Quoted-Advers.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], Offset[{0., -2.}, {4., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox[ RotationBox[ StyleBox["\<\"Authored\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], Offset[{0., -2.}, {5., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox[ RotationBox[ StyleBox["\<\"Interv.-Sci.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], Offset[{0., -2.}, {6., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox[ RotationBox[ StyleBox["\<\"Interv.-Advers.\"\>", StripOnInput->False, LineColor->GrayLevel[0], FrontFaceColor->GrayLevel[0], BackFaceColor->GrayLevel[0], GraphicsColor->GrayLevel[0], FontSize->15, FontColor->GrayLevel[0]], BoxRotation->-1.1344640137963142`], Offset[{0., -2.}, {7., 0.}], {0, 1}, Automatic, {1, 0}]}}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False]}, "GraphicsAxes", StripOnInput->False]}}, AspectRatio->0.5, Axes->{False, True}, AxesLabel->{None, None}, AxesOrigin->{0.36, 0.}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 1., FormBox[ RotationBox[ StyleBox["\"Mentioned\"", FontSize -> 15, GrayLevel[0], StripOnInput -> False], BoxRotation -> -1.1344640137963142`], TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox[ RotationBox[ StyleBox["\"Quoted-NonSci.\"", FontSize -> 15, GrayLevel[0], StripOnInput -> False], BoxRotation -> -1.1344640137963142`], TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 3., FormBox[ RotationBox[ StyleBox["\"Quoted-Sci.\"", FontSize -> 15, GrayLevel[0], StripOnInput -> False], BoxRotation -> -1.1344640137963142`], TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 4., FormBox[ RotationBox[ StyleBox["\"Quoted-Advers.\"", FontSize -> 15, GrayLevel[0], StripOnInput -> False], BoxRotation -> -1.1344640137963142`], TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 5., FormBox[ RotationBox[ StyleBox["\"Authored\"", FontSize -> 15, GrayLevel[0], StripOnInput -> False], BoxRotation -> -1.1344640137963142`], TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 6., FormBox[ RotationBox[ StyleBox["\"Interv.-Sci.\"", FontSize -> 15, GrayLevel[0], StripOnInput -> False], BoxRotation -> -1.1344640137963142`], TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 7., FormBox[ RotationBox[ StyleBox["\"Interv.-Advers.\"", FontSize -> 15, GrayLevel[0], StripOnInput -> False], BoxRotation -> -1.1344640137963142`], TraditionalForm], 0}}, {{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{500, Automatic}, LabelStyle->Directive[ GrayLevel[0], FontSize -> 30, FontFamily -> "Helvetica"], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{None, Automatic}]], "Output", CellChangeTimes->{3.76513055584046*^9, 3.765130981144719*^9, 3.765132192064745*^9, 3.76513275078047*^9, 3.765132905000445*^9},ExpressionUUID->"31347f7f-77b6-41cf-b221-\ 7a2412df78e2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Classify", " ", "articles", " ", "according", " ", "to", " ", RowBox[{"CCC", "/", "CCS"}]}], "-", RowBox[{ RowBox[{"Ment", "/", "Contr"}], " ", "configuration"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"ClassificationListCCC", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ClassificationListCCS", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"XClassified", "=", "0"}], ";", " ", RowBox[{"CCSOnly", "=", "0"}], ";", " ", RowBox[{"CCCOnly", "=", "0"}], ";", " ", RowBox[{"NoCC", "=", "0"}], ";"}], RowBox[{"(*", " ", RowBox[{ "Number", " ", "of", " ", "articles", " ", "featuring", " ", "both", " ", "CCC", " ", "and", " ", "CCS"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CCCMQCCSMQALL", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CCCMQALL", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"CCSMQALL", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", " ", RowBox[{"Length", "[", "IndividualAnnotatedALLFIN", "]"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"(*", " ", RowBox[{"Length", "[", "IndividualAnnotatedALLFIN", "]"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Dline", "=", RowBox[{"IndividualAnnotatedALLFIN", "[", RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Indi", "=", RowBox[{ RowBox[{"IndividualAnnotatedALLFIN", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "5", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CCSi", "=", "0"}], ";", RowBox[{"CCCi", "=", "0"}], ";", " ", RowBox[{"CCCMQCCSMQi", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", " ", RowBox[{"Length", "[", "Indi", "]"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Indi", "[", RowBox[{"[", "j", "]"}], "]"}], "]"}], "\[Equal]", "3"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Indj", "=", RowBox[{ RowBox[{"Indi", "[", RowBox[{"[", "j", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"CCj", "=", RowBox[{ RowBox[{"Indi", "[", RowBox[{"[", "j", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"CCj", "\[Equal]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"annotationj", "=", RowBox[{"StringTrim", "[", RowBox[{ RowBox[{"Indi", "[", RowBox[{"[", "j", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"annotationj", "\[Equal]", "\"\<0\>\""}], ",", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"0", ",", "i", ",", "Dline"}], "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"annotationj", "\[NotEqual]", "\"\<0\>\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ClassificationListCCC", "=", RowBox[{"Append", "[", RowBox[{"ClassificationListCCC", ",", "annotationj"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"CCCi", "++"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"annotationj", "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}]}], ";"}]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "annotationj"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "+", "1"}]}], ";"}]}], " ", "]"}], ";"}]}], " ", RowBox[{"(*", " ", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], " ", "*)"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"CCj", "\[Equal]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"annotationj", "=", RowBox[{"StringTrim", "[", RowBox[{ RowBox[{"Indi", "[", RowBox[{"[", "j", "]"}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"annotationj", "\[Equal]", "\"\<0\>\""}], ",", RowBox[{"Print", "[", RowBox[{"{", RowBox[{"\"\<0\>\"", ",", "i", ",", "Dline"}], "}"}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"annotationj", "\[NotEqual]", "\"\<0\>\""}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"ClassificationListCCS", "=", RowBox[{"Append", "[", RowBox[{"ClassificationListCCS", ",", "annotationj"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"CCSi", "++"}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"annotationj", "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "+", "1"}]}], ";"}]}], " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}], ",", "annotationj"}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "+", "1"}]}], ";"}]}], " ", "]"}], ";"}]}], " ", RowBox[{"(*", " ", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], " ", "*)"}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"CCSi", ">", "0"}], ")"}], "&&", RowBox[{"(", RowBox[{"CCCi", ">", "0"}], ")"}]}], ",", RowBox[{ RowBox[{"XClassified", "++"}], ";", RowBox[{"CCCMQCCSMQALL", "=", RowBox[{"Append", "[", RowBox[{"CCCMQCCSMQALL", ",", RowBox[{"Map", "[", RowBox[{"RealSign", ",", " ", "CCCMQCCSMQi"}], "]"}]}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"CCSi", "\[Equal]", " ", "0"}], ")"}], "&&", RowBox[{"(", RowBox[{"CCCi", ">", "0"}], ")"}]}], ",", RowBox[{ RowBox[{"CCCOnly", "++"}], ";", RowBox[{"CCCMQALL", "=", RowBox[{"Append", "[", RowBox[{"CCCMQALL", ",", RowBox[{"Map", "[", RowBox[{"RealSign", ",", RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"CCSi", ">", "0"}], ")"}], "&&", RowBox[{"(", RowBox[{"CCCi", "\[Equal]", "0"}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"CCSOnly", "++"}], ";", "\[IndentingNewLine]", " ", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Total", "[", RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{ RowBox[{"Print", "[", RowBox[{"{", RowBox[{"i", ",", "Dline"}], "}"}], "]"}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"CCSMQALL", "=", RowBox[{"Append", "[", RowBox[{"CCSMQALL", ",", RowBox[{"Map", "[", RowBox[{"RealSign", ",", " ", RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", " ", "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"CCSi", "\[Equal]", " ", "0"}], ")"}], "&&", RowBox[{"(", RowBox[{"CCCi", "\[Equal]", " ", "0"}], ")"}]}], ",", " ", RowBox[{ RowBox[{"NoCC", "++"}], ";"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"NAnnotatedCCC", "=", RowBox[{"Length", "[", "ClassificationListCCC", "]"}]}], "\[IndentingNewLine]", RowBox[{"NAnnotatedCCS", "=", RowBox[{"Length", "[", "ClassificationListCCS", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"NAnnotatedJustCCS", "=", RowBox[{"Length", "[", " ", "CCSMQALL", "]"}]}], "\[IndentingNewLine]", RowBox[{"NAnnotatedJustCCC", "=", RowBox[{"Length", "[", " ", "CCCMQALL", "]"}]}], "\[IndentingNewLine]", RowBox[{"NAnnotatedBoth", "=", RowBox[{"Length", "[", "CCCMQCCSMQALL", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{ "NAnnotatedJustCCS", "+", "NAnnotatedJustCCC", "+", "NAnnotatedBoth"}], ")"}], "/", " ", RowBox[{"Length", "[", "IndividualAnnotatedALLFIN", "]"}]}]}]}]], "Input",\ CellChangeTimes->{{3.739917336548317*^9, 3.739917370769773*^9}, { 3.739917408784566*^9, 3.73991762334937*^9}, {3.739917735040955*^9, 3.739917735268476*^9}, {3.739918642329352*^9, 3.7399186708139887`*^9}, { 3.739919623223606*^9, 3.73991971145257*^9}, {3.739919783112363*^9, 3.739919804422811*^9}, {3.739921140303547*^9, 3.739921176773006*^9}, { 3.740776423092058*^9, 3.7407766029033203`*^9}, {3.740776976676527*^9, 3.740777003347083*^9}, {3.7407771820479727`*^9, 3.740777305824898*^9}, { 3.74078058497486*^9, 3.7407807770560627`*^9}, {3.740784281483247*^9, 3.740784284785746*^9}, {3.740785039646051*^9, 3.740785039864715*^9}, { 3.740786320176256*^9, 3.7407863769037313`*^9}, {3.740786461181497*^9, 3.74078646715795*^9}, {3.740786785335504*^9, 3.740786786903047*^9}, { 3.740786917217663*^9, 3.740786943976521*^9}, {3.740787108008259*^9, 3.740787133643836*^9}, {3.7407873273278027`*^9, 3.740787336464583*^9}, { 3.7407880688324757`*^9, 3.7407880718489532`*^9}, {3.740788157262391*^9, 3.740788161445713*^9}, {3.740788214669859*^9, 3.740788217924694*^9}, 3.747601125155159*^9, {3.750338364977512*^9, 3.750338365561908*^9}, { 3.7651308216221457`*^9, 3.765130847912077*^9}, {3.765131007624103*^9, 3.7651310890517607`*^9}, {3.765131143895564*^9, 3.76513118865343*^9}, { 3.76513122733494*^9, 3.765131243527925*^9}, {3.765131403000517*^9, 3.765131417773509*^9}, {3.765132923146636*^9, 3.765132928225807*^9}},ExpressionUUID->"6a84477c-175a-47d4-a567-\ 5ff7584208d8"], Cell[BoxData["1667"], "Output", CellChangeTimes->{ 3.740320095705001*^9, 3.740770696667498*^9, {3.740776594543333*^9, 3.740776603460683*^9}, 3.740780534209228*^9, {3.740780772664307*^9, 3.740780777705648*^9}, 3.74078428532952*^9, 3.7407850402012243`*^9, 3.7407860810643053`*^9, 3.7407864183628798`*^9, 3.740786469335148*^9, 3.740786787685334*^9, {3.7407868610272417`*^9, 3.7407868856658697`*^9}, 3.740786944757382*^9, 3.740787134219481*^9, 3.7407873371183167`*^9, 3.7407878450645733`*^9, 3.74078807305447*^9, 3.7407882196159897`*^9, 3.740788476095563*^9, 3.740792505286862*^9, 3.7423859088560677`*^9, 3.742415247720292*^9, 3.742567670141972*^9, 3.742568702771205*^9, 3.7467401917323513`*^9, 3.746741503729376*^9, 3.746748082191104*^9, 3.747434082489771*^9, 3.747601323224947*^9, 3.7480181492651987`*^9, 3.748023584106391*^9, 3.7497623084005537`*^9, 3.750338500031389*^9, 3.765131113509514*^9, {3.7651311543813334`*^9, 3.765131184120714*^9}, 3.765131244024733*^9, {3.765131405158951*^9, 3.76513141871999*^9}, 3.765132195366214*^9, 3.765132757025474*^9, {3.7651329074818897`*^9, 3.765132929335747*^9}},ExpressionUUID->"a553f9b4-a01e-4395-b523-\ b723a69cc7a5"], Cell[BoxData["1264"], "Output", CellChangeTimes->{ 3.740320095705001*^9, 3.740770696667498*^9, {3.740776594543333*^9, 3.740776603460683*^9}, 3.740780534209228*^9, {3.740780772664307*^9, 3.740780777705648*^9}, 3.74078428532952*^9, 3.7407850402012243`*^9, 3.7407860810643053`*^9, 3.7407864183628798`*^9, 3.740786469335148*^9, 3.740786787685334*^9, {3.7407868610272417`*^9, 3.7407868856658697`*^9}, 3.740786944757382*^9, 3.740787134219481*^9, 3.7407873371183167`*^9, 3.7407878450645733`*^9, 3.74078807305447*^9, 3.7407882196159897`*^9, 3.740788476095563*^9, 3.740792505286862*^9, 3.7423859088560677`*^9, 3.742415247720292*^9, 3.742567670141972*^9, 3.742568702771205*^9, 3.7467401917323513`*^9, 3.746741503729376*^9, 3.746748082191104*^9, 3.747434082489771*^9, 3.747601323224947*^9, 3.7480181492651987`*^9, 3.748023584106391*^9, 3.7497623084005537`*^9, 3.750338500031389*^9, 3.765131113509514*^9, {3.7651311543813334`*^9, 3.765131184120714*^9}, 3.765131244024733*^9, {3.765131405158951*^9, 3.76513141871999*^9}, 3.765132195366214*^9, 3.765132757025474*^9, {3.7651329074818897`*^9, 3.765132929355196*^9}},ExpressionUUID->"a1c56dcf-48f4-4713-91b3-\ c3be22f853b3"], Cell[BoxData["\<\"Numbers by Article type\"\>"], "Print", CellChangeTimes->{ 3.7403200956992702`*^9, 3.740770696661543*^9, {3.740776594537106*^9, 3.7407766034528847`*^9}, 3.740780534202941*^9, {3.740780772657975*^9, 3.740780777698855*^9}, 3.7407842853195467`*^9, 3.7407850401913567`*^9, 3.74078608105731*^9, 3.740786418351811*^9, 3.740786469325992*^9, 3.74078678767507*^9, {3.740786861020282*^9, 3.7407868856587973`*^9}, 3.740786944747879*^9, 3.740787134212268*^9, 3.740787337110538*^9, 3.7407878450558767`*^9, 3.740788073044313*^9, 3.740788219608056*^9, 3.740788476085946*^9, 3.740792505275921*^9, 3.742385908847519*^9, 3.7424152477091017`*^9, 3.742567670135113*^9, 3.742568702762192*^9, 3.746740191722878*^9, 3.746741503717606*^9, 3.746748082176753*^9, 3.747434082481686*^9, 3.747601323184339*^9, 3.748018149224885*^9, 3.748023584065318*^9, 3.749762308350629*^9, 3.750338499962575*^9, 3.765131113501081*^9, {3.765131154371007*^9, 3.765131184136632*^9}, 3.765131244040379*^9, {3.765131405175542*^9, 3.765131418737794*^9}, 3.7651321953823967`*^9, 3.765132757042161*^9, {3.765132907503293*^9, 3.765132929364829*^9}},ExpressionUUID->"b3f21ee6-3a19-4abd-8f6a-\ 44ecfb85b2c9"], Cell[BoxData["931"], "Output", CellChangeTimes->{ 3.740320095705001*^9, 3.740770696667498*^9, {3.740776594543333*^9, 3.740776603460683*^9}, 3.740780534209228*^9, {3.740780772664307*^9, 3.740780777705648*^9}, 3.74078428532952*^9, 3.7407850402012243`*^9, 3.7407860810643053`*^9, 3.7407864183628798`*^9, 3.740786469335148*^9, 3.740786787685334*^9, {3.7407868610272417`*^9, 3.7407868856658697`*^9}, 3.740786944757382*^9, 3.740787134219481*^9, 3.7407873371183167`*^9, 3.7407878450645733`*^9, 3.74078807305447*^9, 3.7407882196159897`*^9, 3.740788476095563*^9, 3.740792505286862*^9, 3.7423859088560677`*^9, 3.742415247720292*^9, 3.742567670141972*^9, 3.742568702771205*^9, 3.7467401917323513`*^9, 3.746741503729376*^9, 3.746748082191104*^9, 3.747434082489771*^9, 3.747601323224947*^9, 3.7480181492651987`*^9, 3.748023584106391*^9, 3.7497623084005537`*^9, 3.750338500031389*^9, 3.765131113509514*^9, {3.7651311543813334`*^9, 3.765131184120714*^9}, 3.765131244024733*^9, {3.765131405158951*^9, 3.76513141871999*^9}, 3.765132195366214*^9, 3.765132757025474*^9, {3.7651329074818897`*^9, 3.76513292937424*^9}},ExpressionUUID->"5a925367-4ef9-419a-b14e-\ 6af6db303eaf"], Cell[BoxData["1168"], "Output", CellChangeTimes->{ 3.740320095705001*^9, 3.740770696667498*^9, {3.740776594543333*^9, 3.740776603460683*^9}, 3.740780534209228*^9, {3.740780772664307*^9, 3.740780777705648*^9}, 3.74078428532952*^9, 3.7407850402012243`*^9, 3.7407860810643053`*^9, 3.7407864183628798`*^9, 3.740786469335148*^9, 3.740786787685334*^9, {3.7407868610272417`*^9, 3.7407868856658697`*^9}, 3.740786944757382*^9, 3.740787134219481*^9, 3.7407873371183167`*^9, 3.7407878450645733`*^9, 3.74078807305447*^9, 3.7407882196159897`*^9, 3.740788476095563*^9, 3.740792505286862*^9, 3.7423859088560677`*^9, 3.742415247720292*^9, 3.742567670141972*^9, 3.742568702771205*^9, 3.7467401917323513`*^9, 3.746741503729376*^9, 3.746748082191104*^9, 3.747434082489771*^9, 3.747601323224947*^9, 3.7480181492651987`*^9, 3.748023584106391*^9, 3.7497623084005537`*^9, 3.750338500031389*^9, 3.765131113509514*^9, {3.7651311543813334`*^9, 3.765131184120714*^9}, 3.765131244024733*^9, {3.765131405158951*^9, 3.76513141871999*^9}, 3.765132195366214*^9, 3.765132757025474*^9, {3.7651329074818897`*^9, 3.7651329293831043`*^9}},ExpressionUUID->"e9642c1a-7ef0-400a-943f-\ 94974fbff33a"], Cell[BoxData["157"], "Output", CellChangeTimes->{ 3.740320095705001*^9, 3.740770696667498*^9, {3.740776594543333*^9, 3.740776603460683*^9}, 3.740780534209228*^9, {3.740780772664307*^9, 3.740780777705648*^9}, 3.74078428532952*^9, 3.7407850402012243`*^9, 3.7407860810643053`*^9, 3.7407864183628798`*^9, 3.740786469335148*^9, 3.740786787685334*^9, {3.7407868610272417`*^9, 3.7407868856658697`*^9}, 3.740786944757382*^9, 3.740787134219481*^9, 3.7407873371183167`*^9, 3.7407878450645733`*^9, 3.74078807305447*^9, 3.7407882196159897`*^9, 3.740788476095563*^9, 3.740792505286862*^9, 3.7423859088560677`*^9, 3.742415247720292*^9, 3.742567670141972*^9, 3.742568702771205*^9, 3.7467401917323513`*^9, 3.746741503729376*^9, 3.746748082191104*^9, 3.747434082489771*^9, 3.747601323224947*^9, 3.7480181492651987`*^9, 3.748023584106391*^9, 3.7497623084005537`*^9, 3.750338500031389*^9, 3.765131113509514*^9, {3.7651311543813334`*^9, 3.765131184120714*^9}, 3.765131244024733*^9, {3.765131405158951*^9, 3.76513141871999*^9}, 3.765132195366214*^9, 3.765132757025474*^9, {3.7651329074818897`*^9, 3.7651329293917513`*^9}},ExpressionUUID->"dbcc0f65-4a5a-43c6-8533-\ 8f2481cc5a68"], Cell[BoxData["\<\"Numbers conserved == 1?\"\>"], "Print", CellChangeTimes->{ 3.7403200956992702`*^9, 3.740770696661543*^9, {3.740776594537106*^9, 3.7407766034528847`*^9}, 3.740780534202941*^9, {3.740780772657975*^9, 3.740780777698855*^9}, 3.7407842853195467`*^9, 3.7407850401913567`*^9, 3.74078608105731*^9, 3.740786418351811*^9, 3.740786469325992*^9, 3.74078678767507*^9, {3.740786861020282*^9, 3.7407868856587973`*^9}, 3.740786944747879*^9, 3.740787134212268*^9, 3.740787337110538*^9, 3.7407878450558767`*^9, 3.740788073044313*^9, 3.740788219608056*^9, 3.740788476085946*^9, 3.740792505275921*^9, 3.742385908847519*^9, 3.7424152477091017`*^9, 3.742567670135113*^9, 3.742568702762192*^9, 3.746740191722878*^9, 3.746741503717606*^9, 3.746748082176753*^9, 3.747434082481686*^9, 3.747601323184339*^9, 3.748018149224885*^9, 3.748023584065318*^9, 3.749762308350629*^9, 3.750338499962575*^9, 3.765131113501081*^9, {3.765131154371007*^9, 3.765131184136632*^9}, 3.765131244040379*^9, {3.765131405175542*^9, 3.765131418737794*^9}, 3.7651321953823967`*^9, 3.765132757042161*^9, {3.765132907503293*^9, 3.765132929402032*^9}},ExpressionUUID->"1f651bc7-2e19-49e1-a605-\ 8a21d834f30c"], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.740320095705001*^9, 3.740770696667498*^9, {3.740776594543333*^9, 3.740776603460683*^9}, 3.740780534209228*^9, {3.740780772664307*^9, 3.740780777705648*^9}, 3.74078428532952*^9, 3.7407850402012243`*^9, 3.7407860810643053`*^9, 3.7407864183628798`*^9, 3.740786469335148*^9, 3.740786787685334*^9, {3.7407868610272417`*^9, 3.7407868856658697`*^9}, 3.740786944757382*^9, 3.740787134219481*^9, 3.7407873371183167`*^9, 3.7407878450645733`*^9, 3.74078807305447*^9, 3.7407882196159897`*^9, 3.740788476095563*^9, 3.740792505286862*^9, 3.7423859088560677`*^9, 3.742415247720292*^9, 3.742567670141972*^9, 3.742568702771205*^9, 3.7467401917323513`*^9, 3.746741503729376*^9, 3.746748082191104*^9, 3.747434082489771*^9, 3.747601323224947*^9, 3.7480181492651987`*^9, 3.748023584106391*^9, 3.7497623084005537`*^9, 3.750338500031389*^9, 3.765131113509514*^9, {3.7651311543813334`*^9, 3.765131184120714*^9}, 3.765131244024733*^9, {3.765131405158951*^9, 3.76513141871999*^9}, 3.765132195366214*^9, 3.765132757025474*^9, {3.7651329074818897`*^9, 3.765132929410782*^9}},ExpressionUUID->"bc64e6ed-6e6e-466e-b3a0-\ aef2825e1985"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Merge", " ", RowBox[{"categories", ":", " ", RowBox[{"Replace", " ", "p"}]}]}], " ", "\[Rule]", " ", RowBox[{ RowBox[{"s", " ", "and", " ", "v"}], " ", "\[Rule]", " ", "d"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"AnnotationsALL", "=", RowBox[{ RowBox[{"AnnotationsALL", "/.", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "/.", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "AnnotationsALL", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ClassificationListCCC", "=", RowBox[{ RowBox[{"ClassificationListCCC", "/.", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "/.", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ClassificationListCCS", "=", RowBox[{ RowBox[{"ClassificationListCCS", "/.", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}], "/.", RowBox[{"\"\\"", "\[Rule]", "\"\\""}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Length", "[", "ClassificationListCCC", "]"}], "+", RowBox[{"Length", "[", "ClassificationListCCS", "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Parse", " ", "out", " ", "annotations"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"TallyAnnotationsALL2", "=", RowBox[{"Sort", "[", RowBox[{ RowBox[{"Tally", "[", "AnnotationsALL", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ">", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"TotAnnotationsALL2", "=", RowBox[{"Total", "[", RowBox[{ RowBox[{"Transpose", "[", "TallyAnnotationsALL2", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ClassCCC", "=", RowBox[{"Tally", "[", RowBox[{"DeleteCases", "[", RowBox[{"ClassificationListCCC", ",", "\"\<0\>\""}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"TotCCC", "=", RowBox[{"Total", "[", RowBox[{ RowBox[{"Transpose", "[", "ClassCCC", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"ClassCCS", "=", RowBox[{"Tally", "[", RowBox[{"DeleteCases", "[", RowBox[{"ClassificationListCCS", ",", "\"\<0\>\""}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"TotCCS", "=", RowBox[{"Total", "[", RowBox[{ RowBox[{"Transpose", "[", "ClassCCS", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FinalOrderX", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"LabelMap", ",", "FinalOrderX"}], "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "FinalOrderX", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ChColors", "=", RowBox[{"{", RowBox[{"Black", ",", "Blue", ",", "Red"}], "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Split", " ", "into", " ", "group", " ", "percentages"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"AnnotationsAllCCSCCC", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", " ", RowBox[{"Length", "[", "FinalOrderX", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nAll", "=", RowBox[{"Position", "[", RowBox[{"TallyAnnotationsALL2", ",", RowBox[{"{", RowBox[{ RowBox[{"FinalOrderX", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "_"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "nAll", "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nAll", "=", RowBox[{ RowBox[{"nAll", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fAll", "=", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"TallyAnnotationsALL2", "[", RowBox[{"[", "nAll", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/", "TotAnnotationsALL2"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fAll", "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"nCCC", "=", RowBox[{"Position", "[", RowBox[{"ClassCCC", ",", RowBox[{"{", RowBox[{ RowBox[{"FinalOrderX", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "_"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "nCCC", "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nCCC", "=", RowBox[{ RowBox[{"nCCC", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fCCC", "=", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"ClassCCC", "[", RowBox[{"[", "nCCC", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/", "TotCCC"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fCCC", "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"nCCS", "=", RowBox[{"Position", "[", RowBox[{"ClassCCS", ",", RowBox[{"{", RowBox[{ RowBox[{"FinalOrderX", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "_"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "nCCS", "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"nCCS", "=", RowBox[{ RowBox[{"nCCS", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"fCCS", "=", RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"ClassCCS", "[", RowBox[{"[", "nCCS", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "/", "TotCCS"}], "]"}]}], ";"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fCCS", "=", "0"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", RowBox[{"AnnotationsAllCCSCCC", "=", RowBox[{"Append", "[", RowBox[{"AnnotationsAllCCSCCC", ",", RowBox[{"{", RowBox[{"fAll", ",", "fCCS", ",", "fCCC"}], "}"}]}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "AnnotationsAllCCSCCC", "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"Map", "[", RowBox[{"Total", ",", RowBox[{"Transpose", "[", "AnnotationsAllCCSCCC", "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.7480234062861137`*^9, {3.765131426901503*^9, 3.765131435725602*^9}, { 3.7651325584514017`*^9, 3.7651325587130117`*^9}, {3.765132589634556*^9, 3.765132590323071*^9}},ExpressionUUID->"79b139fe-dc15-40ca-9840-\ 9ad43f3132aa"], Cell[BoxData["2931"], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.7651329497205877`*^9},ExpressionUUID->"67d7c018-80c7-4e20-beb7-\ 88f606ca326f"], Cell[BoxData["2931"], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.765132949732403*^9},ExpressionUUID->"147e2e8d-af4f-4b19-bd59-\ 649eb3a7ee9c"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"m\"\>", ",", "1497"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"q\"\>", ",", "752"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"s\"\>", ",", "535"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"d\"\>", ",", "94"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "53"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.765132949741949*^9},ExpressionUUID->"24583afa-b1fd-40a4-8587-\ db8ffa976a6a"], Cell[BoxData["2931"], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.765132949751574*^9},ExpressionUUID->"8ba8d379-a0a9-43ba-8080-\ a9a3dfbec250"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"q\"\>", ",", "461"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"m\"\>", ",", "1032"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"s\"\>", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"d\"\>", ",", "89"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.7651329497607403`*^9},ExpressionUUID->"e95b1fef-e6a0-43a1-a74b-\ beb76a3b519f"], Cell[BoxData["1667"], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.7651329497724867`*^9},ExpressionUUID->"887c9d0a-b67a-44aa-ae67-\ 872858080d00"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"q\"\>", ",", "291"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"m\"\>", ",", "465"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"s\"\>", ",", "471"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"a\"\>", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"d\"\>", ",", "5"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.765132949781654*^9},ExpressionUUID->"d22e242b-1ee6-456d-979e-\ b09bc8c6767a"], Cell[BoxData["1264"], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.7651329497906103`*^9},ExpressionUUID->"2af0febb-5a27-46bf-adaa-\ fc0975e202de"], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Mentioned\"\>", ",", "\<\"Quoted-Sci.\"\>", ",", "\<\"Quoted-NonSci.\"\>", ",", "\<\"Quoted-Advers.\"\>", ",", "\<\"Authored\"\>"}], "}"}]], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.765132949800166*^9},ExpressionUUID->"a1067264-d7ed-4e86-a7fa-\ 6e8a3d7156b0"], Cell[BoxData["5"], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.765132949809226*^9},ExpressionUUID->"05b0186a-c0ba-4003-be98-\ b23548513295"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.510747185261003`", ",", "0.36787974683544306`", ",", "0.6190761847630474`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.18253155919481406`", ",", "0.372626582278481`", ",", "0.03839232153569286`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.25656772432616853`", ",", "0.23022151898734178`", ",", "0.27654469106178764`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.03207096554077107`", ",", "0.003955696202531646`", ",", "0.05338932213557288`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.018082565677243263`", ",", "0.02531645569620253`", ",", "0.01259748050389922`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.76513294981853*^9},ExpressionUUID->"4b09551b-1cad-43a3-b45f-39d76873fbfd"], Cell[BoxData["\<\"All Histograms add up to 1???\"\>"], "Print", CellChangeTimes->{3.76513259102318*^9, 3.7651327614997187`*^9, 3.765132949828033*^9},ExpressionUUID->"7f9d6009-f28b-402b-b087-\ 3a1e7b9e6996"], Cell[BoxData[ RowBox[{"{", RowBox[{"1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.748018150371224*^9, 3.7480235845688753`*^9, 3.749762308869989*^9, 3.7503385012033367`*^9, 3.765131317863112*^9, 3.7651314366212673`*^9, 3.765132198682292*^9, 3.765132590922106*^9, 3.765132761416568*^9, 3.7651329498366632`*^9},ExpressionUUID->"587418c7-be99-4bca-bc46-\ d732534e7712"] }, Open ]], Cell[TextData[StyleBox["Panel A: ", "Subsubsection"]], "Text", CellChangeTimes->{{3.7651323848032846`*^9, 3.765132407528924*^9}},ExpressionUUID->"93838a01-face-49b4-b2b4-\ 3a1d7761921c"], Cell[CellGroupData[{ Cell[BoxData[{"AnnotationsAllCCSCCC", "\[IndentingNewLine]", RowBox[{ RowBox[{"AnnotationsCCSCCC", "=", RowBox[{"Transpose", "[", RowBox[{"Delete", "[", RowBox[{ RowBox[{"Transpose", "[", "AnnotationsAllCCSCCC", "]"}], ",", "1"}], "]"}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"HistFxCCCCCS", "=", RowBox[{"BarChart", "[", RowBox[{"AnnotationsCCSCCC", ",", RowBox[{"LabelStyle", " ", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"FontSize", "\[Rule]", "20"}], ",", RowBox[{"FontFamily", "\[Rule]", " ", "\"\\""}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "Automatic"}], "}"}]}], ",", RowBox[{"ChartStyle", "\[Rule]", RowBox[{"Delete", "[", RowBox[{"ChColors", ",", "1"}], "]"}]}], ",", RowBox[{"BarSpacing", "\[Rule]", RowBox[{"{", RowBox[{"0.1", ",", " ", "0.5"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"All", ",", RowBox[{"{", RowBox[{"0", ",", "0.8"}], "}"}]}], "}"}]}]}], "]"}], " "}]}], "Input",\ CellChangeTimes->{{3.747421542008048*^9, 3.7474216744606247`*^9}, { 3.747421710657649*^9, 3.747421710738764*^9}, {3.747422004030786*^9, 3.7474220064196377`*^9}, {3.765132221827078*^9, 3.765132226210137*^9}, { 3.765132379697529*^9, 3.765132380673233*^9}},ExpressionUUID->"142a0d65-9b0a-4d55-b971-\ 5e0760ea50cb"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.510747185261003`", ",", "0.36787974683544306`", ",", "0.6190761847630474`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.18253155919481406`", ",", "0.372626582278481`", ",", "0.03839232153569286`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.25656772432616853`", ",", "0.23022151898734178`", ",", "0.27654469106178764`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.03207096554077107`", ",", "0.003955696202531646`", ",", "0.05338932213557288`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.018082565677243263`", ",", "0.02531645569620253`", ",", "0.01259748050389922`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.748018151104225*^9, 3.7480235852483788`*^9, 3.749762309608623*^9, 3.7503385020067463`*^9, 3.765131971202841*^9, 3.765132247117281*^9, 3.765132412135879*^9, 3.765132764973544*^9, 3.765132953503579*^9},ExpressionUUID->"908daadc-8198-45bc-bf8c-\ 4df261a78cea"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.36787974683544306`", ",", "0.6190761847630474`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.372626582278481`", ",", "0.03839232153569286`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.23022151898734178`", ",", "0.27654469106178764`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.003955696202531646`", ",", "0.05338932213557288`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.02531645569620253`", ",", "0.01259748050389922`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.748018151104225*^9, 3.7480235852483788`*^9, 3.749762309608623*^9, 3.7503385020067463`*^9, 3.765131971202841*^9, 3.765132247117281*^9, 3.765132412135879*^9, 3.765132764973544*^9, 3.765132953516468*^9},ExpressionUUID->"aebf3f24-de8c-46ee-8fe0-\ 29a8519e360c"], Cell[BoxData[ GraphicsBox[{{ {Opacity[0], PointBox[{{0.5454545454545454, 0.}, {12.136363636363635`, 0.}}]}}, {{}, {{{}, {{}, {{ {RGBColor[0, 0, 1], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.7727272727272727, 0.}, {1.6818181818181817`, 0.36787974683544306`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{39.56293693948167, 75.31468469740838}, { 10.269092439216564`, 136.98990673495072`}}], StatusArea[#, 0.36787974683544306`]& , TagBoxNote->"0.36787974683544306"], StyleBox["0.36787974683544306`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.36787974683544306`, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.7727272727272725`, 0.}, {2.6818181818181817`, 0.6190761847630474}, "RoundingRadius" -> 0]}, ImageSizeCache->{{78.33985947320105, 114.09160723112774`}, {-75.91727475319271, 136.98990673495072`}}], StatusArea[#, 0.6190761847630474]& , TagBoxNote->"0.6190761847630474"], StyleBox["0.6190761847630474`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.6190761847630474, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}}}, {}, {}}, {{}, {{}, {{ {RGBColor[0, 0, 1], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3.1363636363636362`, 0.}, {4.045454545454545, 0.372626582278481}, "RoundingRadius" -> 0]}, ImageSizeCache->{{131.2174811100911, 166.96922886801778`}, { 8.64043677088452, 136.98990673495072`}}], StatusArea[#, 0.372626582278481]& , TagBoxNote->"0.372626582278481"], StyleBox["0.372626582278481`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.372626582278481, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4.136363636363636, 0.}, {5.045454545454545, 0.03839232153569286}, "RoundingRadius" -> 0]}, ImageSizeCache->{{169.99440364381047`, 205.74615140173717`}, { 123.31736834808912`, 136.98990673495072`}}], StatusArea[#, 0.03839232153569286]& , TagBoxNote->"0.03839232153569286"], StyleBox["0.03839232153569286`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.03839232153569286, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}}}, {}, {}}, {{}, {{}, {{ {RGBColor[0, 0, 1], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.499999999999999, 0.}, {6.409090909090908, 0.23022151898734178`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{222.8720252807005, 258.6237730386272}, { 57.50010682084611, 136.98990673495072`}}], StatusArea[#, 0.23022151898734178`]& , TagBoxNote->"0.23022151898734178"], StyleBox["0.23022151898734178`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.23022151898734178`, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.499999999999999, 0.}, {7.409090909090908, 0.27654469106178764`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{261.64894781441984`, 297.40069557234654`}, { 41.6064661670882, 136.98990673495072`}}], StatusArea[#, 0.27654469106178764`]& , TagBoxNote->"0.27654469106178764"], StyleBox["0.27654469106178764`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.27654469106178764`, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}}}, {}, {}}, {{}, {{}, {{ {RGBColor[0, 0, 1], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.863636363636362, 0.}, {8.772727272727272, 0.003955696202531646}, "RoundingRadius" -> 0]}, ImageSizeCache->{{314.5265694513099, 350.2783172092366}, { 135.13269367800734`, 136.98990673495072`}}], StatusArea[#, 0.003955696202531646]& , TagBoxNote->"0.003955696202531646"], StyleBox["0.003955696202531646`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.003955696202531646, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8.863636363636363, 0.}, {9.772727272727272, 0.05338932213557288}, "RoundingRadius" -> 0]}, ImageSizeCache->{{353.30349198502927`, 389.05523974295596`}, { 118.1718455407213, 136.98990673495072`}}], StatusArea[#, 0.05338932213557288]& , TagBoxNote->"0.05338932213557288"], StyleBox["0.05338932213557288`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.05338932213557288, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}}}, {}, {}}, {{}, {{}, {{ {RGBColor[0, 0, 1], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10.227272727272727`, 0.}, {11.136363636363635`, 0.02531645569620253}, "RoundingRadius" -> 0]}, ImageSizeCache->{{406.18111362191934`, 441.932861379846}, { 127.80374317051312`, 136.98990673495072`}}], StatusArea[#, 0.02531645569620253]& , TagBoxNote->"0.02531645569620253"], StyleBox["0.02531645569620253`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.02531645569620253, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[1, 0, 0], EdgeForm[{Opacity[0.63], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11.227272727272727`, 0.}, {12.136363636363635`, 0.01259748050389922}, "RoundingRadius" -> 0]}, ImageSizeCache->{{444.9580361556387, 480.7097839135654}, { 132.16766757676174`, 136.98990673495072`}}], StatusArea[#, 0.01259748050389922]& , TagBoxNote->"0.01259748050389922"], StyleBox["0.01259748050389922`", { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.01259748050389922, { Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, { StyleBox[{ StyleBox[{{ {Thickness[ Tiny], {LineBox[{{0.5454545454545454, 0.}, {12.368181818181817`, 0.}}]}, StyleBox[{}, "GraphicsLabel", StripOnInput->False]}}, StyleBox[{{ {Thickness[Tiny], LineBox[{{0.7727272727272727, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {0.7727272727272727, 0.}]}], LineBox[{{12.136363636363635`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {12.136363636363635`, 0.}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {LineBox[{{2.6818181818181817`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {2.6818181818181817`, 0.}]}], LineBox[{{3.1363636363636367`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {3.1363636363636367`, 0.}]}], LineBox[{{5.045454545454545, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {5.045454545454545, 0.}]}], LineBox[{{5.499999999999999, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {5.499999999999999, 0.}]}], LineBox[{{7.409090909090908, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {7.409090909090908, 0.}]}], LineBox[{{7.863636363636362, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {7.863636363636362, 0.}]}], LineBox[{{9.772727272727272, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {9.772727272727272, 0.}]}], LineBox[{{10.227272727272727`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {10.227272727272727`, 0.}]}]}}}}, StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False]}, "GraphicsAxes", StripOnInput->False]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, True}, AxesLabel->{None, None}, AxesOrigin->{0.5454545454545454, 0.}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{1.227272727272727, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2.227272727272727, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2.909090909090909, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 3.590909090909091, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 4.59090909090909, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 5.272727272727272, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 5.954545454545453, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 6.954545454545453, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 7.636363636363635, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 8.318181818181817, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 9.318181818181817, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 10.68181818181818, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 11.68181818181818, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}}, {{ 1.227272727272727, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2.227272727272727, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2.909090909090909, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 3.590909090909091, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 4.59090909090909, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 5.272727272727272, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 5.954545454545453, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 6.954545454545453, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 7.636363636363635, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 8.318181818181817, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 9.318181818181817, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 10.68181818181818, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 11.68181818181818, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{500, Automatic}, LabelStyle->Directive[ GrayLevel[0], FontSize -> 20, FontFamily -> "Helvetica"], PlotRange->{{All, All}, {0, 0.8}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{None, Automatic}]], "Output", CellChangeTimes->{3.748018151104225*^9, 3.7480235852483788`*^9, 3.749762309608623*^9, 3.7503385020067463`*^9, 3.765131971202841*^9, 3.765132247117281*^9, 3.765132412135879*^9, 3.765132764973544*^9, 3.765132953735716*^9},ExpressionUUID->"5f122a17-36e9-4c3d-99c2-\ ed21fcd6ca61"] }, Open ]], Cell[TextData[StyleBox["Panel C: ", "Subsubsection"]], "Text", CellChangeTimes->{{3.7651323848032846`*^9, 3.765132446172147*^9}},ExpressionUUID->"9f2aa38b-a2b5-476a-aebb-\ 058d0f45e6f1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Plot", " ", "Top"}], "-", RowBox[{"3", " ", "Article", " ", "types"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQTypes", "=", RowBox[{"Sort", "[", RowBox[{ RowBox[{"Tally", "[", "CCCMQCCSMQALL", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ">", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "XClassified", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Transpose", "[", "CCCMQCCSMQTypes", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"NumberOfTypes", "=", RowBox[{"Length", "[", "CCCMQCCSMQTypes", "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"FracTop3", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Take", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CCCMQCCSMQTypes", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}], "/", "XClassified"}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"ColorBackgroundX", "=", RowBox[{"GrayLevel", "[", "0.75", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SemicolonColorX", "=", "White"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PurpleX", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GreenX", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FontSizeX", "=", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GXALL", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", " ", "3"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"CCCMQCCSMQi", "=", RowBox[{ RowBox[{"CCCMQCCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Fraci", "=", RowBox[{ RowBox[{"CCCMQCCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"CircleGridA", "=", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"ColorBackgroundX", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"ColorBackgroundX", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], "]"}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"ColorBackgroundX", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"ColorBackgroundX", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "300"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"TextGridB", "=", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"items", "=", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Red", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<:\>\"", ",", "SemicolonColorX", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"Lighter", "[", RowBox[{"Purple", ",", "PurpleX"}], "]"}], ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"StringJoin", ",", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], "/@", "items"}]}], "]"}]}]}], " ", "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "1", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"items", "=", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Red", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<:\>\"", ",", "SemicolonColorX", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"Darker", "[", RowBox[{"Green", ",", "GreenX"}], "]"}], ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"StringJoin", ",", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], "/@", "items"}]}], "]"}]}]}], " ", "]"}]}], "}"}], ",", " ", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"items", "=", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Blue", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<:\>\"", ",", "SemicolonColorX", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"Lighter", "[", RowBox[{"Purple", ",", "PurpleX"}], "]"}], ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"StringJoin", ",", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], "/@", "items"}]}], "]"}]}]}], " ", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQCCSMQi", "[", RowBox[{"[", "2", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"items", "=", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Blue", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<:\>\"", ",", "SemicolonColorX", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"Darker", "[", RowBox[{"Green", ",", "GreenX"}], "]"}], ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"StringJoin", ",", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], "/@", "items"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "300"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"GX", "=", RowBox[{"Show", "[", RowBox[{"CircleGridA", ",", "TextGridB", ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Style", "[", RowBox[{ RowBox[{"StringJoin", "[", " ", RowBox[{ RowBox[{"ToString", "[", RowBox[{"Round", "[", RowBox[{"N", "[", RowBox[{"100", "*", RowBox[{"Fraci", "/", "XClassified"}]}], "]"}], "]"}], "]"}], ",", "\"\<%\>\""}], "]"}], ",", "Black", ",", "35"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GXALL", "=", RowBox[{"Append", "[", RowBox[{"GXALL", ",", "GX"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"G3", "=", RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", "GXALL", "}"}], ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"Scaled", "[", " ", RowBox[{"-", ".1"}], "]"}]}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7407827020838842`*^9, 3.7407827451266603`*^9}, { 3.740782811647862*^9, 3.740782866480784*^9}, {3.7407829724567013`*^9, 3.7407830294093037`*^9}, {3.740787566515255*^9, 3.740787627614998*^9}, { 3.7407882416408777`*^9, 3.7407882438258123`*^9}, {3.746741554197667*^9, 3.746741593635944*^9}, {3.7467416268531733`*^9, 3.746741719457267*^9}, { 3.746741768388476*^9, 3.7467417816557426`*^9}, {3.746741863496005*^9, 3.746742019019103*^9}, {3.746742106592535*^9, 3.746742147959136*^9}, { 3.746742218869236*^9, 3.7467422593551607`*^9}, {3.74674229537143*^9, 3.7467422983995743`*^9}, {3.7467423347177677`*^9, 3.7467423460697193`*^9}, {3.746742392687189*^9, 3.7467423931896687`*^9}, { 3.7467424946162024`*^9, 3.7467425701926603`*^9}, {3.746743634442247*^9, 3.746743634603413*^9}, 3.746743682235002*^9, {3.746743724337285*^9, 3.746743771172016*^9}, {3.746743812909326*^9, 3.746743824649886*^9}, { 3.746743854654593*^9, 3.746743998520783*^9}, {3.7467465371958857`*^9, 3.74674653735392*^9}, 3.7474341230273867`*^9, {3.7651320096939993`*^9, 3.765132016508045*^9}},ExpressionUUID->"b8a5be01-767a-4898-b0fc-\ 9a06a9bcf5b2"], Cell[BoxData["157"], "Output", CellChangeTimes->{ 3.7407827458190117`*^9, {3.740782823157292*^9, 3.740782828823958*^9}, 3.740782870151071*^9, {3.7407829813338842`*^9, 3.7407830300559893`*^9}, 3.740786111988873*^9, 3.740787253399588*^9, {3.740787538875125*^9, 3.740787627948325*^9}, 3.740787945468706*^9, 3.7407880890359907`*^9, { 3.740788234687313*^9, 3.740788245851474*^9}, 3.740788511777357*^9, 3.7407925070033617`*^9, 3.7423859631448708`*^9, 3.7424152839961147`*^9, 3.742567714247902*^9, 3.742568716049179*^9, 3.746740231224284*^9, 3.746741593887074*^9, 3.746741630578361*^9, {3.7467416884726143`*^9, 3.746741702319727*^9}, 3.746741782056439*^9, {3.7467418871334667`*^9, 3.746742019497753*^9}, {3.746742107405489*^9, 3.746742123528113*^9}, 3.746742262529983*^9, 3.746742299777264*^9, {3.746742533725247*^9, 3.746742570917995*^9}, 3.746743635665823*^9, 3.746743771917376*^9, 3.74674389593813*^9, {3.746743935001149*^9, 3.746743998918173*^9}, 3.746748084293457*^9, 3.7474340840532084`*^9, 3.7474341265342293`*^9, 3.747601324766012*^9, 3.748018151639307*^9, 3.7480235857512293`*^9, 3.749762310159996*^9, 3.750338502563264*^9, {3.7651320016047077`*^9, 3.76513201818642*^9}, {3.76513227860376*^9, 3.765132289288067*^9}, 3.7651327738333883`*^9, 3.7651329607452517`*^9},ExpressionUUID->"32581020-12ff-4787-bdf2-\ fc980498b703"], Cell[BoxData["157"], "Output", CellChangeTimes->{ 3.7407827458190117`*^9, {3.740782823157292*^9, 3.740782828823958*^9}, 3.740782870151071*^9, {3.7407829813338842`*^9, 3.7407830300559893`*^9}, 3.740786111988873*^9, 3.740787253399588*^9, {3.740787538875125*^9, 3.740787627948325*^9}, 3.740787945468706*^9, 3.7407880890359907`*^9, { 3.740788234687313*^9, 3.740788245851474*^9}, 3.740788511777357*^9, 3.7407925070033617`*^9, 3.7423859631448708`*^9, 3.7424152839961147`*^9, 3.742567714247902*^9, 3.742568716049179*^9, 3.746740231224284*^9, 3.746741593887074*^9, 3.746741630578361*^9, {3.7467416884726143`*^9, 3.746741702319727*^9}, 3.746741782056439*^9, {3.7467418871334667`*^9, 3.746742019497753*^9}, {3.746742107405489*^9, 3.746742123528113*^9}, 3.746742262529983*^9, 3.746742299777264*^9, {3.746742533725247*^9, 3.746742570917995*^9}, 3.746743635665823*^9, 3.746743771917376*^9, 3.74674389593813*^9, {3.746743935001149*^9, 3.746743998918173*^9}, 3.746748084293457*^9, 3.7474340840532084`*^9, 3.7474341265342293`*^9, 3.747601324766012*^9, 3.748018151639307*^9, 3.7480235857512293`*^9, 3.749762310159996*^9, 3.750338502563264*^9, {3.7651320016047077`*^9, 3.76513201818642*^9}, {3.76513227860376*^9, 3.765132289288067*^9}, 3.7651327738333883`*^9, 3.765132960757938*^9},ExpressionUUID->"f00cd440-04e3-45ab-9c0d-\ 7c1796f52180"], Cell[BoxData["\<\"Number of Article Mention/Quote Types\"\>"], "Print", CellChangeTimes->{ 3.740782870169639*^9, {3.7407829813486013`*^9, 3.7407830300678473`*^9}, 3.740786112001752*^9, 3.740787253416875*^9, {3.740787538889152*^9, 3.740787627960692*^9}, 3.7407879454860983`*^9, 3.740788089052009*^9, { 3.740788234703925*^9, 3.740788245865761*^9}, 3.740788511795855*^9, 3.740792507018285*^9, 3.74238596316037*^9, 3.742415284012726*^9, 3.7425677142585*^9, 3.742568716062317*^9, 3.746740231243062*^9, 3.7467415939035*^9, 3.746741630593548*^9, {3.7467416884924717`*^9, 3.746741702339389*^9}, 3.746741782072199*^9, {3.7467418871481647`*^9, 3.746742019521451*^9}, {3.746742107425969*^9, 3.7467421235491743`*^9}, 3.746742262550755*^9, 3.746742299798745*^9, {3.74674253374502*^9, 3.746742570936722*^9}, 3.7467436356834*^9, 3.746743771936932*^9, 3.746743895955625*^9, {3.7467439350207853`*^9, 3.746743998933804*^9}, 3.746748084313422*^9, 3.7474340840649*^9, 3.747434126549602*^9, 3.7476013247772417`*^9, 3.748018151650474*^9, 3.74802358576272*^9, 3.749762310174818*^9, 3.750338502588087*^9, {3.765132001621467*^9, 3.765132018199448*^9}, {3.765132278620632*^9, 3.7651322893048553`*^9}, 3.765132773851056*^9, 3.7651329607671843`*^9},ExpressionUUID->"5a64739d-8ae5-40d4-a6c0-\ 11b41a8ea8fc"], Cell[BoxData["9"], "Output", CellChangeTimes->{ 3.7407827458190117`*^9, {3.740782823157292*^9, 3.740782828823958*^9}, 3.740782870151071*^9, {3.7407829813338842`*^9, 3.7407830300559893`*^9}, 3.740786111988873*^9, 3.740787253399588*^9, {3.740787538875125*^9, 3.740787627948325*^9}, 3.740787945468706*^9, 3.7407880890359907`*^9, { 3.740788234687313*^9, 3.740788245851474*^9}, 3.740788511777357*^9, 3.7407925070033617`*^9, 3.7423859631448708`*^9, 3.7424152839961147`*^9, 3.742567714247902*^9, 3.742568716049179*^9, 3.746740231224284*^9, 3.746741593887074*^9, 3.746741630578361*^9, {3.7467416884726143`*^9, 3.746741702319727*^9}, 3.746741782056439*^9, {3.7467418871334667`*^9, 3.746742019497753*^9}, {3.746742107405489*^9, 3.746742123528113*^9}, 3.746742262529983*^9, 3.746742299777264*^9, {3.746742533725247*^9, 3.746742570917995*^9}, 3.746743635665823*^9, 3.746743771917376*^9, 3.74674389593813*^9, {3.746743935001149*^9, 3.746743998918173*^9}, 3.746748084293457*^9, 3.7474340840532084`*^9, 3.7474341265342293`*^9, 3.747601324766012*^9, 3.748018151639307*^9, 3.7480235857512293`*^9, 3.749762310159996*^9, 3.750338502563264*^9, {3.7651320016047077`*^9, 3.76513201818642*^9}, {3.76513227860376*^9, 3.765132289288067*^9}, 3.7651327738333883`*^9, 3.765132960775855*^9},ExpressionUUID->"d5e75f59-acfc-4bcf-9cfb-\ 2f0bcc46299c"], Cell[BoxData["\<\"Fraction represented by top-3 types\"\>"], "Print", CellChangeTimes->{ 3.740782870169639*^9, {3.7407829813486013`*^9, 3.7407830300678473`*^9}, 3.740786112001752*^9, 3.740787253416875*^9, {3.740787538889152*^9, 3.740787627960692*^9}, 3.7407879454860983`*^9, 3.740788089052009*^9, { 3.740788234703925*^9, 3.740788245865761*^9}, 3.740788511795855*^9, 3.740792507018285*^9, 3.74238596316037*^9, 3.742415284012726*^9, 3.7425677142585*^9, 3.742568716062317*^9, 3.746740231243062*^9, 3.7467415939035*^9, 3.746741630593548*^9, {3.7467416884924717`*^9, 3.746741702339389*^9}, 3.746741782072199*^9, {3.7467418871481647`*^9, 3.746742019521451*^9}, {3.746742107425969*^9, 3.7467421235491743`*^9}, 3.746742262550755*^9, 3.746742299798745*^9, {3.74674253374502*^9, 3.746742570936722*^9}, 3.7467436356834*^9, 3.746743771936932*^9, 3.746743895955625*^9, {3.7467439350207853`*^9, 3.746743998933804*^9}, 3.746748084313422*^9, 3.7474340840649*^9, 3.747434126549602*^9, 3.7476013247772417`*^9, 3.748018151650474*^9, 3.74802358576272*^9, 3.749762310174818*^9, 3.750338502588087*^9, {3.765132001621467*^9, 3.765132018199448*^9}, {3.765132278620632*^9, 3.7651322893048553`*^9}, 3.765132773851056*^9, 3.7651329607845373`*^9},ExpressionUUID->"1044a8f0-446c-4fe1-a4e3-\ f67859dccc03"], Cell[BoxData["0.7707006369426752`"], "Output", CellChangeTimes->{ 3.7407827458190117`*^9, {3.740782823157292*^9, 3.740782828823958*^9}, 3.740782870151071*^9, {3.7407829813338842`*^9, 3.7407830300559893`*^9}, 3.740786111988873*^9, 3.740787253399588*^9, {3.740787538875125*^9, 3.740787627948325*^9}, 3.740787945468706*^9, 3.7407880890359907`*^9, { 3.740788234687313*^9, 3.740788245851474*^9}, 3.740788511777357*^9, 3.7407925070033617`*^9, 3.7423859631448708`*^9, 3.7424152839961147`*^9, 3.742567714247902*^9, 3.742568716049179*^9, 3.746740231224284*^9, 3.746741593887074*^9, 3.746741630578361*^9, {3.7467416884726143`*^9, 3.746741702319727*^9}, 3.746741782056439*^9, {3.7467418871334667`*^9, 3.746742019497753*^9}, {3.746742107405489*^9, 3.746742123528113*^9}, 3.746742262529983*^9, 3.746742299777264*^9, {3.746742533725247*^9, 3.746742570917995*^9}, 3.746743635665823*^9, 3.746743771917376*^9, 3.74674389593813*^9, {3.746743935001149*^9, 3.746743998918173*^9}, 3.746748084293457*^9, 3.7474340840532084`*^9, 3.7474341265342293`*^9, 3.747601324766012*^9, 3.748018151639307*^9, 3.7480235857512293`*^9, 3.749762310159996*^9, 3.750338502563264*^9, {3.7651320016047077`*^9, 3.76513201818642*^9}, {3.76513227860376*^9, 3.765132289288067*^9}, 3.7651327738333883`*^9, 3.765132960793013*^9},ExpressionUUID->"6e9a160a-fbcf-4a02-8bf2-\ 7f77be4bb184"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{{}, {{InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {192., -192.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox["", {576., -192.}, {Center, Center}, {360., 360.}]}, { InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {192., -576.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox["", {576., -576.}, {Center, Center}, {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -384.}}]}, { LineBox[{{0, -384.}, {0, -768.}}]}, { LineBox[{{384., 0}, {384., -384.}}]}, { LineBox[{{384., -384.}, {384., -768.}}]}, { LineBox[{{768., 0}, {768., -384.}}]}, { LineBox[{{768., -384.}, {768., -768.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -384.}, {384., -384.}}]}, { LineBox[{{384., -384.}, {768., -384.}}]}, { LineBox[{{0, -768.}, {384., -768.}}]}, { LineBox[{{384., -768.}, {768., -768.}}]}}}, Antialiasing->False]}}, {{}, {{ TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCC\"\>", LineColor->RGBColor[1, 0, 0], FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontColor->RGBColor[1, 0, 0]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"M\"\>", LineColor->RGBColor[0.65, 0.3, 0.65], FrontFaceColor->RGBColor[0.65, 0.3, 0.65], BackFaceColor->RGBColor[0.65, 0.3, 0.65], GraphicsColor->RGBColor[0.65, 0.3, 0.65], FontColor->RGBColor[0.65, 0.3, 0.65]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {192., -192.}, {Center, Center}, {360., 360.}], "InsetString"], InsetBox["", {576., -192.}, {Center, Center}, {360., 360.}]}, { TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCS\"\>", LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"M\"\>", LineColor->RGBColor[0.65, 0.3, 0.65], FrontFaceColor->RGBColor[0.65, 0.3, 0.65], BackFaceColor->RGBColor[0.65, 0.3, 0.65], GraphicsColor->RGBColor[0.65, 0.3, 0.65], FontColor->RGBColor[0.65, 0.3, 0.65]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {192., -576.}, {Center, Center}, {360., 360.}], "InsetString"], InsetBox["", {576., -576.}, {Center, Center}, {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -384.}}]}, { LineBox[{{0, -384.}, {0, -768.}}]}, { LineBox[{{384., 0}, {384., -384.}}]}, { LineBox[{{384., -384.}, {384., -768.}}]}, { LineBox[{{768., 0}, {768., -384.}}]}, { LineBox[{{768., -384.}, {768., -768.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -384.}, {384., -384.}}]}, { LineBox[{{384., -384.}, {768., -384.}}]}, { LineBox[{{0, -768.}, {384., -768.}}]}, { LineBox[{{384., -768.}, {768., -768.}}]}}}, Antialiasing->False]}}}, ContentSelectable->True, ImageSize->300, PlotLabel->FormBox[ StyleBox["\"34%\"", GrayLevel[0], 35, StripOnInput -> False], TraditionalForm], PlotRangePadding->{6, 5}], {138.75, -142.5}, ImageScaled[{0.5, 0.5}], {300, 300.}], InsetBox[ GraphicsBox[{{{}, {{ InsetBox["", {192., -192.}, {Center, Center}, {360., 360.}], InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {576., -192.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}, { InsetBox["", {192., -576.}, {Center, Center}, {360., 360.}], InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {576., -576.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -384.}}]}, { LineBox[{{0, -384.}, {0, -768.}}]}, { LineBox[{{384., 0}, {384., -384.}}]}, { LineBox[{{384., -384.}, {384., -768.}}]}, { LineBox[{{768., 0}, {768., -384.}}]}, { LineBox[{{768., -384.}, {768., -768.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -384.}, {384., -384.}}]}, { LineBox[{{384., -384.}, {768., -384.}}]}, { LineBox[{{0, -768.}, {384., -768.}}]}, { LineBox[{{384., -768.}, {768., -768.}}]}}}, Antialiasing->False]}}, {{}, {{ InsetBox["", {192., -192.}, {Center, Center}, {360., 360.}], TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCC\"\>", LineColor->RGBColor[1, 0, 0], FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontColor->RGBColor[1, 0, 0]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"C\"\>", LineColor->RGBColor[0., 0.5, 0.], FrontFaceColor->RGBColor[0., 0.5, 0.], BackFaceColor->RGBColor[0., 0.5, 0.], GraphicsColor->RGBColor[0., 0.5, 0.], FontColor->RGBColor[0., 0.5, 0.]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {576., -192.}, {Center, Center}, {360., 360.}], "InsetString"]}, { InsetBox["", {192., -576.}, {Center, Center}, {360., 360.}], TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCS\"\>", LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"C\"\>", LineColor->RGBColor[0., 0.5, 0.], FrontFaceColor->RGBColor[0., 0.5, 0.], BackFaceColor->RGBColor[0., 0.5, 0.], GraphicsColor->RGBColor[0., 0.5, 0.], FontColor->RGBColor[0., 0.5, 0.]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {576., -576.}, {Center, Center}, {360., 360.}], "InsetString"]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -384.}}]}, { LineBox[{{0, -384.}, {0, -768.}}]}, { LineBox[{{384., 0}, {384., -384.}}]}, { LineBox[{{384., -384.}, {384., -768.}}]}, { LineBox[{{768., 0}, {768., -384.}}]}, { LineBox[{{768., -384.}, {768., -768.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -384.}, {384., -384.}}]}, { LineBox[{{384., -384.}, {768., -384.}}]}, { LineBox[{{0, -768.}, {384., -768.}}]}, { LineBox[{{384., -768.}, {768., -768.}}]}}}, Antialiasing->False]}}}, ContentSelectable->True, ImageSize->300, PlotLabel->FormBox[ StyleBox["\"27%\"", GrayLevel[0], 35, StripOnInput -> False], TraditionalForm], PlotRangePadding->{6, 5}], {416.25, -142.5}, ImageScaled[{0.5, 0.5}], {300, 300.}], InsetBox[ GraphicsBox[{{{}, {{InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {192., -192.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox["", {576., -192.}, {Center, Center}, {360., 360.}]}, { InsetBox["", {192., -576.}, {Center, Center}, {360., 360.}], InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {576., -576.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -384.}}]}, { LineBox[{{0, -384.}, {0, -768.}}]}, { LineBox[{{384., 0}, {384., -384.}}]}, { LineBox[{{384., -384.}, {384., -768.}}]}, { LineBox[{{768., 0}, {768., -384.}}]}, { LineBox[{{768., -384.}, {768., -768.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -384.}, {384., -384.}}]}, { LineBox[{{384., -384.}, {768., -384.}}]}, { LineBox[{{0, -768.}, {384., -768.}}]}, { LineBox[{{384., -768.}, {768., -768.}}]}}}, Antialiasing->False]}}, {{}, {{ TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCC\"\>", LineColor->RGBColor[1, 0, 0], FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontColor->RGBColor[1, 0, 0]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"M\"\>", LineColor->RGBColor[0.65, 0.3, 0.65], FrontFaceColor->RGBColor[0.65, 0.3, 0.65], BackFaceColor->RGBColor[0.65, 0.3, 0.65], GraphicsColor->RGBColor[0.65, 0.3, 0.65], FontColor->RGBColor[0.65, 0.3, 0.65]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {192., -192.}, {Center, Center}, {360., 360.}], "InsetString"], InsetBox["", {576., -192.}, {Center, Center}, {360., 360.}]}, { InsetBox["", {192., -576.}, {Center, Center}, {360., 360.}], TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCS\"\>", LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"C\"\>", LineColor->RGBColor[0., 0.5, 0.], FrontFaceColor->RGBColor[0., 0.5, 0.], BackFaceColor->RGBColor[0., 0.5, 0.], GraphicsColor->RGBColor[0., 0.5, 0.], FontColor->RGBColor[0., 0.5, 0.]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {576., -576.}, {Center, Center}, {360., 360.}], "InsetString"]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -384.}}]}, { LineBox[{{0, -384.}, {0, -768.}}]}, { LineBox[{{384., 0}, {384., -384.}}]}, { LineBox[{{384., -384.}, {384., -768.}}]}, { LineBox[{{768., 0}, {768., -384.}}]}, { LineBox[{{768., -384.}, {768., -768.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -384.}, {384., -384.}}]}, { LineBox[{{384., -384.}, {768., -384.}}]}, { LineBox[{{0, -768.}, {384., -768.}}]}, { LineBox[{{384., -768.}, {768., -768.}}]}}}, Antialiasing->False]}}}, ContentSelectable->True, ImageSize->300, PlotLabel->FormBox[ StyleBox["\"16%\"", GrayLevel[0], 35, StripOnInput -> False], TraditionalForm], PlotRangePadding->{6, 5}], {693.75, -142.5}, ImageScaled[{0.5, 0.5}], {300, 300.}]}}, {}}, ContentSelectable->True, ImageSize->{844.5, 297.}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.7407827458190117`*^9, {3.740782823157292*^9, 3.740782828823958*^9}, 3.740782870151071*^9, {3.7407829813338842`*^9, 3.7407830300559893`*^9}, 3.740786111988873*^9, 3.740787253399588*^9, {3.740787538875125*^9, 3.740787627948325*^9}, 3.740787945468706*^9, 3.7407880890359907`*^9, { 3.740788234687313*^9, 3.740788245851474*^9}, 3.740788511777357*^9, 3.7407925070033617`*^9, 3.7423859631448708`*^9, 3.7424152839961147`*^9, 3.742567714247902*^9, 3.742568716049179*^9, 3.746740231224284*^9, 3.746741593887074*^9, 3.746741630578361*^9, {3.7467416884726143`*^9, 3.746741702319727*^9}, 3.746741782056439*^9, {3.7467418871334667`*^9, 3.746742019497753*^9}, {3.746742107405489*^9, 3.746742123528113*^9}, 3.746742262529983*^9, 3.746742299777264*^9, {3.746742533725247*^9, 3.746742570917995*^9}, 3.746743635665823*^9, 3.746743771917376*^9, 3.74674389593813*^9, {3.746743935001149*^9, 3.746743998918173*^9}, 3.746748084293457*^9, 3.7474340840532084`*^9, 3.7474341265342293`*^9, 3.747601324766012*^9, 3.748018151639307*^9, 3.7480235857512293`*^9, 3.749762310159996*^9, 3.750338502563264*^9, {3.7651320016047077`*^9, 3.76513201818642*^9}, {3.76513227860376*^9, 3.765132289288067*^9}, 3.7651327738333883`*^9, 3.765132962868178*^9},ExpressionUUID->"fcfe74af-cd93-4bba-8498-\ 8ac3884a1fd4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Plot", " ", "Top"}], "-", RowBox[{"2", " ", "Article", " ", "types"}], " ", "-", " ", RowBox[{"CCS", " ", "ONLY", " ", "articles"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CCSMQTypes", "=", RowBox[{"Sort", "[", RowBox[{ RowBox[{"Tally", "[", "CCSMQALL", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ">", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Transpose", "[", "CCSMQTypes", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"{", RowBox[{"79", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<330072831\>\"", ",", "\"\<\>\"", ",", "\"\<1\>\"", ",", RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<0\>\""}], "}"}], "}"}], "}"}]}], "}"}]}], "}"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"NumberOfTypes", "=", RowBox[{"Length", "[", "CCSMQTypes", "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"FracTop3", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Take", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CCSMQTypes", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}], "/", RowBox[{"Length", "[", "CCSMQALL", "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"CCS", " ", "-", " ", "ONLY"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ColorBackgroundX", "=", RowBox[{"GrayLevel", "[", "0.75", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SemicolonColorX", "=", "White"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PurpleX", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GreenX", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FontSizeX", "=", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GXALL", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", " ", RowBox[{"Min", "[", RowBox[{"2", ",", "NumberOfTypes"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Datai", "=", RowBox[{ RowBox[{"CCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Fraci", "=", RowBox[{ RowBox[{"CCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"CircleGridA", "=", RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Datai", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"ColorBackgroundX", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Datai", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"ColorBackgroundX", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "300"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"TextGridB", "=", RowBox[{"GraphicsRow", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Datai", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"items", "=", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Blue", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<:\>\"", ",", "SemicolonColorX", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"Lighter", "[", RowBox[{"Purple", ",", "PurpleX"}], "]"}], ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"StringJoin", ",", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], "/@", "items"}]}], "]"}]}]}], " ", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Datai", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"items", "=", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Blue", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<:\>\"", ",", "SemicolonColorX", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"Darker", "[", RowBox[{"Green", ",", "GreenX"}], "]"}], ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"StringJoin", ",", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], "/@", "items"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "300"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"GX", "=", RowBox[{"Show", "[", RowBox[{"CircleGridA", ",", "TextGridB", ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Style", "[", RowBox[{ RowBox[{"StringJoin", "[", " ", RowBox[{ RowBox[{"ToString", "[", RowBox[{"Round", "[", RowBox[{"N", "[", RowBox[{"100", "*", RowBox[{"Fraci", "/", RowBox[{"Length", "[", "CCSMQALL", "]"}]}]}], "]"}], "]"}], "]"}], ",", "\"\<%\>\""}], "]"}], ",", "Black", ",", "40"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GXALL", "=", RowBox[{"Append", "[", RowBox[{"GXALL", ",", "GX"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"G3", "=", RowBox[{"GraphicsRow", "[", RowBox[{"GXALL", ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"Scaled", "[", " ", RowBox[{"-", ".3"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "300"}], "}"}]}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.747511911515155*^9, 3.7475120093398533`*^9}, { 3.747512046291744*^9, 3.7475120757398977`*^9}, {3.747512127042953*^9, 3.747512168458745*^9}, {3.74751261382445*^9, 3.747512614283782*^9}, { 3.7475130729536*^9, 3.747513107310687*^9}, {3.7475131513452597`*^9, 3.747513151620859*^9}, {3.747513381242936*^9, 3.747513381939519*^9}, { 3.7475136352977247`*^9, 3.747513664512309*^9}, {3.747513941799328*^9, 3.7475139643469763`*^9}, {3.747514004890917*^9, 3.747514009688665*^9}, { 3.747514980557995*^9, 3.747514981461163*^9}, {3.747515820379281*^9, 3.747515823296063*^9}, {3.765132044212514*^9, 3.765132057955942*^9}},ExpressionUUID->"16c9ae0c-b4fe-4cc1-95cd-\ 1210f8aa45b7"], Cell[BoxData["931"], "Output", CellChangeTimes->{{3.747513943741373*^9, 3.747513965698184*^9}, 3.7475140130568027`*^9, {3.747514491884286*^9, 3.747514517485407*^9}, { 3.747514972379072*^9, 3.74751498274048*^9}, 3.747519614926426*^9, 3.7476007880861263`*^9, 3.747601325299262*^9, 3.7480181522392*^9, 3.7480235862808437`*^9, 3.749762310721274*^9, 3.7503385031909122`*^9, 3.7651320597726*^9, 3.765132298905014*^9, 3.765132777583748*^9, 3.765132966224626*^9},ExpressionUUID->"13af7b4a-590f-4512-b931-\ d8e522e26ae2"], Cell[BoxData["\<\"Number of Article Mention/Quote Types: of 4 possible: \ {0,1},{1,0},{1,1},{0,0}; The last corresponds to 0 annotations: see next line\ \"\>"], "Print", CellChangeTimes->{{3.747513943759451*^9, 3.747513965712987*^9}, 3.747514013072235*^9, {3.747514491905114*^9, 3.747514517503785*^9}, { 3.7475149723947897`*^9, 3.747514982753257*^9}, 3.747519614934513*^9, 3.747600788092709*^9, 3.7476013253060007`*^9, 3.74801815224597*^9, 3.748023586288012*^9, 3.749762310730378*^9, 3.7503385032001143`*^9, 3.765132059780149*^9, 3.765132298916691*^9, 3.7651327775936832`*^9, 3.765132966241023*^9},ExpressionUUID->"08bb95e7-f43c-4a6f-9fac-\ 616efcddfc81"], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.747513943741373*^9, 3.747513965698184*^9}, 3.7475140130568027`*^9, {3.747514491884286*^9, 3.747514517485407*^9}, { 3.747514972379072*^9, 3.74751498274048*^9}, 3.747519614926426*^9, 3.7476007880861263`*^9, 3.747601325299262*^9, 3.7480181522392*^9, 3.7480235862808437`*^9, 3.749762310721274*^9, 3.7503385031909122`*^9, 3.7651320597726*^9, 3.765132298905014*^9, 3.765132777583748*^9, 3.765132966250155*^9},ExpressionUUID->"623ef344-29e6-4331-802f-\ 882cc5f6c75e"], Cell[BoxData["\<\"Fraction represented by top-2 types\"\>"], "Print", CellChangeTimes->{{3.747513943759451*^9, 3.747513965712987*^9}, 3.747514013072235*^9, {3.747514491905114*^9, 3.747514517503785*^9}, { 3.7475149723947897`*^9, 3.747514982753257*^9}, 3.747519614934513*^9, 3.747600788092709*^9, 3.7476013253060007`*^9, 3.74801815224597*^9, 3.748023586288012*^9, 3.749762310730378*^9, 3.7503385032001143`*^9, 3.765132059780149*^9, 3.765132298916691*^9, 3.7651327775936832`*^9, 3.765132966259089*^9},ExpressionUUID->"6c4b7628-ce53-4a00-bb4c-\ 282042637d18"], Cell[BoxData["0.958109559613319`"], "Output", CellChangeTimes->{{3.747513943741373*^9, 3.747513965698184*^9}, 3.7475140130568027`*^9, {3.747514491884286*^9, 3.747514517485407*^9}, { 3.747514972379072*^9, 3.74751498274048*^9}, 3.747519614926426*^9, 3.7476007880861263`*^9, 3.747601325299262*^9, 3.7480181522392*^9, 3.7480235862808437`*^9, 3.749762310721274*^9, 3.7503385031909122`*^9, 3.7651320597726*^9, 3.765132298905014*^9, 3.765132777583748*^9, 3.765132966269676*^9},ExpressionUUID->"0cd7e1a8-4cc7-40dc-b94c-\ d33a65f4fa6a"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{{}, {{ InsetBox["", {192., -189.}, {Center, Center}, {360., 360.}], InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {576., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -378.}}]}, { LineBox[{{384., 0}, {384., -378.}}]}, { LineBox[{{768., 0}, {768., -378.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -378.}, {384., -378.}}]}, { LineBox[{{384., -378.}, {768., -378.}}]}}}, Antialiasing->False]}}, {{}, {{ InsetBox["", {192., -189.}, {Center, Center}, {360., 360.}], TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCS\"\>", LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"C\"\>", LineColor->RGBColor[0., 0.5, 0.], FrontFaceColor->RGBColor[0., 0.5, 0.], BackFaceColor->RGBColor[0., 0.5, 0.], GraphicsColor->RGBColor[0., 0.5, 0.], FontColor->RGBColor[0., 0.5, 0.]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {576., -189.}, {Center, Center}, {360., 360.}], "InsetString"]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -378.}}]}, { LineBox[{{384., 0}, {384., -378.}}]}, { LineBox[{{768., 0}, {768., -378.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -378.}, {384., -378.}}]}, { LineBox[{{384., -378.}, {768., -378.}}]}}}, Antialiasing->False]}}}, ContentSelectable->True, ImageSize->300, PlotLabel->FormBox[ StyleBox["\"65%\"", GrayLevel[0], 40, StripOnInput -> False], TraditionalForm], PlotRangePadding->{6, 5}], {120., -77.51953125}, ImageScaled[{0.5, 0.5}], {300, 147.65625}], InsetBox[ GraphicsBox[{{{}, {{InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {192., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox["", {576., -189.}, {Center, Center}, {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -378.}}]}, { LineBox[{{384., 0}, {384., -378.}}]}, { LineBox[{{768., 0}, {768., -378.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -378.}, {384., -378.}}]}, { LineBox[{{384., -378.}, {768., -378.}}]}}}, Antialiasing->False]}}, {{}, {{ TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCS\"\>", LineColor->RGBColor[0, 0, 1], FrontFaceColor->RGBColor[0, 0, 1], BackFaceColor->RGBColor[0, 0, 1], GraphicsColor->RGBColor[0, 0, 1], FontColor->RGBColor[0, 0, 1]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"M\"\>", LineColor->RGBColor[0.65, 0.3, 0.65], FrontFaceColor->RGBColor[0.65, 0.3, 0.65], BackFaceColor->RGBColor[0.65, 0.3, 0.65], GraphicsColor->RGBColor[0.65, 0.3, 0.65], FontColor->RGBColor[0.65, 0.3, 0.65]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {192., -189.}, {Center, Center}, {360., 360.}], "InsetString"], InsetBox["", {576., -189.}, {Center, Center}, {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -378.}}]}, { LineBox[{{384., 0}, {384., -378.}}]}, { LineBox[{{768., 0}, {768., -378.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -378.}, {384., -378.}}]}, { LineBox[{{384., -378.}, {768., -378.}}]}}}, Antialiasing->False]}}}, ContentSelectable->True, ImageSize->300, PlotLabel->FormBox[ StyleBox["\"31%\"", GrayLevel[0], 40, StripOnInput -> False], TraditionalForm], PlotRangePadding->{6, 5}], {360., -77.51953125}, ImageScaled[{0.5, 0.5}], {300, 147.65625}]}}, {}}, ContentSelectable->True, ImageSize->{700, 300}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.747513943741373*^9, 3.747513965698184*^9}, 3.7475140130568027`*^9, {3.747514491884286*^9, 3.747514517485407*^9}, { 3.747514972379072*^9, 3.74751498274048*^9}, 3.747519614926426*^9, 3.7476007880861263`*^9, 3.747601325299262*^9, 3.7480181522392*^9, 3.7480235862808437`*^9, 3.749762310721274*^9, 3.7503385031909122`*^9, 3.7651320597726*^9, 3.765132298905014*^9, 3.765132777583748*^9, 3.765132966461858*^9},ExpressionUUID->"9b0727c6-5e4d-4950-a985-\ 4a0a66a23b0a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"Plot", " ", "Top"}], "-", RowBox[{"3", " ", "Article", " ", "types"}], " ", "-", " ", RowBox[{"CCC", " ", "ONLY", " ", "articles"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"CCCMQTypes", "=", RowBox[{"Sort", "[", RowBox[{ RowBox[{"Tally", "[", "CCCMQALL", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], ">", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Total", "[", RowBox[{ RowBox[{"Transpose", "[", "CCCMQTypes", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "\[IndentingNewLine]", RowBox[{ "Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"{", RowBox[{"79", ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<330072831\>\"", ",", "\"\<\>\"", ",", "\"\<1\>\"", ",", RowBox[{"{", RowBox[{"{", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\<0\>\""}], "}"}], "}"}], "}"}]}], "}"}]}], "}"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"NumberOfTypes", "=", RowBox[{"Length", "[", "CCCMQTypes", "]"}]}], "\[IndentingNewLine]", RowBox[{"Print", "[", "\"\\"", "]"}], "\[IndentingNewLine]", RowBox[{"FracTop2", "=", RowBox[{"N", "[", RowBox[{ RowBox[{"Total", "[", RowBox[{"Take", "[", RowBox[{ RowBox[{ RowBox[{"Transpose", "[", "CCCMQTypes", "]"}], "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}], "/", RowBox[{"Length", "[", "CCCMQALL", "]"}]}], "]"}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"CCC", " ", "-", " ", "ONLY"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ColorBackgroundX", "=", RowBox[{"GrayLevel", "[", "0.75", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"SemicolonColorX", "=", "White"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PurpleX", "=", "0.3"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GreenX", "=", "0.5"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FontSizeX", "=", "25"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"GXALL", "=", RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", " ", RowBox[{"Min", "[", RowBox[{"2", ",", "NumberOfTypes"}], "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"Datai", "=", RowBox[{ RowBox[{"CCCMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Fraci", "=", RowBox[{ RowBox[{"CCCMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"CircleGridA", "=", RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Datai", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"ColorBackgroundX", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Datai", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"ColorBackgroundX", ",", RowBox[{"Rectangle", "[", "]"}]}], "}"}], "]"}]}], "]"}]}], "}"}], ",", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "300"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"TextGridB", "=", RowBox[{"GraphicsRow", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Datai", "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"items", "=", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Red", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<:\>\"", ",", "SemicolonColorX", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"Lighter", "[", RowBox[{"Purple", ",", "PurpleX"}], "]"}], ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"StringJoin", ",", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], "/@", "items"}]}], "]"}]}]}], " ", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Datai", "[", RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "1"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"items", "=", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\\"", ",", "Red", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{ "\"\<:\>\"", ",", "SemicolonColorX", ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}], ",", RowBox[{"Style", "[", RowBox[{"\"\\"", ",", RowBox[{"Darker", "[", RowBox[{"Green", ",", "GreenX"}], "]"}], ",", "Bold", ",", "FontSizeX", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}]}], "]"}]}], "}"}]}], ";", " ", RowBox[{"Apply", "[", RowBox[{"StringJoin", ",", RowBox[{ RowBox[{ RowBox[{"ToString", "[", RowBox[{"#", ",", "StandardForm"}], "]"}], "&"}], "/@", "items"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "All"}], ",", RowBox[{"ImageSize", "\[Rule]", " ", "300"}]}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"GX", "=", RowBox[{"Show", "[", RowBox[{"CircleGridA", ",", "TextGridB", ",", RowBox[{"PlotLabel", "\[Rule]", RowBox[{"Style", "[", RowBox[{ RowBox[{"StringJoin", "[", " ", RowBox[{ RowBox[{"ToString", "[", RowBox[{"Round", "[", RowBox[{"N", "[", RowBox[{"100", "*", RowBox[{"Fraci", "/", RowBox[{"Length", "[", "CCCMQALL", "]"}]}]}], "]"}], "]"}], "]"}], ",", "\"\<%\>\""}], "]"}], ",", "Black", ",", "40"}], "]"}]}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"GXALL", "=", RowBox[{"Append", "[", RowBox[{"GXALL", ",", "GX"}], "]"}]}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"G3", "=", RowBox[{"GraphicsRow", "[", RowBox[{"GXALL", ",", RowBox[{"Spacings", "\[Rule]", RowBox[{"Scaled", "[", " ", RowBox[{"-", ".3"}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"700", ",", "300"}], "}"}]}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.747513972011701*^9, 3.747513995967441*^9}, { 3.7475140317160254`*^9, 3.7475141140802*^9}, {3.7475150490605307`*^9, 3.747515049187284*^9}, {3.765132078423018*^9, 3.7651320811420918`*^9}},ExpressionUUID->"c92ba4de-2a15-4db1-825f-\ acf4315a56de"], Cell[BoxData["1168"], "Output", CellChangeTimes->{{3.7475140835910397`*^9, 3.747514117016426*^9}, { 3.747514494464459*^9, 3.7475145220066853`*^9}, 3.747515049672971*^9, 3.747519635452716*^9, 3.7476007885015087`*^9, 3.747601325705017*^9, 3.748018152772976*^9, 3.74802358672333*^9, 3.749762311207225*^9, 3.7503385037693157`*^9, 3.765132082139428*^9, 3.765132335074636*^9, 3.765132797717126*^9, 3.7651329695367393`*^9},ExpressionUUID->"7c7fb7e9-b4bf-477d-b31c-\ 49bc22c85d87"], Cell[BoxData["\<\"Number of Article Mention/Quote Types: of 4 possible: \ {0,1},{1,0},{1,1},{0,0}; The last corresponds to 0 annotations: see next line\ \"\>"], "Print", CellChangeTimes->{{3.747514083602757*^9, 3.747514117029262*^9}, { 3.747514494483233*^9, 3.747514522024027*^9}, 3.747515049689139*^9, 3.747519635460363*^9, 3.747600788508366*^9, 3.747601325711635*^9, 3.7480181527797537`*^9, 3.748023586730427*^9, 3.749762311223529*^9, 3.7503385037775908`*^9, 3.765132082147266*^9, 3.765132335084255*^9, 3.765132797727172*^9, 3.7651329695519257`*^9},ExpressionUUID->"db936f08-9a13-4d72-a45c-\ 42166b4fa241"], Cell[BoxData["3"], "Output", CellChangeTimes->{{3.7475140835910397`*^9, 3.747514117016426*^9}, { 3.747514494464459*^9, 3.7475145220066853`*^9}, 3.747515049672971*^9, 3.747519635452716*^9, 3.7476007885015087`*^9, 3.747601325705017*^9, 3.748018152772976*^9, 3.74802358672333*^9, 3.749762311207225*^9, 3.7503385037693157`*^9, 3.765132082139428*^9, 3.765132335074636*^9, 3.765132797717126*^9, 3.7651329695605297`*^9},ExpressionUUID->"0668cca1-5fd8-4293-ab36-\ a74a29ba5bdf"], Cell[BoxData["\<\"Fraction represented by top-2 types\"\>"], "Print", CellChangeTimes->{{3.747514083602757*^9, 3.747514117029262*^9}, { 3.747514494483233*^9, 3.747514522024027*^9}, 3.747515049689139*^9, 3.747519635460363*^9, 3.747600788508366*^9, 3.747601325711635*^9, 3.7480181527797537`*^9, 3.748023586730427*^9, 3.749762311223529*^9, 3.7503385037775908`*^9, 3.765132082147266*^9, 3.765132335084255*^9, 3.765132797727172*^9, 3.765132969571414*^9},ExpressionUUID->"d40029c4-49ec-43ae-a003-\ a9a5955fbaab"], Cell[BoxData["0.9452054794520548`"], "Output", CellChangeTimes->{{3.7475140835910397`*^9, 3.747514117016426*^9}, { 3.747514494464459*^9, 3.7475145220066853`*^9}, 3.747515049672971*^9, 3.747519635452716*^9, 3.7476007885015087`*^9, 3.747601325705017*^9, 3.748018152772976*^9, 3.74802358672333*^9, 3.749762311207225*^9, 3.7503385037693157`*^9, 3.765132082139428*^9, 3.765132335074636*^9, 3.765132797717126*^9, 3.7651329695829163`*^9},ExpressionUUID->"d11ca3e2-80b2-497f-a1e6-\ 25a4eec9134f"], Cell[BoxData[ GraphicsBox[{{}, {{InsetBox[ GraphicsBox[{{{}, {{InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {192., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}], InsetBox["", {576., -189.}, {Center, Center}, {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -378.}}]}, { LineBox[{{384., 0}, {384., -378.}}]}, { LineBox[{{768., 0}, {768., -378.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -378.}, {384., -378.}}]}, { LineBox[{{384., -378.}, {768., -378.}}]}}}, Antialiasing->False]}}, {{}, {{ TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCC\"\>", LineColor->RGBColor[1, 0, 0], FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontColor->RGBColor[1, 0, 0]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"M\"\>", LineColor->RGBColor[0.65, 0.3, 0.65], FrontFaceColor->RGBColor[0.65, 0.3, 0.65], BackFaceColor->RGBColor[0.65, 0.3, 0.65], GraphicsColor->RGBColor[0.65, 0.3, 0.65], FontColor->RGBColor[0.65, 0.3, 0.65]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {192., -189.}, {Center, Center}, {360., 360.}], "InsetString"], InsetBox["", {576., -189.}, {Center, Center}, {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -378.}}]}, { LineBox[{{384., 0}, {384., -378.}}]}, { LineBox[{{768., 0}, {768., -378.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -378.}, {384., -378.}}]}, { LineBox[{{384., -378.}, {768., -378.}}]}}}, Antialiasing->False]}}}, ContentSelectable->True, ImageSize->300, PlotLabel->FormBox[ StyleBox["\"57%\"", GrayLevel[0], 40, StripOnInput -> False], TraditionalForm], PlotRangePadding->{6, 5}], {120., -77.51953125}, ImageScaled[{0.5, 0.5}], {300, 147.65625}], InsetBox[ GraphicsBox[{{{}, {{ InsetBox["", {192., -189.}, {Center, Center}, {360., 360.}], InsetBox[ GraphicsBox[{ {GrayLevel[0.75], RectangleBox[{0, 0}]}}], {576., -189.}, ImageScaled[{0.5, 0.5}], {360., 360.}]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -378.}}]}, { LineBox[{{384., 0}, {384., -378.}}]}, { LineBox[{{768., 0}, {768., -378.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -378.}, {384., -378.}}]}, { LineBox[{{384., -378.}, {768., -378.}}]}}}, Antialiasing->False]}}, {{}, {{ InsetBox["", {192., -189.}, {Center, Center}, {360., 360.}], TagBox[InsetBox[ StyleBox[ RowBox[{ StyleBox["\<\"CCC\"\>", LineColor->RGBColor[1, 0, 0], FrontFaceColor->RGBColor[1, 0, 0], BackFaceColor->RGBColor[1, 0, 0], GraphicsColor->RGBColor[1, 0, 0], FontColor->RGBColor[1, 0, 0]], StyleBox["\<\":\"\>", LineColor->GrayLevel[1], FrontFaceColor->GrayLevel[1], BackFaceColor->GrayLevel[1], GraphicsColor->GrayLevel[1], FontColor->GrayLevel[1]], StyleBox["\<\"C\"\>", LineColor->RGBColor[0., 0.5, 0.], FrontFaceColor->RGBColor[0., 0.5, 0.], BackFaceColor->RGBColor[0., 0.5, 0.], GraphicsColor->RGBColor[0., 0.5, 0.], FontColor->RGBColor[0., 0.5, 0.]]}], StripOnInput->False, FontFamily->"Helvetica", FontSize->25, FontWeight->Bold], {576., -189.}, {Center, Center}, {360., 360.}], "InsetString"]}}, { StyleBox[{{}, {{LineBox[{{0, 0}, {0, -378.}}]}, { LineBox[{{384., 0}, {384., -378.}}]}, { LineBox[{{768., 0}, {768., -378.}}]}, { LineBox[{{0, 0}, {384., 0}}]}, { LineBox[{{384., 0}, {768., 0}}]}, { LineBox[{{0, -378.}, {384., -378.}}]}, { LineBox[{{384., -378.}, {768., -378.}}]}}}, Antialiasing->False]}}}, ContentSelectable->True, ImageSize->300, PlotLabel->FormBox[ StyleBox["\"38%\"", GrayLevel[0], 40, StripOnInput -> False], TraditionalForm], PlotRangePadding->{6, 5}], {360., -77.51953125}, ImageScaled[{0.5, 0.5}], {300, 147.65625}]}}, {}}, ContentSelectable->True, ImageSize->{700, 300}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.7475140835910397`*^9, 3.747514117016426*^9}, { 3.747514494464459*^9, 3.7475145220066853`*^9}, 3.747515049672971*^9, 3.747519635452716*^9, 3.7476007885015087`*^9, 3.747601325705017*^9, 3.748018152772976*^9, 3.74802358672333*^9, 3.749762311207225*^9, 3.7503385037693157`*^9, 3.765132082139428*^9, 3.765132335074636*^9, 3.765132797717126*^9, 3.765132969741981*^9},ExpressionUUID->"7d7d183c-fe52-4bf8-ac21-\ e00748816431"] }, Open ]], Cell[TextData[StyleBox["Panel B: ", "Subsubsection"]], "Text", CellChangeTimes->{{3.7651323848032846`*^9, 3.765132464076892*^9}},ExpressionUUID->"bbd81c27-0c9d-46e5-b4f6-\ b6578bf6fb55"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Stacked", " ", "Barchart"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "CCCMQTypes", "\[IndentingNewLine]", "CCSMQTypes", "\[IndentingNewLine]", RowBox[{ RowBox[{"FCMCCC", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FCMCCS", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "CCSMQTypes", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"FCMCCS", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{ RowBox[{"CCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"FCMCCS", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"CCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"FCMCCS", "[", RowBox[{"[", "3", "]"}], "]"}], "=", RowBox[{ RowBox[{"CCSMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "FCMCCS", "\[IndentingNewLine]", RowBox[{ RowBox[{"FCMCCS", "=", RowBox[{"N", "[", RowBox[{"FCMCCS", "/", RowBox[{"Total", "[", "FCMCCS", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"Length", "[", "CCCMQTypes", "]"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"FCMCCC", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{ RowBox[{"CCCMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"FCMCCC", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"CCCMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"CCCMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], ",", RowBox[{ RowBox[{ RowBox[{"FCMCCC", "[", RowBox[{"[", "3", "]"}], "]"}], "=", RowBox[{ RowBox[{"CCCMQTypes", "[", RowBox[{"[", "i", "]"}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]}], "]"}], ";"}]}], "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", "FCMCCC", "\[IndentingNewLine]", RowBox[{ RowBox[{"FCMCCC", "=", RowBox[{"N", "[", RowBox[{"FCMCCC", "/", RowBox[{"Total", "[", "FCMCCC", "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Pout2", "=", RowBox[{"BarChart", "[", RowBox[{ RowBox[{"{", RowBox[{"FCMCCC", ",", "FCMCCS", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"ChartLayout", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"ChartStyle", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Purple", ",", ".5"}], "]"}], ",", RowBox[{"Darker", "[", RowBox[{"Green", ",", ".3"}], "]"}], ",", "Black"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"LabelStyle", " ", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Black", ",", RowBox[{"FontSize", "\[Rule]", "36"}], ",", RowBox[{"FontFamily", "\[Rule]", " ", "\"\\""}]}], "]"}]}], ",", RowBox[{"ImageSize", "\[Rule]", RowBox[{"{", RowBox[{"500", ",", "Automatic"}], "}"}]}], ",", RowBox[{"BarSpacing", "\[Rule]", RowBox[{"{", RowBox[{"0.2", ",", " ", "0.5"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2.6"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], " ", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7651328135753593`*^9, 3.7651328154290667`*^9}},ExpressionUUID->"2227f8ff-be35-496c-8864-\ eb46727b51fa"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", "665"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "439"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "64"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.749762311659547*^9, 3.75033850422438*^9, 3.7651320941925077`*^9, 3.765132343406007*^9, {3.7651328043844643`*^9, 3.7651328162737627`*^9}, 3.765132977885713*^9},ExpressionUUID->"ed5b765f-16f3-41a8-bb85-\ 3785cdbf2aea"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], ",", "601"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", "291"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", "39"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.749762311659547*^9, 3.75033850422438*^9, 3.7651320941925077`*^9, 3.765132343406007*^9, {3.7651328043844643`*^9, 3.7651328162737627`*^9}, 3.765132977892507*^9},ExpressionUUID->"142f340f-fee9-44fa-972f-\ 4eb763b0a412"], Cell[BoxData[ RowBox[{"{", RowBox[{"291", ",", "601", ",", "39"}], "}"}]], "Output", CellChangeTimes->{ 3.749762311659547*^9, 3.75033850422438*^9, 3.7651320941925077`*^9, 3.765132343406007*^9, {3.7651328043844643`*^9, 3.7651328162737627`*^9}, 3.76513297789645*^9},ExpressionUUID->"88f9f5be-b9b4-4a4b-ac62-\ 983989fda19c"], Cell[BoxData[ RowBox[{"{", RowBox[{"665", ",", "439", ",", "64"}], "}"}]], "Output", CellChangeTimes->{ 3.749762311659547*^9, 3.75033850422438*^9, 3.7651320941925077`*^9, 3.765132343406007*^9, {3.7651328043844643`*^9, 3.7651328162737627`*^9}, 3.765132977902144*^9},ExpressionUUID->"1088d538-e07d-45d5-929e-\ 01e2d775861f"], Cell[BoxData[ GraphicsBox[{{ {Opacity[0], PointBox[{{0.33333333333333326`, 0.}, {3.333333333333334, 0.}}]}}, {{}, {{{}, {{}, {{ {RGBColor[0.75, 0.5, 0.75], 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.6666666666666666, 0.}, {1.3333333333333335`, 0.5693493150684932}, "RoundingRadius" -> 0]}, ImageSizeCache->{{132.5607692307692, 255.8915384615385}, {-31.947936643835533`, 232.7700000000001}}], StatusArea[#, 0.5693493150684932]& , TagBoxNote->"0.5693493150684932"], StyleBox["0.5693493150684932`", { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.5693493150684932, { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[0., 0.7, 0.], 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.6666666666666666, 0.5693493150684932}, { 1.3333333333333335`, 0.9452054794520548}, "RoundingRadius" -> 0]}, ImageSizeCache->{{132.5607692307692, 255.8915384615385}, {-206.37150684931498`, \ -31.447936643835533`}}], StatusArea[#, 0.3758561643835616]& , TagBoxNote->"0.3758561643835616"], StyleBox["0.3758561643835616`", { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.3758561643835616, { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {GrayLevel[0], 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.6666666666666666, 0.9452054794520548}, { 1.3333333333333335`, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{132.5607692307692, 255.8915384615385}, {-231.7999999999999, \ -205.87150684931498`}}], StatusArea[#, 0.0547945205479452]& , TagBoxNote->"0.0547945205479452"], StyleBox["0.0547945205479452`", { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.0547945205479452, { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}}}, {}, {}}, {{}, {{}, {{ {RGBColor[0.75, 0.5, 0.75], 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[{1.6666666666666667`, 0.}, {2.3333333333333335`, 0.3125671321160043}, "RoundingRadius" -> 0]}, ImageSizeCache->{{316.8069230769231, 440.13769230769236`}, { 87.216970998926, 232.7700000000001}}], StatusArea[#, 0.3125671321160043]& , TagBoxNote->"0.3125671321160043"], StyleBox["0.3125671321160043`", { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.3125671321160043, { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {RGBColor[0., 0.7, 0.], 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[{1.6666666666666667`, 0.3125671321160043}, { 2.3333333333333335`, 0.958109559613319}, "RoundingRadius" -> 0]}, ImageSizeCache->{{316.8069230769231, 440.13769230769236`}, {-212.35990332975285`, 87.716970998926}}], StatusArea[#, 0.6455424274973147]& , TagBoxNote->"0.6455424274973147"], StyleBox["0.6455424274973147`", { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.6455424274973147, { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}, { {GrayLevel[0], 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[{1.6666666666666667`, 0.958109559613319}, { 2.3333333333333335`, 1.}, "RoundingRadius" -> 0]}, ImageSizeCache->{{316.8069230769231, 440.13769230769236`}, {-231.7999999999999, \ -211.85990332975285`}}], StatusArea[#, 0.04189044038668099]& , TagBoxNote->"0.04189044038668099"], StyleBox["0.04189044038668099`", { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}, StripOnInput -> False]], Annotation[#, Style[0.04189044038668099, { Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"]}], "Tooltip"]& ]}}}}, {}, {}}, {{}, {{}, {}}, {}, {}}, {{}, {{}, \ {}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, { StyleBox[{ StyleBox[{{ {Thickness[ Tiny], {LineBox[{{0.33333333333333326`, 0.}, {3.386666666666667, 0.}}]}, StyleBox[{}, "GraphicsLabel", StripOnInput->False]}}, StyleBox[{{ {Thickness[Tiny], LineBox[{{0.6666666666666666, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {0.6666666666666666, 0.}]}], LineBox[{{3.0000000000000004`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {3.0000000000000004`, 0.}]}], {{}, {}, {}, {}, { LineBox[{{1.3333333333333335`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {1.3333333333333335`, 0.}]}], LineBox[{{1.666666666666667, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {1.666666666666667, 0.}]}], LineBox[{{2.3333333333333335`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {2.3333333333333335`, 0.}]}], LineBox[{{2.666666666666667, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {2.666666666666667, 0.}]}], LineBox[{{2.666666666666667, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {2.666666666666667, 0.}]}], LineBox[{{3.0000000000000004`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {3.0000000000000004`, 0.}]}]}}}}, StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False]}, "GraphicsAxes", StripOnInput->False]}}, AspectRatio->1, Axes->{False, True}, AxesLabel->{None, None}, AxesOrigin->{0.33333333333333326`, 0.}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {1.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}}, {{ 1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, {1.5, FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.008, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImageSize->{500, Automatic}, LabelStyle->Directive[ GrayLevel[0], FontSize -> 36, FontFamily -> "Helvetica"], PlotRange->{{0, 2.6}, {0, 1}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{None, Automatic}]], "Output", CellChangeTimes->{ 3.749762311659547*^9, 3.75033850422438*^9, 3.7651320941925077`*^9, 3.765132343406007*^9, {3.7651328043844643`*^9, 3.7651328162737627`*^9}, 3.765132978071206*^9},ExpressionUUID->"2a267f01-0081-42b9-a9a3-\ bae675a95704"] }, Open ]] }, WindowSize->{1440, 851}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 16, \ 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[558, 20, 997, 21, 111, "Text", "ExpressionUUID" -> \ "b6582d5f-4862-4873-b8ee-7c1863e7ba16"], Cell[CellGroupData[{ Cell[1580, 45, 2039, 43, 96, "Input", "ExpressionUUID" -> \ "7114c3a7-4ba2-411a-a364-0dc418eadd65"], Cell[3622, 90, 541, 10, 32, "Output", "ExpressionUUID" -> \ "b6a5bb0d-47d2-4c90-93a3-a69ca54c02c1"], Cell[4166, 102, 459, 9, 32, "Output", "ExpressionUUID" -> \ "4a24d9b1-f29e-478e-9a52-7cd479a060fb"] }, Open ]], Cell[CellGroupData[{ Cell[4662, 116, 3842, 82, 369, "Input", "ExpressionUUID" -> \ "9eb11e33-d7fd-4dcb-9f9a-a54b9692651c"], Cell[8507, 200, 512, 8, 32, "Output", "ExpressionUUID" -> \ "7ec8258f-7e7c-4408-b03f-6c1705c30222"], Cell[9022, 210, 507, 8, 32, "Output", "ExpressionUUID" -> \ "8a7f8a82-781b-4a05-a8d0-9a33415e4247"], Cell[9532, 220, 530, 8, 24, "Print", "ExpressionUUID" -> \ "da55ff56-2ae6-4e21-a4c6-bfd2c067899d"], Cell[10065, 230, 505, 8, 32, "Output", "ExpressionUUID" -> \ "b04ba7e0-2fa0-4d78-8092-34956b2065b9"] }, Open ]], Cell[CellGroupData[{ Cell[10607, 243, 5482, 132, 495, "Input", "ExpressionUUID" -> \ "36be8f48-b3cc-4cfd-8412-c2b305459165"], Cell[16092, 377, 718, 17, 32, "Output", "ExpressionUUID" -> \ "c92261e8-f5ed-43a1-b11e-c12f6f4c7255"], Cell[16813, 396, 272, 5, 32, "Output", "ExpressionUUID" -> \ "2176830a-7ca5-4a52-b1ff-515988b20f8f"], Cell[17088, 403, 776, 21, 32, "Output", "ExpressionUUID" -> \ "65cfabdc-56bf-4f0f-8f01-631fa0bbefa5"], Cell[17867, 426, 272, 5, 32, "Output", "ExpressionUUID" -> \ "82e21364-eeee-446e-b752-aaf99c50202b"], Cell[18142, 433, 899, 22, 32, "Output", "ExpressionUUID" -> \ "e85173ff-3085-4f5a-9970-fc3a02f4045d"], Cell[19044, 457, 287, 5, 32, "Output", "ExpressionUUID" -> \ "5d4c22df-8019-4ace-abd6-0144b0bcf4fa"] }, Open ]], Cell[CellGroupData[{ Cell[19368, 467, 4501, 107, 201, "Input", "ExpressionUUID" -> \ "ec415b3b-78c1-4101-aea1-94b5ee5b181b"], Cell[23872, 576, 235, 4, 32, "Output", "ExpressionUUID" -> \ "ec0fc325-1384-4330-911d-082694613f68"], Cell[24110, 582, 2396, 75, 145, "Output", "ExpressionUUID" -> \ "67d236db-9564-438c-acc7-66fe470ef614"], Cell[26509, 659, 21301, 527, 353, "Output", "ExpressionUUID" -> \ "31347f7f-77b6-41cf-b221-7a2412df78e2"] }, Open ]], Cell[CellGroupData[{ Cell[47847, 1191, 15604, 351, 1251, "Input", "ExpressionUUID" -> \ "6a84477c-175a-47d4-a567-5ff7584208d8"], Cell[63454, 1544, 1220, 18, 32, "Output", "ExpressionUUID" -> \ "a553f9b4-a01e-4395-b523-b723a69cc7a5"], Cell[64677, 1564, 1220, 18, 32, "Output", "ExpressionUUID" -> \ "a1c56dcf-48f4-4713-91b3-c3be22f853b3"], Cell[65900, 1584, 1235, 18, 24, "Print", "ExpressionUUID" -> \ "b3f21ee6-3a19-4abd-8f6a-44ecfb85b2c9"], Cell[67138, 1604, 1218, 18, 32, "Output", "ExpressionUUID" -> \ "5a925367-4ef9-419a-b14e-6af6db303eaf"], Cell[68359, 1624, 1222, 18, 32, "Output", "ExpressionUUID" -> \ "e9642c1a-7ef0-400a-943f-94974fbff33a"], Cell[69584, 1644, 1221, 18, 32, "Output", "ExpressionUUID" -> \ "dbcc0f65-4a5a-43c6-8533-8f2481cc5a68"], Cell[70808, 1664, 1235, 18, 24, "Print", "ExpressionUUID" -> \ "1f651bc7-2e19-49e1-a605-8a21d834f30c"], Cell[72046, 1684, 1217, 18, 32, "Output", "ExpressionUUID" -> \ "bc64e6ed-6e6e-466e-b3a0-aef2825e1985"] }, Open ]], Cell[CellGroupData[{ Cell[73300, 1707, 8331, 211, 1020, "Input", "ExpressionUUID" -> \ "79b139fe-dc15-40ca-9840-9ad43f3132aa"], Cell[81634, 1920, 348, 6, 32, "Output", "ExpressionUUID" -> \ "67d7c018-80c7-4e20-beb7-88f606ca326f"], Cell[81985, 1928, 346, 6, 32, "Output", "ExpressionUUID" -> \ "147e2e8d-af4f-4b19-bd59-649eb3a7ee9c"], Cell[82334, 1936, 712, 18, 32, "Output", "ExpressionUUID" -> \ "24583afa-b1fd-40a4-8587-db8ffa976a6a"], Cell[83049, 1956, 346, 6, 32, "Output", "ExpressionUUID" -> \ "8ba8d379-a0a9-43ba-8080-a9a3dfbec250"], Cell[83398, 1964, 713, 18, 32, "Output", "ExpressionUUID" -> \ "e95b1fef-e6a0-43a1-a74b-beb76a3b519f"], Cell[84114, 1984, 348, 6, 32, "Output", "ExpressionUUID" -> \ "887c9d0a-b67a-44aa-ae67-872858080d00"], Cell[84465, 1992, 710, 18, 32, "Output", "ExpressionUUID" -> \ "d22e242b-1ee6-456d-979e-b09bc8c6767a"], Cell[85178, 2012, 348, 6, 32, "Output", "ExpressionUUID" -> \ "2af0febb-5a27-46bf-adaa-fc0975e202de"], Cell[85529, 2020, 517, 10, 32, "Output", "ExpressionUUID" -> \ "a1067264-d7ed-4e86-a7fa-6e8a3d7156b0"], Cell[86049, 2032, 343, 6, 32, "Output", "ExpressionUUID" -> \ "05b0186a-c0ba-4003-be98-b23548513295"], Cell[86395, 2040, 1047, 27, 32, "Output", "ExpressionUUID" -> \ "4b09551b-1cad-43a3-b45f-39d76873fbfd"], Cell[87445, 2069, 210, 3, 24, "Print", "ExpressionUUID" -> \ "7f9d6009-f28b-402b-b087-3a1e7b9e6996"], Cell[87658, 2074, 406, 8, 32, "Output", "ExpressionUUID" -> \ "587418c7-be99-4bca-bc46-d732534e7712"] }, Open ]], Cell[88079, 2085, 190, 3, 37, "Text", "ExpressionUUID" -> \ "93838a01-face-49b4-b2b4-3a1d7761921c"], Cell[CellGroupData[{ Cell[88294, 2092, 1527, 37, 117, "Input", "ExpressionUUID" -> \ "142a0d65-9b0a-4d55-b971-5e0760ea50cb"], Cell[89824, 2131, 1023, 27, 32, "Output", "ExpressionUUID" -> \ "908daadc-8198-45bc-bf8c-4df261a78cea"], Cell[90850, 2160, 835, 20, 32, "Output", "ExpressionUUID" -> \ "aebf3f24-de8c-46ee-8fe0-29a8519e360c"], Cell[91688, 2182, 24967, 595, 316, "Output", "ExpressionUUID" -> \ "5f122a17-36e9-4c3d-99c2-ed21fcd6ca61"] }, Open ]], Cell[116670, 2780, 190, 3, 37, "Text", "ExpressionUUID" -> \ "9f2aa38b-a2b5-476a-aebb-058d0f45e6f1"], Cell[CellGroupData[{ Cell[116885, 2787, 15116, 345, 957, "Input", "ExpressionUUID" -> \ "b8a5be01-767a-4898-b0fc-9a06a9bcf5b2"], Cell[132004, 3134, 1397, 21, 32, "Output", "ExpressionUUID" -> \ "32581020-12ff-4787-bdf2-fc980498b703"], Cell[133404, 3157, 1395, 21, 32, "Output", "ExpressionUUID" -> \ "f00cd440-04e3-45ab-9c0d-7c1796f52180"], Cell[134802, 3180, 1348, 20, 24, "Print", "ExpressionUUID" -> \ "5a64739d-8ae5-40d4-a6c0-11b41a8ea8fc"], Cell[136153, 3202, 1393, 21, 32, "Output", "ExpressionUUID" -> \ "d5e75f59-acfc-4bcf-9cfb-2f0bcc46299c"], Cell[137549, 3225, 1346, 20, 24, "Print", "ExpressionUUID" -> \ "1044a8f0-446c-4fe1-a4e3-f67859dccc03"], Cell[138898, 3247, 1411, 21, 32, "Output", "ExpressionUUID" -> \ "6e9a160a-fbcf-4a02-8bf2-7f77be4bb184"], Cell[140312, 3270, 15468, 323, 312, "Output", "ExpressionUUID" -> \ "fcfe74af-cd93-4bba-8498-8ac3884a1fd4"] }, Open ]], Cell[CellGroupData[{ Cell[155817, 3598, 10206, 244, 789, "Input", "ExpressionUUID" -> \ "16c9ae0c-b4fe-4cc1-95cd-1210f8aa45b7"], Cell[166026, 3844, 536, 8, 32, "Output", "ExpressionUUID" -> \ "13af7b4a-590f-4512-b931-d8e522e26ae2"], Cell[166565, 3854, 680, 10, 24, "Print", "ExpressionUUID" -> \ "08bb95e7-f43c-4a6f-9fac-616efcddfc81"], Cell[167248, 3866, 534, 8, 32, "Output", "ExpressionUUID" -> \ "623ef344-29e6-4331-802f-882cc5f6c75e"], Cell[167785, 3876, 579, 8, 24, "Print", "ExpressionUUID" -> \ "6c4b7628-ce53-4a00-bb4c-282042637d18"], Cell[168367, 3886, 551, 8, 32, "Output", "ExpressionUUID" -> \ "0cd7e1a8-4cc7-40dc-b94c-d33a65f4fa6a"], Cell[168921, 3896, 5922, 127, 315, "Output", "ExpressionUUID" -> \ "9b0727c6-5e4d-4950-a985-4a0a66a23b0a"] }, Open ]], Cell[CellGroupData[{ Cell[174880, 4028, 9769, 238, 789, "Input", "ExpressionUUID" -> \ "c92ba4de-2a15-4db1-825f-acf4315a56de"], Cell[184652, 4268, 497, 8, 32, "Output", "ExpressionUUID" -> \ "7c7fb7e9-b4bf-477d-b31c-49bc22c85d87"], Cell[185152, 4278, 633, 10, 24, "Print", "ExpressionUUID" -> \ "db936f08-9a13-4d72-a45c-42166b4fa241"], Cell[185788, 4290, 494, 8, 32, "Output", "ExpressionUUID" -> \ "0668cca1-5fd8-4293-ab36-a74a29ba5bdf"], Cell[186285, 4300, 530, 8, 24, "Print", "ExpressionUUID" -> \ "d40029c4-49ec-43ae-a003-a9a5955fbaab"], Cell[186818, 4310, 512, 8, 32, "Output", "ExpressionUUID" -> \ "d11ca3e2-80b2-497f-a1e6-25a4eec9134f"], Cell[187333, 4320, 5880, 127, 315, "Output", "ExpressionUUID" -> \ "7d7d183c-fe52-4bf8-ac21-e00748816431"] }, Open ]], Cell[193228, 4450, 190, 3, 37, "Text", "ExpressionUUID" -> \ "bbd81c27-0c9d-46e5-b4f6-b6578bf6fb55"], Cell[CellGroupData[{ Cell[193443, 4457, 6861, 191, 516, "Input", "ExpressionUUID" -> \ "2227f8ff-be35-496c-8864-eb46727b51fa"], Cell[200307, 4650, 643, 19, 32, "Output", "ExpressionUUID" -> \ "ed5b765f-16f3-41a8-bb85-3785cdbf2aea"], Cell[200953, 4671, 643, 19, 32, "Output", "ExpressionUUID" -> \ "142f340f-fee9-44fa-972f-4eb763b0a412"], Cell[201599, 4692, 336, 7, 32, "Output", "ExpressionUUID" -> \ "88f9f5be-b9b4-4a4b-ac62-983989fda19c"], Cell[201938, 4701, 337, 7, 32, "Output", "ExpressionUUID" -> \ "1088d538-e07d-45d5-929e-01e2d775861f"], Cell[202278, 4710, 15031, 370, 524, "Output", "ExpressionUUID" -> \ "2a267f01-0081-42b9-a9a3-bae675a95704"] }, Open ]] } ] *)