(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 1071414, 24314] NotebookOptionsPosition[ 910199, 21264] NotebookOutlinePosition[ 1052671, 23936] CellTagsIndexPosition[ 1050735, 23885] WindowTitle->PhylogeneticTreePlot | Definition Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["PhylogeneticTreePlot", "Title", CellTags->{"Name", "TemplateCell", "Title"}, CellID->393707907], Cell["Plot a dendrogram for a set of genome nucleotide sequences", "Text", CellTags->{"Description", "TemplateCell"}, CellID->797800175], Cell[CellGroupData[{ Cell[TextData[{ "Definition", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Function", Cell[ BoxData[ FrameBox[ Cell[ "Define your function using the name you gave in the Title line \ above. You can add input cells and extra code to define additional input \ cases or prerequisites. All definitions, including dependencies, will be \ included in the generated resource function.\n\nThis section should be \ evaluated before creating the Examples section below.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoFunction"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Function"}, DefaultNewCellStyle->"Input", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[BoxData[ RowBox[{ RowBox[{"FCGR", ":=", RowBox[{"FCGR", "=", RowBox[{"ResourceFunction", "[", "\"\\"", "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7718527562392473`*^9, 3.771852811247635*^9}, 3.771852847659134*^9, {3.771854027044162*^9, 3.771854043987393*^9}, { 3.774970245791907*^9, 3.77497025088875*^9}}, CellLabel->"In[354]:=", CellID->626053428], Cell[BoxData[ RowBox[{ RowBox[{"srules", "=", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "\"\\""}], ",", RowBox[{ RowBox[{"Except", "[", RowBox[{"Characters", "[", "\"\\"", "]"}], "]"}], "\[Rule]", "\"\<\>\""}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{ 3.75347283648125*^9, {3.753473938029674*^9, 3.753473947915803*^9}, { 3.753474304228881*^9, 3.753474318589628*^9}, {3.753474648775257*^9, 3.753474649433894*^9}, {3.753475569799128*^9, 3.753475570443009*^9}, { 3.753475636741787*^9, 3.7534756373307962`*^9}, {3.7534762826909924`*^9, 3.753476283524138*^9}, {3.7535276557883387`*^9, 3.7535276587491627`*^9}, { 3.753529778399157*^9, 3.753529785060402*^9}, {3.7535403454566803`*^9, 3.753540349712929*^9}, {3.753551105339957*^9, 3.7535511088462257`*^9}, 3.753553848823008*^9, {3.7535575416783257`*^9, 3.753557633072822*^9}, 3.7538023603389482`*^9, {3.753812536420205*^9, 3.753812541026885*^9}, 3.753898634910118*^9, 3.7538986690691357`*^9, {3.754160379281934*^9, 3.754160397880314*^9}, 3.754160442585061*^9, 3.7541604769380913`*^9, { 3.754164763465344*^9, 3.7541647736091337`*^9}, {3.75421935739226*^9, 3.7542193626255407`*^9}, {3.754234262949684*^9, 3.754234267188389*^9}, { 3.754234943133091*^9, 3.754234972317915*^9}, 3.754252682561654*^9, { 3.7542527212325706`*^9, 3.754252772224105*^9}, {3.7544160229626837`*^9, 3.7544160289784937`*^9}, 3.758221807001786*^9, 3.765543319366376*^9, { 3.768042144005989*^9, 3.768042144685779*^9}, 3.7680720719638767`*^9, { 3.768225727733179*^9, 3.768225728266617*^9}, {3.768499409266904*^9, 3.768499414376893*^9}, 3.7684996268600073`*^9, {3.768499795528018*^9, 3.7684997962785473`*^9}}, CellLabel->"In[355]:=", CellID->464303832], Cell[BoxData[ RowBox[{ RowBox[{"processNucleotideString", "[", RowBox[{"chars_", ",", "dim_", ",", "freq_"}], "]"}], ":=", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"fcgr", "=", RowBox[{"ImageData", "[", RowBox[{"FCGR", "[", RowBox[{ RowBox[{"StringReplace", "[", RowBox[{ RowBox[{"ToUpperCase", "[", "chars", "]"}], ",", "srules"}], "]"}], ",", "dim"}], "]"}], "]"}]}], ",", "ftt"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"fcgr", "=", RowBox[{ RowBox[{"(", RowBox[{"fcgr", "/", RowBox[{"N", "[", RowBox[{"Max", "[", "fcgr", "]"}], "]"}]}], ")"}], "^", RowBox[{"(", RowBox[{"1", "/", "5"}], ")"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"ftt", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{"FourierDCT", "[", RowBox[{ RowBox[{"fcgr", "-", RowBox[{"Mean", "[", RowBox[{"Flatten", "[", "fcgr", "]"}], "]"}]}], ",", "4"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"1", ";;", "freq"}], ",", RowBox[{"1", ";;", "freq"}]}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ftt", "-", RowBox[{"Mean", "[", "ftt", "]"}]}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input", CellChangeTimes->{{3.7534732312386417`*^9, 3.753473278561242*^9}, { 3.753473313425991*^9, 3.753473507338367*^9}, {3.753473728856904*^9, 3.7534737720098248`*^9}, 3.753474052978464*^9, {3.753474331717586*^9, 3.753474345343609*^9}, {3.7534744416900682`*^9, 3.7534744462431173`*^9}, { 3.7534744786756887`*^9, 3.7534744832394133`*^9}, {3.753474590694859*^9, 3.753474595685792*^9}, {3.7534751168933983`*^9, 3.753475123709262*^9}, { 3.753475160022505*^9, 3.753475160223929*^9}, {3.753553773989295*^9, 3.753553776458157*^9}, {3.7543241851770353`*^9, 3.754324188519929*^9}, { 3.75432660353937*^9, 3.754326609646699*^9}, {3.765541530579587*^9, 3.765541554091259*^9}, {3.770396546400316*^9, 3.770396550625201*^9}, 3.770396582065394*^9, {3.77039661871559*^9, 3.770396619170329*^9}, { 3.771853804192669*^9, 3.771853833289405*^9}, {3.771854051021003*^9, 3.7718540612522993`*^9}, 3.786807368884122*^9}, CellLabel->"In[356]:=", CellID->804757398], Cell[BoxData[ RowBox[{ RowBox[{"FTTsToVectors", "[", RowBox[{"ivecs_", ",", "keep_", ",", "io_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"uu", ",", "ww", ",", "vv", ",", "udotw", ",", "norms"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"uu", ",", "ww", ",", "vv"}], "}"}], "=", "\[IndentingNewLine]", RowBox[{"SingularValueDecomposition", "[", RowBox[{"ivecs", ",", RowBox[{"Min", "[", RowBox[{"keep", ",", RowBox[{"Length", "[", "ivecs", "]"}]}], "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"udotw", "=", RowBox[{"uu", ".", "ww"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"TrueQ", "[", "io", "]"}], "||", RowBox[{"(", RowBox[{ RowBox[{"io", "===", "Automatic"}], " ", "&&", RowBox[{ RowBox[{"ww", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], ">", RowBox[{"10", "*", RowBox[{"ww", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}]}], ")"}]}], ",", "\[IndentingNewLine]", RowBox[{"udotw", "=", RowBox[{"udotw", "[", RowBox[{"[", RowBox[{"All", ",", RowBox[{"2", ";;"}]}], "]"}], "]"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"norms", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Sqrt", "[", RowBox[{"#", ".", "#"}], "]"}], "&"}], ",", "udotw"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"udotw", "=", RowBox[{"udotw", "/", "norms"}]}], ";", "\[IndentingNewLine]", RowBox[{"udotw", "=", RowBox[{"Join", "[", RowBox[{"udotw", ",", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{"Log", "[", "norms", "]"}], "}"}], "]"}], ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", "udotw"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7686447174339113`*^9, 3.768644751340247*^9}, { 3.770230459859129*^9, 3.770230519054426*^9}, {3.770230568823748*^9, 3.7702305712883043`*^9}, {3.770311659496148*^9, 3.77031167358379*^9}, { 3.771852896899891*^9, 3.771852901217348*^9}, 3.77185368275931*^9, { 3.79483337427164*^9, 3.794833390271737*^9}, {3.7948334355387907`*^9, 3.7948334989608383`*^9}, {3.7948335620141*^9, 3.794833584870483*^9}, { 3.794834154421927*^9, 3.794834177562022*^9}, {3.794834526568654*^9, 3.794834527703343*^9}}, CellLabel->"In[384]:=", CellID->762119344], Cell[BoxData[ RowBox[{ RowBox[{"Options", "[", "PhylogeneticTreePlot", "]"}], ":=", RowBox[{"Join", "[", RowBox[{ RowBox[{"DeleteCases", "[", RowBox[{ RowBox[{"Options", "[", "Dendrogram", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"AspectRatio", "|", "ImageSize", "|", "FeatureExtractor"}], ")"}], "\[Rule]", "_"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", RowBox[{"FeatureExtractor", "\[Rule]", "None"}], ",", RowBox[{"\"\\"", "\[Rule]", "Left"}], ",", RowBox[{"\"\\"", "\[Rule]", "Automatic"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.786806788266177*^9, 3.7868068503140907`*^9}, { 3.7901937165862513`*^9, 3.790193780147373*^9}, 3.7901943258657303`*^9, { 3.790194628806114*^9, 3.790194629140871*^9}, {3.794832892932233*^9, 3.794832936628771*^9}, {3.794836853231097*^9, 3.794836941533753*^9}, { 3.7948369796321907`*^9, 3.794836980890358*^9}, {3.7948370552239933`*^9, 3.7948370594300823`*^9}, {3.7948371603714123`*^9, 3.794837161036592*^9}, { 3.794839980744014*^9, 3.7948400102502728`*^9}, {3.7948400700652103`*^9, 3.7948400730449553`*^9}, {3.794840150743767*^9, 3.7948401511238327`*^9}, { 3.794840209761017*^9, 3.7948402104603977`*^9}, {3.7948405130371513`*^9, 3.794840516710997*^9}, 3.794840932198689*^9}, CellLabel->"In[531]:=", CellID->823537076], Cell[BoxData[ RowBox[{ RowBox[{"PhylogeneticTreePlot", "[", RowBox[{"geneseqs_", ",", "labels_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"freq", "=", "30"}], ",", RowBox[{"keep", "=", "40"}], ",", RowBox[{"dim", "=", "7"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "ftts", ",", "vecs", ",", "ratio", ",", "size", ",", "fe", ",", "orient", ",", "io", ",", "optsd"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ratio", ",", "size", ",", "fe", ",", "orient", ",", "io"}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ "AspectRatio", ",", "ImageSize", ",", "FeatureExtractor", ",", "\"\\"", ",", "\"\\""}], "}"}], "/.", RowBox[{"{", "opts", "}"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{ "AspectRatio", ",", "ImageSize", ",", "FeatureExtractor", ",", "\"\\"", ",", "\"\\""}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"OptionValue", "[", "AspectRatio", "]"}], ",", RowBox[{"OptionValue", "[", "ImageSize", "]"}], ",", RowBox[{"OptionValue", "[", "FeatureExtractor", "]"}], ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}], ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"optsd", "=", RowBox[{"FilterRules", "[", RowBox[{ RowBox[{"{", "opts", "}"}], ",", RowBox[{"Options", "[", "Dendrogram", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ftts", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Developer`ToPackedArray", "[", RowBox[{"processNucleotideString", "[", RowBox[{"#", ",", "dim", ",", "freq"}], "]"}], "]"}], "&"}], ",", "geneseqs"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vecs", "=", RowBox[{"FTTsToVectors", "[", RowBox[{"ftts", ",", "keep", ",", "io"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Dendrogram", "[", RowBox[{ RowBox[{"vecs", "->", "labels"}], ",", "orient", ",", RowBox[{"AspectRatio", "\[Rule]", "ratio"}], ",", RowBox[{"ImageSize", "\[Rule]", "size"}], ",", RowBox[{"FeatureExtractor", "\[Rule]", "fe"}], ",", RowBox[{"Apply", "[", RowBox[{"Sequence", ",", "optsd"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.790194571910336*^9, 3.790194596876575*^9}, { 3.790194956682764*^9, 3.79019498062131*^9}, {3.79019501259584*^9, 3.7901950202024937`*^9}, {3.794832980274725*^9, 3.794833062046605*^9}, { 3.794833101745573*^9, 3.79483311186754*^9}, {3.794833180485696*^9, 3.7948332003499603`*^9}, {3.794833242258224*^9, 3.79483326876788*^9}, { 3.794833302818321*^9, 3.7948333031591053`*^9}, {3.7948338387590647`*^9, 3.794833842984433*^9}, {3.7948339152405243`*^9, 3.794833919054718*^9}, { 3.794834208708397*^9, 3.7948342149795523`*^9}, 3.7948368183741283`*^9, { 3.79483718939189*^9, 3.794837283324463*^9}, {3.794837385336795*^9, 3.7948374637158213`*^9}, {3.794837563000341*^9, 3.7948376177788258`*^9}, { 3.794837682743443*^9, 3.794837712235571*^9}, 3.794837758821608*^9, 3.7948377993934803`*^9, {3.79483783548522*^9, 3.794837855168763*^9}, { 3.794837902740011*^9, 3.7948381128017197`*^9}, {3.7948400341692533`*^9, 3.794840096525134*^9}, {3.794840130677503*^9, 3.7948401888940268`*^9}, 3.794840934734703*^9}, CellLabel->"In[532]:=", CellID->354867230] }, Open ]], Cell[CellGroupData[{ Cell["Documentation", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Documentation"}, CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[TextData[{ "Usage", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Usage", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Document input usage cases by first typing an input structure, \ then pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " to add a brief explanation of the function\[CloseCurlyQuote]s \ behavior for that structure. Pressing ", Cell[ BoxData[ StyleBox[ DynamicBox[ ToBoxes[ If[$OperatingSystem === "MacOSX", "\[ReturnKey]", "\[EnterKey]"], StandardForm], SingleEvaluation -> True, Evaluator -> "System"], ShowStringCharacters -> False]]], " repeatedly will create new cases as needed. Every input usage \ case defined above should be demonstrated explicitly here.\n\nSee existing \ documentation pages for examples."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoUsage"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Usage"}, DefaultNewCellStyle->{"UsageInputs", FontFamily -> "Source Sans Pro"}, CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PhylogeneticTreePlot", "[", RowBox[{ StyleBox["seqs", "TI"], ",", StyleBox["slabels", "TI"]}], "]"}]], "UsageInputs", FontFamily->"Source Sans Pro", CellID->368083331], Cell[TextData[{ "gives a dendrogram plot that groups the genetic sequences ", Cell[BoxData[ StyleBox["seqs", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], " and labels them with ", Cell[BoxData[ StyleBox["slabels", "TI"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "UsageDescription", CellID->693246804] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Details & Options", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Notes", Cell[ BoxData[ FrameBox[ Cell[ "Give a detailed explanation of how the function is used and \ configured (e.g. acceptable input types, result formats, options \ specifications, background information). This section may include multiple \ cells, bullet lists, tables, hyperlinks and additional styles/structures as \ needed.\n\nAdd any other information that may be relevant, such as when the \ function was first discovered or how and why it is used within a given field. \ Include all relevant background or contextual information related to the \ function, its development, and its usage.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Notes"}, DefaultNewCellStyle->"Notes", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[TextData[{ Cell[BoxData["PhylogeneticTreePlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " uses an alignment-free method to compare pairs of sequences." }], "Notes", CellID->310272339], Cell[TextData[{ "Input sequences should be strings comprised of the standard nucleotide \ letters ", Cell[BoxData[ RowBox[{"{", RowBox[{"A", ",", "C", ",", "G", ",", "T"}], "}"}]], "InlineFormula", FontFamily->"Source Sans Pro"], ". Lowercase letters are also allowed. The character U is allowed and is \ replaced by T. All other characters, such as N, are removed." }], "Notes", CellID->768832785], Cell[TextData[{ Cell[BoxData["PhylogeneticTreePlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " uses ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " and accepts all options for that function." }], "Notes", CellTags->"TabNext", CellID->256333194], Cell[TextData[{ "Most default option settings agree with those of ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->247779061], Cell[TextData[{ "As with ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ", the ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DistanceFunction", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/DistanceFunction", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " defaults to ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " which, for purposes of this function, is ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["EuclideanDistance", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/EuclideanDistance", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Notes", CellID->830307387], Cell[TextData[{ Cell[BoxData["PhylogeneticTreePlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " creates the dendrogram from vectors that are derived via dimensional \ reductions of the input genetic sequences." }], "Notes", CellID->560284888], Cell["\<\ Each sequence is first converted to an image using the Frequency Chaos Game \ Representation (FCGR).\ \>", "Notes", CellID->70989574], Cell["\<\ FCGR images are reduced in dimension using a Fourier Cosine Transform (FCT). \ A further dimensional reduction is done using the Singular Value \ Decomposition (SVD) on vectors comprised of the flattened FCT matrices.\ \>", "Notes", CellID->895470882], Cell["\<\ An explanation may be found in the articles noted in the Related Links and \ Source Metadata sections.\ \>", "Notes", CellID->97077930], Cell[TextData[{ "The dimensional reduction described above has certain parameters that in \ principle might be changed. ", Cell[BoxData["PhylogeneticTreePlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " uses a fixed set of values for these that has been seen to perform fairly \ well in practice." }], "Notes", CellID->472906536], Cell[TextData[{ "In order to produce a reasonable grouping, ", Cell[BoxData["PhylogeneticTreePlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " requires moderately long genetic sequences containing at least a few \ thousand nucleotides." }], "Notes", CellID->695797799], Cell[TextData[{ "The SVD step of the dimension reduction, when applied to vectors that came \ from a set of very similar genome sequences, will tend to give a result where \ the reduced vectors are dominated by a large first value that is \ approximately equal across the set. This tends to distort the distances \ between genomes. The option ", Cell[BoxData["\"\\""], "InlineFormula", FontFamily->"Source Sans Pro"], " (default: ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Automatic", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Automatic", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], ") is provided to address this. The automatic behavior is to remove the \ first components whenever the largest singular value is at least ten times \ the size of the next largest." }], "Notes", CellID->981541505] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Examples", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Examples", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Demonstrate the function\[CloseCurlyQuote]s usage, starting with \ the most basic use case and describing each example in a preceding text cell.\ \n\nWithin a group, individual examples can be delimited by inserting page \ breaks between them (either using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"[Right-click]\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Insert Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], " between cells or through the menu using ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"Insert\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False], StyleBox[ "\" \[FilledRightTriangle] \"", FontFamily -> "Source Sans Pro", FontSize -> 13.86, FontColor -> GrayLevel[0.5], StripOnInput -> False], StyleBox[ "\"Page Break\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontColor -> GrayLevel[0.286275], FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], ").\n\nExamples should be grouped into Subsection and \ Subsubsection cells similarly to existing documentation pages. Here are some \ typical Subsection names and the types of examples they normally contain:\n \ ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Basic Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "most basic function usage\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Scope: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "input and display conventions, standard computational attributes \ (e.g. threading over lists)\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Options: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "available options and parameters for the function\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Applications: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "standard industry or academic applications\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Properties and Relations: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "how the function relates to other functions\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Possible Issues: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "limitations or unexpected behavior a user might experience\n ", Cell[ BoxData[ StyleBox[ TemplateBox[{ StyleBox[ "\"\[FilledSmallSquare] \"", FontColor -> RGBColor[0.8, 0.043, 0.008], StripOnInput -> False], StyleBox[ "\"Neat Examples: \"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontSize -> 14, StripOnInput -> False]}, "RowDefault"], ShowStringCharacters -> False]]], "particularly interesting, unconventional, or otherwise unique \ usage"}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoExamples"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Examples"}, CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell["Basic Examples", "Subsection", TaggingRules->{}, CellID->904125756], Cell["\<\ Obtain genes for a type of breast cancer from the entity store:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.771869058110647*^9, 3.771869078550983*^9}, { 3.771874646803211*^9, 3.771874647754414*^9}, {3.771937404991588*^9, 3.771937426366253*^9}}, CellID->448373921], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"InputForm", "[", RowBox[{"brca2", "=", RowBox[{"SemanticInterpretation", "[", RowBox[{"\"\\"", ",", RowBox[{"AmbiguityFunction", "\[Rule]", "All"}]}], "]"}]}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->968427631], Cell["\<\ AmbiguityList[{Entity[\"Gene\", {\"BRCA2\", {\"Species\" -> \ \"HomoSapiens\"}}], Entity[\"Gene\", {\"Brca2\", {\"Species\" -> \"MusMusculus\"}}], Entity[\"Gene\", {\"Brca2\", {\"Species\" -> \"DrosophilaMelanogaster\"}}], \ Entity[\"Gene\", {\"Brca2\", {\"Species\" -> \"RattusNorvegicus\"}}], Entity[\"Gene\", {\"BRCA2B\", {\"Species\" -> \"ArabidopsisThaliana\"}}], Entity[\"Gene\", {\"BRCA2IV\", {\"Species\" -> \"ArabidopsisThaliana\"}}], Entity[\"Gene\", {\"Brca2\", {\"Species\" -> \"DanioRerio\"}}], Entity[\"Gene\", {\"BRCA2\", {\"Species\" -> \"CanisLupusFamiliaris\"}}], Entity[\"Gene\", {\"BRCA2\", {\"Species\" -> \"PanTroglodytes\"}}], Entity[\"Gene\", {\"BRCA2\", {\"Species\" -> \"GallusGallus\"}}]}, \"brca2 \ gene\"]\ \>", "Output", TaggingRules->{}, CellChangeTimes->{3.771937430416809*^9, 3.78680640090493*^9, 3.790193822274502*^9, 3.794833715632985*^9}, CellLabel->"Out[361]//InputForm=", CellID->559791601] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"bcGenes", "=", RowBox[{"brca2", "[", RowBox[{"[", "1", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.77193684767692*^9, {3.771936913913507*^9, 3.7719369177767982`*^9}}, CellLabel->"In[2]:=", CellID->731810193], Cell[BoxData[ RowBox[{"{", RowBox[{ TemplateBox[{"\"breast cancer 2, early onset\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"BRCA2\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"HomoSapiens\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"BRCA2\\\", {\\\"Species\\\" -> \ \\\"HomoSapiens\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"breast cancer 2\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"Brca2\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"MusMusculus\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"Brca2\\\", {\\\"Species\\\" -> \ \\\"MusMusculus\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"Breast cancer 2, early onset homolog\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"Brca2\"", ",", RowBox[{"{", RowBox[{ "\"Species\"", "\[Rule]", "\"DrosophilaMelanogaster\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"Brca2\\\", {\\\"Species\\\" -> \ \\\"DrosophilaMelanogaster\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"breast cancer 2, early onset\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"Brca2\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"RattusNorvegicus\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"Brca2\\\", {\\\"Species\\\" -> \ \\\"RattusNorvegicus\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"protein BRCA2-like B\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"BRCA2B\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"ArabidopsisThaliana\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"BRCA2B\\\", {\\\"Species\\\" -> \ \\\"ArabidopsisThaliana\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"breast cancer protein 2 like 2A\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"BRCA2IV\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"ArabidopsisThaliana\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"BRCA2IV\\\", {\\\"Species\\\" -> \ \\\"ArabidopsisThaliana\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"breast cancer 2, early onset\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"Brca2\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"DanioRerio\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"Brca2\\\", {\\\"Species\\\" -> \ \\\"DanioRerio\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"breast cancer 2, early onset\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"BRCA2\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"CanisLupusFamiliaris\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"BRCA2\\\", {\\\"Species\\\" -> \ \\\"CanisLupusFamiliaris\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"breast cancer 2, early onset\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"BRCA2\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"PanTroglodytes\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"BRCA2\\\", {\\\"Species\\\" -> \ \\\"PanTroglodytes\\\"}}]\"", "\"gene\""}, "Entity"], ",", TemplateBox[{"\"breast cancer 2, early onset\"", RowBox[{"Entity", "[", RowBox[{"\"Gene\"", ",", RowBox[{"{", RowBox[{"\"BRCA2\"", ",", RowBox[{"{", RowBox[{"\"Species\"", "\[Rule]", "\"GallusGallus\""}], "}"}]}], "}"}]}], "]"}], "\"Entity[\\\"Gene\\\", {\\\"BRCA2\\\", {\\\"Species\\\" -> \ \\\"GallusGallus\\\"}}]\"", "\"gene\""}, "Entity"]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.786806409388709*^9, 3.790193824303364*^9, 3.794833722086664*^9}, CellLabel->"Out[2]=", CellID->906588656] }, Open ]], Cell["Obtain the nucleotide sequences and species names:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771869058110647*^9, 3.771869078550983*^9}, { 3.771874646803211*^9, 3.771874647754414*^9}, {3.771937404991588*^9, 3.771937426366253*^9}, {3.771937470477169*^9, 3.771937492453905*^9}}, CellID->658853089], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"refseqs", "=", RowBox[{"Through", "[", RowBox[{"bcGenes", "[", "\"\\"", "]"}], "]"}]}], ";"}], "\n", RowBox[{"species", "=", RowBox[{"Through", "[", RowBox[{"bcGenes", "[", "\"\\"", "]"}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.7719365372825813`*^9, 3.771936573428914*^9}, 3.771936636612246*^9, 3.7719369430228777`*^9}, CellLabel->"In[3]:=", CellID->855053993], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"Homo sapiens\"\>", ",", "\<\"Mus musculus\"\>", ",", "\<\"Drosophila melanogaster\"\>", ",", "\<\"Rattus norvegicus\"\>", ",", "\<\"Arabidopsis thaliana\"\>", ",", "\<\"Arabidopsis thaliana\"\>", ",", "\<\"Danio rerio\"\>", ",", "\<\"Canis lupus familiaris\"\>", ",", "\<\"Pan troglodytes\"\>", ",", "\<\"Gallus gallus\"\>"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7868064250313063`*^9, 3.790193826173004*^9, 3.794833734251223*^9}, CellLabel->"Out[3]=", CellID->633460541] }, Open ]], Cell["Plot the phylogenetic tree derived from these genes:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771937513397911*^9, 3.771937529528914*^9}}, CellID->317476171], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PhylogeneticTreePlot", "[", RowBox[{"refseqs", ",", "species"}], "]"}]], "Input", TaggingRules->{}, CellLabel->"In[4]:=", CellID->943540020], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-0.7670145837770347, 72.1875}, {-1.1969299947315781`, 72.1875}}, {{0, 100}, {-1.1969299947315781`, 100.}}, {{-1.1969299947315781`, 72.1875}, {-1.1969299947315781`, 100.}}, {{-0.6561500835355559, 59.375}, {-0.7670145837770347, 59.375}}, {{-0.48600664841007063`, 85.}, {-0.7670145837770347, 85.}}, {{-0.7670145837770347, 59.375}, {-0.7670145837770347, 85.}}, {{-0.5090277688757919, 48.75}, {-0.6561500835355559, 48.75}}, {{0, 70}, {-0.6561500835355559, 70.}}, {{-0.6561500835355559, 48.75}, {-0.6561500835355559, 70.}}, {{-0.463108577971004, 37.5}, {-0.5090277688757919, 37.5}}, {{0, 60}, {-0.5090277688757919, 60.}}, {{-0.5090277688757919, 37.5}, {-0.5090277688757919, 60.}}, {{-0.440071584640349, 25.}, {-0.463108577971004, 25.}}, {{0, 50}, {-0.463108577971004, 50.}}, {{-0.463108577971004, 25.}, {-0.463108577971004, 50.}}, {{-0.21365050012861664`, 15.}, {-0.440071584640349, 15.}}, {{-0.42723085268912814`, 35.}, {-0.440071584640349, 35.}}, {{-0.440071584640349, 15.}, {-0.440071584640349, 35.}}, {{0, 10}, {-0.21365050012861664`, 10.}}, {{0, 20}, {-0.21365050012861664`, 20.}}, {{-0.21365050012861664`, 10.}, {-0.21365050012861664`, 20.}}, {{0, 30}, {-0.42723085268912814`, 30.}}, {{0, 40}, {-0.42723085268912814`, 40.}}, {{-0.42723085268912814`, 30.}, {-0.42723085268912814`, 40.}}, {{0, 80}, {-0.48600664841007063`, 80.}}, {{0, 90}, {-0.48600664841007063`, 90.}}, {{-0.48600664841007063`, 80.}, {-0.48600664841007063`, 90.}}}]}, InsetBox[ FrameBox[ TagBox["\<\"Homo sapiens\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Pan troglodytes\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Mus musculus\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Canis lupus familiaris\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Rattus norvegicus\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 50}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Gallus gallus\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 60}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Danio rerio\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 70}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Arabidopsis thaliana\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 80}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Arabidopsis thaliana\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 90}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Drosophila melanogaster\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 100}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->1.2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->600, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.79483400780892*^9, 3.7948345442183447`*^9, 3.7948409760738277`*^9}, CellLabel->"Out[4]=", CellID->526113504] }, Open ]], Cell[TextData[{ "One can force ", Cell[BoxData["PhylogeneticTreePlot"], "InlineFormula", FontFamily->"Source Sans Pro"], " to ignore the largest singular value in the dimension-reduction:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.771855256630143*^9, 3.771855283038764*^9}, { 3.7718557058769484`*^9, 3.771855732957199*^9}, 3.782570635775551*^9, { 3.786806316587069*^9, 3.786806371339027*^9}, {3.79483468541955*^9, 3.794834702176963*^9}, {3.794834745928062*^9, 3.794834778329756*^9}}, CellID->292210186], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PhylogeneticTreePlot", "[", RowBox[{"refseqs", ",", "species", ",", RowBox[{"\"\\"", "\[Rule]", "True"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7948340780667057`*^9, 3.794834106355893*^9}}, CellLabel->"In[5]:=", CellID->226030557], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-1.4608162332460395`, 46.875}, {-1.545527070100663, 46.875}}, {{-1.245766512855159, 85.}, {-1.545527070100663, 85.}}, {{-1.545527070100663, 46.875}, {-1.545527070100663, 85.}}, {{-1.2568175665913275`, 33.75}, {-1.4608162332460395`, 33.75}}, {{0, 60}, {-1.4608162332460395`, 60.}}, {{-1.4608162332460395`, 33.75}, {-1.4608162332460395`, 60.}}, {{-1.2510076413471924`, 22.5}, {-1.2568175665913275`, 22.5}}, {{-1.2523058934946907`, 45.}, {-1.2568175665913275`, 45.}}, {{-1.2568175665913275`, 22.5}, {-1.2568175665913275`, 45.}}, {{-0.6308864320477938, 15.}, {-1.2510076413471924`, 15.}}, {{0, 30}, {-1.2510076413471924`, 30.}}, {{-1.2510076413471924`, 15.}, {-1.2510076413471924`, 30.}}, {{0, 10}, {-0.6308864320477938, 10.}}, {{0, 20}, {-0.6308864320477938, 20.}}, {{-0.6308864320477938, 10.}, {-0.6308864320477938, 20.}}, {{0, 40}, {-1.2523058934946907`, 40.}}, {{0, 50}, {-1.2523058934946907`, 50.}}, {{-1.2523058934946907`, 40.}, {-1.2523058934946907`, 50.}}, {{-1.218446669228606, 75.}, {-1.245766512855159, 75.}}, {{-0.7167258950343421, 95.}, {-1.245766512855159, 95.}}, {{-1.245766512855159, 75.}, {-1.245766512855159, 95.}}, {{0, 70}, {-1.218446669228606, 70.}}, {{0, 80}, {-1.218446669228606, 80.}}, {{-1.218446669228606, 70.}, {-1.218446669228606, 80.}}, {{0, 90}, {-0.7167258950343421, 90.}}, {{0, 100}, {-0.7167258950343421, 100.}}, {{-0.7167258950343421, 90.}, {-0.7167258950343421, 100.}}}]}, InsetBox[ FrameBox[ TagBox["\<\"Homo sapiens\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Pan troglodytes\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Canis lupus familiaris\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Mus musculus\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Rattus norvegicus\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 50}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Gallus gallus\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 60}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Danio rerio\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 70}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Drosophila melanogaster\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 80}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Arabidopsis thaliana\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 90}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox["\<\"Arabidopsis thaliana\"\>", Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 100}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->1.2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->600, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7948347930974617`*^9, 3.794840985984676*^9}, CellLabel->"Out[5]=", CellID->279424955] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Neat Examples", "Subsection", TaggingRules->{}, CellID->461278909], Cell[CellGroupData[{ Cell["Mammal benchmark", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.794842001361862*^9, 3.7948420069666443`*^9}}, CellID->925271820], Cell["\<\ This example was introduced in the referenced article \"A novel fast vector \ method for genetic sequence comparison\" by Li, He, He and Yau and also used \ in \"Alignment-free genomic sequence comparison using FCGR and signal \ processing\".\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.771855256630143*^9, 3.771855283038764*^9}, { 3.7718557058769484`*^9, 3.771855732957199*^9}, 3.782570635775551*^9, { 3.786806316587069*^9, 3.786806371339027*^9}, {3.859310385610313*^9, 3.859310396221918*^9}}, CellID->384138995], Cell["\<\ Show an example that has appeared in literature on alignment-free methods for \ clustering gene sequences:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.771855256630143*^9, 3.771855283038764*^9}, { 3.782570611678907*^9, 3.7825706133209763`*^9}}, CellID->324515653], Cell[BoxData[ RowBox[{ RowBox[{"genomesMammal", " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768579604635819*^9, 3.768579921364442*^9}, { 3.768581619293043*^9, 3.7685816196279488`*^9}, 3.7686444724817057`*^9, { 3.7686445359299498`*^9, 3.7686445363692913`*^9}, 3.770574116588291*^9}, CellLabel->"In[1]:=", CellID->76512659], Cell[BoxData[ RowBox[{ RowBox[{"speciesMammalColored", "=", RowBox[{"{", RowBox[{ StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, 0, 1], $CellContext`LineColor -> RGBColor[0, 0, 1], $CellContext`FrontFaceColor -> RGBColor[0, 0, 1], $CellContext`GraphicsColor -> RGBColor[0, 0, 1], $CellContext`BackFaceColor -> RGBColor[0, 0, 1]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, 0, 1], $CellContext`LineColor -> RGBColor[0, 0, 1], $CellContext`FrontFaceColor -> RGBColor[0, 0, 1], $CellContext`GraphicsColor -> RGBColor[0, 0, 1], $CellContext`BackFaceColor -> RGBColor[0, 0, 1]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.2, 0.2, 0.2], $CellContext`LineColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`FrontFaceColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`GraphicsColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`BackFaceColor -> RGBColor[0.2, 0.2, 0.2]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.4, 0.4, 0.4], $CellContext`LineColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`FrontFaceColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`GraphicsColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`BackFaceColor -> RGBColor[0.4, 0.4, 0.4]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]]}], "}"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.786806208177793*^9, 3.7868062460276947`*^9}}, CellLabel->"In[2]:=", CellID->385015616], Cell[TextData[{ "Use the resource function ", ButtonBox["ImportFASTA", BaseStyle->"Hyperlink", ButtonData->{ URL["https://resources.wolframcloud.com/FunctionRepository/resources/\ ImportFASTA/"], None}, ButtonNote-> "https://resources.wolframcloud.com/FunctionRepository/resources/\ ImportFASTA/"], " to download the genetic sequences from GenBank for the previously shown \ accession identifiers:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.771855256630143*^9, 3.771855283038764*^9}, { 3.77185576079751*^9, 3.771855806806363*^9}, {3.771856010145797*^9, 3.771856042914195*^9}, {3.782572314420478*^9, 3.782572318244631*^9}, { 3.859310412794705*^9, 3.859310427008259*^9}}, CellID->69746996], Cell[BoxData[ RowBox[{ RowBox[{"getFASTA", "=", RowBox[{"ResourceFunction", "[", "\"\\"", "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7718527562392473`*^9, 3.771852811247635*^9}, 3.771852847659134*^9, 3.771853158309629*^9}, CellLabel->"In[3]:=", CellID->597769104], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"AbsoluteTiming", "[", RowBox[{ RowBox[{"sequencesMammal", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{"getFASTA", ",", "genomesMammal"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}]}], ";"}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.768644516896545*^9, 3.768644540785755*^9}, { 3.7687421668160143`*^9, 3.768742204703722*^9}, {3.770563164714883*^9, 3.77056317196205*^9}, {3.770574147695201*^9, 3.7705741536797857`*^9}, 3.771853393817154*^9, {3.7718539049141293`*^9, 3.771853916969563*^9}}, CellLabel->"In[4]:=", CellID->822913452], Cell[BoxData[ RowBox[{"{", RowBox[{"57.346261`", ",", "Null"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.771853459818565*^9, 3.771853974466405*^9, 3.786805553842722*^9, 3.790194257746567*^9, 3.79483965521047*^9}, CellLabel->"Out[4]=", CellID->401927165] }, Open ]], Cell["Plot the phylogenetic tree:", "Text", TaggingRules->{}, CellChangeTimes->{{3.771937513397911*^9, 3.771937529528914*^9}, { 3.859310473432767*^9, 3.859310474006785*^9}}, CellID->859249790], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PhylogeneticTreePlot", "[", RowBox[{"sequencesMammal", ",", "speciesMammalColored", ",", RowBox[{"PlotLabel", "->", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.771853563979854*^9, 3.771853591356636*^9}, 3.7868062612006693`*^9, {3.794841374542959*^9, 3.7948413778778477`*^9}}, CellLabel->"In[5]:=", CellID->564852337], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-0.5817944055167121, 1329.4207458496094`}, {-0.5896089275330711, 1329.4207458496094`}}, {{-0.5652063744198749, 1645.125}, {-0.5896089275330711, 1645.125}}, {{-0.5896089275330711, 1329.4207458496094`}, {-0.5896089275330711, 1645.125}}, {{-0.5705732771346512, 1141.8414916992188`}, {-0.5817944055167121, 1141.8414916992188`}}, {{0, 1517}, {-0.5817944055167121, 1517.}}, {{-0.5817944055167121, 1141.8414916992188`}, {-0.5817944055167121, 1517.}}, {{-0.5695404593280077, 828.1829833984375}, {-0.5705732771346512, 828.1829833984375}}, {{-0.3210816748009878, 1455.5}, {-0.5705732771346512, 1455.5}}, {{-0.5705732771346512, 828.1829833984375}, {-0.5705732771346512, 1455.5}}, {{-0.5355650161974764, 357.1484375}, {-0.5695404593280077, 357.1484375}}, {{-0.5564945122967705, 1299.217529296875}, {-0.5695404593280077, 1299.217529296875}}, {{-0.5695404593280077, 357.1484375}, {-0.5695404593280077, 1299.217529296875}}, {{-0.5315989045700495, 304.296875}, {-0.5355650161974764, 304.296875}}, {{0, 410}, {-0.5355650161974764, 410.}}, {{-0.5355650161974764, 304.296875}, {-0.5355650161974764, 410.}}, {{-0.5286928507804673, 239.59375}, {-0.5315989045700495, 239.59375}}, {{0, 369}, {-0.5315989045700495, 369.}}, {{-0.5315989045700495, 239.59375}, {-0.5315989045700495, 369.}}, {{-0.5107567802172208, 171.6875}, {-0.5286928507804673, 171.6875}}, {{-0.5229931951004023, 307.5}, {-0.5286928507804673, 307.5}}, {{-0.5286928507804673, 171.6875}, {-0.5286928507804673, 307.5}}, {{-0.4877197431286218, 117.875}, {-0.5107567802172208, 117.875}}, {{-0.40986391598085586`, 225.5}, {-0.5107567802172208, 225.5}}, {{-0.5107567802172208, 117.875}, {-0.5107567802172208, 225.5}}, {{-0.4555567917945515, 71.75}, {-0.4877197431286218, 71.75}}, {{0, 164}, {-0.4877197431286218, 164.}}, {{-0.4877197431286218, 71.75}, {-0.4877197431286218, 164.}}, {{0, 41}, {-0.4555567917945515, 41.}}, {{-0.3527592533227301, 102.5}, {-0.4555567917945515, 102.5}}, {{-0.4555567917945515, 41.}, {-0.4555567917945515, 102.5}}, {{0, 82}, {-0.3527592533227301, 82.}}, {{0, 123}, {-0.3527592533227301, 123.}}, {{-0.3527592533227301, 82.}, {-0.3527592533227301, 123.}}, {{0, 205}, {-0.40986391598085586`, 205.}}, {{0, 246}, {-0.40986391598085586`, 246.}}, {{-0.40986391598085586`, 205.}, {-0.40986391598085586`, 246.}}, {{0, 287}, {-0.5229931951004023, 287.}}, {{0, 328}, {-0.5229931951004023, 328.}}, {{-0.5229931951004023, 287.}, {-0.5229931951004023, 328.}}, {{-0.5517683625245611, 1224.93505859375}, {-0.5564945122967705, 1224.93505859375}}, {{-0.5368035933875374, 1373.5}, {-0.5564945122967705, 1373.5}}, {{-0.5564945122967705, 1224.93505859375}, {-0.5564945122967705, 1373.5}}, {{-0.543854519125624, 1137.8701171875}, {-0.5517683625245611, 1137.8701171875}}, {{0, 1312}, {-0.5517683625245611, 1312.}}, {{-0.5517683625245611, 1137.8701171875}, {-0.5517683625245611, 1312.}}, {{-0.5345886037829052, 1035.490234375}, {-0.543854519125624, 1035.490234375}}, {{-0.5335851320736736, 1240.25}, {-0.543854519125624, 1240.25}}, {{-0.543854519125624, 1035.490234375}, {-0.543854519125624, 1240.25}}, {{-0.5302561054060899, 943.48046875}, {-0.5345886037829052, 943.48046875}}, {{-0.41678613525155017`, 1127.5}, {-0.5345886037829052, 1127.5}}, {{-0.5345886037829052, 943.48046875}, {-0.5345886037829052, 1127.5}}, {{-0.5229143100338727, 841.4609375}, {-0.5302561054060899, 841.4609375}}, {{-0.4978177498329176, 1045.5}, {-0.5302561054060899, 1045.5}}, {{-0.5302561054060899, 841.4609375}, {-0.5302561054060899, 1045.5}}, {{-0.5188656009635978, 719.421875}, {-0.5229143100338727, 719.421875}}, {{-0.44907728480188774`, 963.5}, {-0.5229143100338727, 963.5}}, {{-0.5229143100338727, 719.421875}, {-0.5229143100338727, 963.5}}, {{-0.49898076437066824`, 586.8125}, {-0.5188656009635978, 586.8125}}, {{-0.5027132187062511, 852.03125}, {-0.5188656009635978, 852.03125}}, {{-0.5188656009635978, 586.8125}, {-0.5188656009635978, 852.03125}}, {{-0.4636445397585406, 517.625}, {-0.49898076437066824`, 517.625}}, {{0, 656}, {-0.49898076437066824`, 656.}}, {{-0.49898076437066824`, 517.625}, {-0.49898076437066824`, 656.}}, {{-0.3780701362885806, 471.5}, {-0.4636445397585406, 471.5}}, {{-0.43541619055473196`, 563.75}, {-0.4636445397585406, 563.75}}, {{-0.4636445397585406, 471.5}, {-0.4636445397585406, 563.75}}, {{0, 451}, {-0.3780701362885806, 451.}}, {{0, 492}, {-0.3780701362885806, 492.}}, {{-0.3780701362885806, 451.}, {-0.3780701362885806, 492.}}, {{0, 533}, {-0.43541619055473196`, 533.}}, {{-0.4183434900162373, 594.5}, {-0.43541619055473196`, 594.5}}, {{-0.43541619055473196`, 533.}, {-0.43541619055473196`, 594.5}}, {{0, 574}, {-0.4183434900162373, 574.}}, {{0, 615}, {-0.4183434900162373, 615.}}, {{-0.4183434900162373, 574.}, {-0.4183434900162373, 615.}}, {{-0.49653816821307, 802.0625}, {-0.5027132187062511, 802.0625}}, {{0, 902}, {-0.5027132187062511, 902.}}, {{-0.5027132187062511, 802.0625}, {-0.5027132187062511, 902.}}, {{-0.46259808380293893`, 743.125}, {-0.49653816821307, 743.125}}, {{0, 861}, {-0.49653816821307, 861.}}, {{-0.49653816821307, 743.125}, {-0.49653816821307, 861.}}, {{0, 697}, {-0.46259808380293893`, 697.}}, {{-0.4495788964108924, 789.25}, {-0.46259808380293893`, 789.25}}, {{-0.46259808380293893`, 697.}, {-0.46259808380293893`, 789.25}}, {{-0.4480027776388545, 758.5}, {-0.4495788964108924, 758.5}}, {{0, 820}, {-0.4495788964108924, 820.}}, {{-0.4495788964108924, 758.5}, {-0.4495788964108924, 820.}}, {{0, 738}, {-0.4480027776388545, 738.}}, {{0, 779}, {-0.4480027776388545, 779.}}, {{-0.4480027776388545, 738.}, {-0.4480027776388545, 779.}}, {{0, 943}, {-0.44907728480188774`, 943.}}, {{0, 984}, {-0.44907728480188774`, 984.}}, {{-0.44907728480188774`, 943.}, {-0.44907728480188774`, 984.}}, {{0, 1025}, {-0.4978177498329176, 1025.}}, {{0, 1066}, {-0.4978177498329176, 1066.}}, {{-0.4978177498329176, 1025.}, {-0.4978177498329176, 1066.}}, {{0, 1107}, {-0.41678613525155017`, 1107.}}, {{0, 1148}, {-0.41678613525155017`, 1148.}}, {{-0.41678613525155017`, 1107.}, {-0.41678613525155017`, 1148.}}, {{-0.49717466957729145`, 1209.5}, {-0.5335851320736736, 1209.5}}, {{0, 1271}, {-0.5335851320736736, 1271.}}, {{-0.5335851320736736, 1209.5}, {-0.5335851320736736, 1271.}}, {{0, 1189}, {-0.49717466957729145`, 1189.}}, {{0, 1230}, {-0.49717466957729145`, 1230.}}, {{-0.49717466957729145`, 1189.}, {-0.49717466957729145`, 1230.}}, {{0, 1353}, {-0.5368035933875374, 1353.}}, {{0, 1394}, {-0.5368035933875374, 1394.}}, {{-0.5368035933875374, 1353.}, {-0.5368035933875374, 1394.}}, {{0, 1435}, {-0.3210816748009878, 1435.}}, {{0, 1476}, {-0.3210816748009878, 1476.}}, {{-0.3210816748009878, 1435.}, {-0.3210816748009878, 1476.}}, {{-0.4845440058910529, 1609.25}, {-0.5652063744198749, 1609.25}}, {{0, 1681}, {-0.5652063744198749, 1681.}}, {{-0.5652063744198749, 1609.25}, {-0.5652063744198749, 1681.}}, {{-0.09815385532712292, 1578.5}, {-0.4845440058910529, 1578.5}}, {{0, 1640}, {-0.4845440058910529, 1640.}}, {{-0.4845440058910529, 1578.5}, {-0.4845440058910529, 1640.}}, {{0, 1558}, {-0.09815385532712292, 1558.}}, {{0, 1599}, {-0.09815385532712292, 1599.}}, {{-0.09815385532712292, 1558.}, {-0.09815385532712292, 1599.}}}]}, InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Human\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Pigmy chimpanzee\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 82}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Common chimpanzee\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 123}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Gorilla\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 164}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Bornean orangutan\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 205}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Sumatran orangutan\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 246}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Vervet monkey\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 287}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Macaca thibet\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 328}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Baboon\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 369}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Gibbon\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 410}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"North pacific right whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 451}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Bowhead whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 492}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Gray whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 533}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Fin whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 574}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Blue whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 615}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Indus river dolphin\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 656}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Taiwan serow\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 697}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Chiru\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 738}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Goat\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 779}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Sheep\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 820}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Cow\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 861}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Buffalo\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 902}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Common warthog\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 943}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Pig\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 984}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Indian rhinoceros\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1025}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"White rhinoceros\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1066}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Donkey\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1107}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Horse\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1148}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Leopard\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1189}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Tiger\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1230}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Cat\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1271}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Rabbit\"\>", StripOnInput->False, FontColor->RGBColor[0.2, 0.2, 0.2], $CellContext`LineColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`FrontFaceColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`GraphicsColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`BackFaceColor -> RGBColor[0.2, 0.2, 0.2]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1312}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Dormouse\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1353}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Squirrel\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1394}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Wolf\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1], $CellContext`LineColor -> RGBColor[0, 0, 1], $CellContext`FrontFaceColor -> RGBColor[0, 0, 1], $CellContext`GraphicsColor -> RGBColor[0, 0, 1], $CellContext`BackFaceColor -> RGBColor[0, 0, 1]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1435}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Dog\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1], $CellContext`LineColor -> RGBColor[0, 0, 1], $CellContext`FrontFaceColor -> RGBColor[0, 0, 1], $CellContext`GraphicsColor -> RGBColor[0, 0, 1], $CellContext`BackFaceColor -> RGBColor[0, 0, 1]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1476}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Hedgehog\"\>", StripOnInput->False, FontColor->RGBColor[0.4, 0.4, 0.4], $CellContext`LineColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`FrontFaceColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`GraphicsColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`BackFaceColor -> RGBColor[0.4, 0.4, 0.4]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1517}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Polar bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1558}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Brown bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1599}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Black bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1640}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Giant panda\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1681}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->1.2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->600, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->FormBox["\"Mammalian mitochondrial DNA\"", TraditionalForm], PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.786811606954125*^9, 3.7948396603669853`*^9, 3.794841388423657*^9}, CellLabel->"Out[5]=", CellID->851484851] }, Open ]], Cell["Use a non-default method for clustering:", "Text", TaggingRules->{}, CellChangeTimes->{{3.790195156964785*^9, 3.790195172332985*^9}, { 3.794841790336836*^9, 3.7948418063064747`*^9}}, CellID->363334525], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PhylogeneticTreePlot", "[", RowBox[{"sequencesMammal", ",", "speciesMammalColored", ",", RowBox[{"PlotLabel", "->", "\"\\""}], ",", RowBox[{"ClusterDissimilarityFunction", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.79019413626998*^9, 3.790194146468952*^9}, { 3.794841403293038*^9, 3.794841480819997*^9}, 3.79484151753404*^9, { 3.7948416794179363`*^9, 3.794841679694334*^9}, {3.794841734237825*^9, 3.7948417553127193`*^9}, {3.794841822559916*^9, 3.794841848765871*^9}}, CellLabel->"In[6]:=", CellID->771934812], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-0.5821139268890141, 267.78125}, {-0.7135726784134193, 267.78125}}, {{-0.6364206652736015, 1484.98876953125}, {-0.7135726784134193, 1484.98876953125}}, {{-0.7135726784134193, 267.78125}, {-0.7135726784134193, 1484.98876953125}}, {{-0.5527055150537424, 176.8125}, {-0.5821139268890141, 176.8125}}, {{-0.5390415735876775, 358.75}, {-0.5821139268890141, 358.75}}, {{-0.5821139268890141, 176.8125}, {-0.5821139268890141, 358.75}}, {{-0.49248360641352096`, 117.875}, {-0.5527055150537424, 117.875}}, {{-0.5399280286398203, 235.75}, {-0.5527055150537424, 235.75}}, {{-0.5527055150537424, 117.875}, {-0.5527055150537424, 235.75}}, {{-0.45862168703598866`, 71.75}, {-0.49248360641352096`, 71.75}}, {{0, 164}, {-0.49248360641352096`, 164.}}, {{-0.49248360641352096`, 71.75}, {-0.49248360641352096`, 164.}}, {{0, 41}, {-0.45862168703598866`, 41.}}, {{-0.3527592533227301, 102.5}, {-0.45862168703598866`, 102.5}}, {{-0.45862168703598866`, 41.}, {-0.45862168703598866`, 102.5}}, {{0, 82}, {-0.3527592533227301, 82.}}, {{0, 123}, {-0.3527592533227301, 123.}}, {{-0.3527592533227301, 82.}, {-0.3527592533227301, 123.}}, {{0, 205}, {-0.5399280286398203, 205.}}, {{-0.40986391598085586`, 266.5}, {-0.5399280286398203, 266.5}}, {{-0.5399280286398203, 205.}, {-0.5399280286398203, 266.5}}, {{0, 246}, {-0.40986391598085586`, 246.}}, {{0, 287}, {-0.40986391598085586`, 287.}}, {{-0.40986391598085586`, 246.}, {-0.40986391598085586`, 287.}}, {{0, 328}, {-0.5390415735876775, 328.}}, {{-0.5229931951004023, 389.5}, {-0.5390415735876775, 389.5}}, {{-0.5390415735876775, 328.}, {-0.5390415735876775, 389.5}}, {{0, 369}, {-0.5229931951004023, 369.}}, {{0, 410}, {-0.5229931951004023, 410.}}, {{-0.5229931951004023, 369.}, {-0.5229931951004023, 410.}}, {{-0.6263847372730655, 1319.7275390625}, {-0.6364206652736015, 1319.7275390625}}, {{-0.5836584956812281, 1650.25}, {-0.6364206652736015, 1650.25}}, {{-0.6364206652736015, 1319.7275390625}, {-0.6364206652736015, 1650.25}}, {{-0.5952942539343924, 1158.330078125}, {-0.6263847372730655, 1158.330078125}}, {{-0.5804479681064184, 1481.125}, {-0.6263847372730655, 1481.125}}, {{-0.6263847372730655, 1158.330078125}, {-0.6263847372730655, 1481.125}}, {{-0.5851566060896476, 989.28515625}, {-0.5952942539343924, 989.28515625}}, {{-0.5939192990511851, 1327.375}, {-0.5952942539343924, 1327.375}}, {{-0.5952942539343924, 989.28515625}, {-0.5952942539343924, 1327.375}}, {{-0.5600245178130165, 789.5703125}, {-0.5851566060896476, 789.5703125}}, {{0, 1189}, {-0.5851566060896476, 1189.}}, {{-0.5851566060896476, 789.5703125}, {-0.5851566060896476, 1189.}}, {{-0.5101917463812167, 591.9375}, {-0.5600245178130165, 591.9375}}, {{-0.5532335176072307, 987.203125}, {-0.5600245178130165, 987.203125}}, {{-0.5600245178130165, 591.9375}, {-0.5600245178130165, 987.203125}}, {{-0.4729242448583978, 527.875}, {-0.5101917463812167, 527.875}}, {{0, 656}, {-0.5101917463812167, 656.}}, {{-0.5101917463812167, 527.875}, {-0.5101917463812167, 656.}}, {{-0.3780701362885806, 471.5}, {-0.4729242448583978, 471.5}}, {{-0.4469548235532186, 584.25}, {-0.4729242448583978, 584.25}}, {{-0.4729242448583978, 471.5}, {-0.4729242448583978, 584.25}}, {{0, 451}, {-0.3780701362885806, 451.}}, {{0, 492}, {-0.3780701362885806, 492.}}, {{-0.3780701362885806, 451.}, {-0.3780701362885806, 492.}}, {{-0.4183434900162373, 553.5}, {-0.4469548235532186, 553.5}}, {{0, 615}, {-0.4469548235532186, 615.}}, {{-0.4469548235532186, 553.5}, {-0.4469548235532186, 615.}}, {{0, 533}, {-0.4183434900162373, 533.}}, {{0, 574}, {-0.4183434900162373, 574.}}, {{-0.4183434900162373, 533.}, {-0.4183434900162373, 574.}}, {{-0.5329850466013315, 887.90625}, {-0.5532335176072307, 887.90625}}, {{-0.5410447340268351, 1086.5}, {-0.5532335176072307, 1086.5}}, {{-0.5532335176072307, 887.90625}, {-0.5532335176072307, 1086.5}}, {{-0.5119320519552588, 812.3125}, {-0.5329850466013315, 812.3125}}, {{-0.44907728480188774`, 963.5}, {-0.5329850466013315, 963.5}}, {{-0.5329850466013315, 812.3125}, {-0.5329850466013315, 963.5}}, {{-0.4796569328537599, 743.125}, {-0.5119320519552588, 743.125}}, {{-0.5094566348274421, 881.5}, {-0.5119320519552588, 881.5}}, {{-0.5119320519552588, 743.125}, {-0.5119320519552588, 881.5}}, {{0, 697}, {-0.4796569328537599, 697.}}, {{-0.4630596720861868, 789.25}, {-0.4796569328537599, 789.25}}, {{-0.4796569328537599, 697.}, {-0.4796569328537599, 789.25}}, {{-0.4480027776388545, 758.5}, {-0.4630596720861868, 758.5}}, {{0, 820}, {-0.4630596720861868, 820.}}, {{-0.4630596720861868, 758.5}, {-0.4630596720861868, 820.}}, {{0, 738}, {-0.4480027776388545, 738.}}, {{0, 779}, {-0.4480027776388545, 779.}}, {{-0.4480027776388545, 738.}, {-0.4480027776388545, 779.}}, {{0, 861}, {-0.5094566348274421, 861.}}, {{0, 902}, {-0.5094566348274421, 902.}}, {{-0.5094566348274421, 861.}, {-0.5094566348274421, 902.}}, {{0, 943}, {-0.44907728480188774`, 943.}}, {{0, 984}, {-0.44907728480188774`, 984.}}, {{-0.44907728480188774`, 943.}, {-0.44907728480188774`, 984.}}, {{-0.41678613525155017`, 1045.5}, {-0.5410447340268351, 1045.5}}, {{-0.4978177498329176, 1127.5}, {-0.5410447340268351, 1127.5}}, {{-0.5410447340268351, 1045.5}, {-0.5410447340268351, 1127.5}}, {{0, 1025}, {-0.41678613525155017`, 1025.}}, {{0, 1066}, {-0.41678613525155017`, 1066.}}, {{-0.41678613525155017`, 1025.}, {-0.41678613525155017`, 1066.}}, {{0, 1107}, {-0.4978177498329176, 1107.}}, {{0, 1148}, {-0.4978177498329176, 1148.}}, {{-0.4978177498329176, 1107.}, {-0.4978177498329176, 1148.}}, {{-0.5405681226281758, 1281.25}, {-0.5939192990511851, 1281.25}}, {{-0.3210816748009878, 1373.5}, {-0.5939192990511851, 1373.5}}, {{-0.5939192990511851, 1281.25}, {-0.5939192990511851, 1373.5}}, {{-0.49717466957729145`, 1250.5}, {-0.5405681226281758, 1250.5}}, {{0, 1312}, {-0.5405681226281758, 1312.}}, {{-0.5405681226281758, 1250.5}, {-0.5405681226281758, 1312.}}, {{0, 1230}, {-0.49717466957729145`, 1230.}}, {{0, 1271}, {-0.49717466957729145`, 1271.}}, {{-0.49717466957729145`, 1230.}, {-0.49717466957729145`, 1271.}}, {{0, 1353}, {-0.3210816748009878, 1353.}}, {{0, 1394}, {-0.3210816748009878, 1394.}}, {{-0.3210816748009878, 1353.}, {-0.3210816748009878, 1394.}}, {{0, 1435}, {-0.5804479681064184, 1435.}}, {{-0.4855282734767826, 1527.25}, {-0.5804479681064184, 1527.25}}, {{-0.5804479681064184, 1435.}, {-0.5804479681064184, 1527.25}}, {{-0.09815385532712292, 1496.5}, {-0.4855282734767826, 1496.5}}, {{0, 1558}, {-0.4855282734767826, 1558.}}, {{-0.4855282734767826, 1496.5}, {-0.4855282734767826, 1558.}}, {{0, 1476}, {-0.09815385532712292, 1476.}}, {{0, 1517}, {-0.09815385532712292, 1517.}}, {{-0.09815385532712292, 1476.}, {-0.09815385532712292, 1517.}}, {{-0.5368035933875374, 1619.5}, {-0.5836584956812281, 1619.5}}, {{0, 1681}, {-0.5836584956812281, 1681.}}, {{-0.5836584956812281, 1619.5}, {-0.5836584956812281, 1681.}}, {{0, 1599}, {-0.5368035933875374, 1599.}}, {{0, 1640}, {-0.5368035933875374, 1640.}}, {{-0.5368035933875374, 1599.}, {-0.5368035933875374, 1640.}}}]}, InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Human\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Pigmy chimpanzee\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 82}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Common chimpanzee\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 123}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Gorilla\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 164}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Gibbon\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 205}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Bornean orangutan\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 246}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Sumatran orangutan\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0], $CellContext`LineColor -> RGBColor[1, 0, 0], $CellContext`FrontFaceColor -> RGBColor[1, 0, 0], $CellContext`GraphicsColor -> RGBColor[1, 0, 0], $CellContext`BackFaceColor -> RGBColor[1, 0, 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 287}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Baboon\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 328}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Vervet monkey\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 369}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Macaca thibet\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`LineColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`FrontFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`GraphicsColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]], $CellContext`BackFaceColor -> RGBColor[1, Rational[1, 3], Rational[1, 3]]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 410}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"North pacific right whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 451}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Bowhead whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 492}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Fin whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 533}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Blue whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 574}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Gray whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 615}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Indus river dolphin\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0], $CellContext`LineColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`FrontFaceColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`GraphicsColor -> RGBColor[0, Rational[2, 3], 0], $CellContext`BackFaceColor -> RGBColor[0, Rational[2, 3], 0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 656}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Taiwan serow\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 697}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Chiru\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 738}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Goat\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 779}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Sheep\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 820}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Cow\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 861}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Buffalo\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 902}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Common warthog\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 943}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Pig\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`LineColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`GraphicsColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], $CellContext`BackFaceColor -> RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 984}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Horse\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1025}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Donkey\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1066}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Indian rhinoceros\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1107}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"White rhinoceros\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12], $CellContext`LineColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`FrontFaceColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`GraphicsColor -> RGBColor[0.36, 0.24, 0.12], $CellContext`BackFaceColor -> RGBColor[0.36, 0.24, 0.12]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1148}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Rabbit\"\>", StripOnInput->False, FontColor->RGBColor[0.2, 0.2, 0.2], $CellContext`LineColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`FrontFaceColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`GraphicsColor -> RGBColor[0.2, 0.2, 0.2], $CellContext`BackFaceColor -> RGBColor[0.2, 0.2, 0.2]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1189}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Leopard\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1230}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Tiger\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1271}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Cat\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65], $CellContext`LineColor -> RGBColor[0., 0., 0.65], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.65], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.65], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.65]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1312}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Wolf\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1], $CellContext`LineColor -> RGBColor[0, 0, 1], $CellContext`FrontFaceColor -> RGBColor[0, 0, 1], $CellContext`GraphicsColor -> RGBColor[0, 0, 1], $CellContext`BackFaceColor -> RGBColor[0, 0, 1]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1353}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Dog\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1], $CellContext`LineColor -> RGBColor[0, 0, 1], $CellContext`FrontFaceColor -> RGBColor[0, 0, 1], $CellContext`GraphicsColor -> RGBColor[0, 0, 1], $CellContext`BackFaceColor -> RGBColor[0, 0, 1]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1394}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Giant panda\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1435}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Brown bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1476}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Polar bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1517}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Black bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`], $CellContext`LineColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`FrontFaceColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`GraphicsColor -> RGBColor[0., 0., 0.30000000000000004`], $CellContext`BackFaceColor -> RGBColor[0., 0., 0.30000000000000004`]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1558}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Squirrel\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1599}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Dormouse\"\>", StripOnInput->False, FontColor->GrayLevel[0], $CellContext`LineColor -> GrayLevel[0], $CellContext`FrontFaceColor -> GrayLevel[0], $CellContext`GraphicsColor -> GrayLevel[0], $CellContext`BackFaceColor -> GrayLevel[0]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1640}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ StyleBox["\<\"Hedgehog\"\>", StripOnInput->False, FontColor->RGBColor[0.4, 0.4, 0.4], $CellContext`LineColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`FrontFaceColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`GraphicsColor -> RGBColor[0.4, 0.4, 0.4], $CellContext`BackFaceColor -> RGBColor[0.4, 0.4, 0.4]], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1681}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->1.2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->600, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->FormBox["\"Mammalian mitochondrial DNA\"", TraditionalForm], PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{ 3.7901941488385*^9, 3.7901951147106533`*^9, {3.794841407654821*^9, 3.794841432287037*^9}, {3.7948414651545057`*^9, 3.794841486963072*^9}, 3.794841598067367*^9, {3.794841659244876*^9, 3.7948416864508753`*^9}, 3.794841764042622*^9, {3.7948418300937233`*^9, 3.794841853663967*^9}}, CellLabel->"Out[6]=", CellID->360391320] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell["SARS-CoV-2", "Subsubsection", TaggingRules->{}, CellChangeTimes->{{3.7948420175452843`*^9, 3.7948420209480963`*^9}}, CellID->853152347], Cell["\<\ We now apply this to samples of the novel coronavirus SARS-CoV-2, which is \ the virus responsible for the COVID-19 pandemic. For purposes of getting \ better comparisons, we remove trailing A nucleotides (their presence or \ absence seems to be a vagary of the sequencing protocols). We also restrict \ to a tighter size range that still contains most of the fully sequenced \ samples. For purposes of visualization we will color the labels by location \ and date of sample collection.\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7948431332649937`*^9, 3.794843248357725*^9}, { 3.79484332531527*^9, 3.794843335366601*^9}, {3.794843369039638*^9, 3.794843383153976*^9}, {3.7948435170198793`*^9, 3.794843570898676*^9}, { 3.794844618008296*^9, 3.794844640712154*^9}, {3.7948452879276667`*^9, 3.7948453205920763`*^9}, 3.8593104833891783`*^9}, CellID->837665201], Cell[TextData[{ "Obtain data from the ", ButtonBox["Wolfram Data Repository", BaseStyle->"Hyperlink", ButtonData->{ URL["https://datarepository.wolframcloud.com/"], None}, ButtonNote->"https://datarepository.wolframcloud.com/"], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{ 3.794843374343773*^9, {3.7948444491339207`*^9, 3.7948444491347017`*^9}, 3.8593104896202593`*^9}, CellID->651623490], Cell[BoxData[{ RowBox[{ RowBox[{"fullGenes", "=", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "[", RowBox[{ RowBox[{"Select", "[", RowBox[{ RowBox[{"StringContainsQ", "[", RowBox[{"#GenBankTitle", ",", "\"\\""}], "]"}], "&"}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"geneLists", "=", RowBox[{"Normal", "[", "fullGenes", "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellLabel->"In[1]:=", CellID->379341219], Cell["\<\ Remove trailing A nucleotides and retain only a narrow size range:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.794843260899582*^9, 3.794843300877283*^9}, { 3.7948433798434362`*^9, 3.794843421254389*^9}}, CellID->754371402], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"dropTrailingA", "[", "seq_", "]"}], ":=", RowBox[{"StringReplace", "[", RowBox[{"seq", ",", RowBox[{ RowBox[{"StartOfString", "~~", RowBox[{"Shortest", "[", "a__", "]"}], "~~", RowBox[{"(", RowBox[{"\"\\"", ".."}], ")"}], "~~", "EndOfString"}], "\[RuleDelayed]", "a"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"normalGL", "=", RowBox[{"Map", "[", RowBox[{"Values", ",", "geneLists"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"midsize", "=", RowBox[{"Select", "[", RowBox[{"normalGL", ",", RowBox[{ RowBox[{"29825", "<=", RowBox[{"StringLength", "[", RowBox[{"dropTrailingA", "[", RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], "\[LessEqual]", "29885"}], "&"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"fullseqs0", ",", "places", ",", "dates"}], "}"}], "=", RowBox[{"Transpose", "[", "midsize", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"fullseqs", "=", RowBox[{"Map", "[", RowBox[{"dropTrailingA", ",", "fullseqs0"}], "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellChangeTimes->{ 3.794257814727202*^9, {3.7942581131837883`*^9, 3.794258113896287*^9}, { 3.794258376627706*^9, 3.794258382418976*^9}, {3.79483502837696*^9, 3.794835044820961*^9}, {3.794835291459786*^9, 3.7948352968454237`*^9}, { 3.794843359731605*^9, 3.7948433602521143`*^9}, 3.794843451866551*^9}, CellTags->"ExampleInput", CellLabel->"In[2]:=", CellID->568823034], Cell["\<\ Create labels colored both by collection locations and dates:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7948434829019003`*^9, 3.794843508447114*^9}}, CellID->37869846], Cell[BoxData[{ RowBox[{ RowBox[{"dates1", "=", RowBox[{"Map", "[", RowBox[{"First", ",", "dates"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ndates1", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], "-", "2019"}], ")"}], "*", "365"}], "+", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], "*", "30.4"}], "+", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", "#", "]"}], "\[Equal]", "3"}], ",", RowBox[{"#", "[", RowBox[{"[", "3", "]"}], "]"}], ",", "15"}], "]"}]}], "&"}], ",", "dates1"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"ndates", "=", RowBox[{"Rescale", "[", "ndates1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colorDateLabels", "=", RowBox[{"Thread", "[", RowBox[{"Style", "[", RowBox[{"dates1", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Darker", "[", RowBox[{"Hue", "[", "#", "]"}], "]"}], "&"}], ",", RowBox[{"ndates", "+", ".05"}]}], "]"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"placeNames", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Head", "[", "#", "]"}], "===", "Entity"}], ",", RowBox[{"#", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"Head", "[", "#", "]"}]}], "]"}], "&"}], ",", "places"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"placeSet", "=", RowBox[{"Union", "[", "placeNames", "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"nplaces", "=", RowBox[{"Length", "[", "placeSet", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"crange", "=", RowBox[{ RowBox[{"Range", "[", "nplaces", "]"}], "/", RowBox[{"(", RowBox[{"nplaces", "+", "1"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"biggest", "=", RowBox[{"Ordering", "[", RowBox[{ RowBox[{"Map", "[", RowBox[{"Length", ",", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", RowBox[{"#", ",", "\"\\""}], "]"}], "&"}], ",", RowBox[{"ColorData", "[", "\"\\"", "]"}]}], "]"}]}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"placeColors", "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"ColorData", "[", RowBox[{ RowBox[{ RowBox[{"ColorData", "[", "\"\\"", "]"}], "[", RowBox[{"[", RowBox[{"biggest", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"UpTo", "[", "nplaces", "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"colorPlaceRule", "=", RowBox[{"Thread", "[", RowBox[{"placeSet", "->", "placeColors"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colorPlaceLabels", "=", RowBox[{"Thread", "[", RowBox[{"Style", "[", RowBox[{"placeNames", ",", RowBox[{"placeNames", "/.", "colorPlaceRule"}]}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"colorPlaceDateLabels", "=", RowBox[{"Thread", "[", RowBox[{"{", RowBox[{"colorPlaceLabels", ",", "colorDateLabels"}], "}"}], "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellLabel->"In[3]:=", CellID->1304433], Cell["Show the phylogenetic tree:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7948436303828773`*^9, 3.7948436385187902`*^9}}, CellID->34116532], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PhylogeneticTreePlot", "[", RowBox[{"fullseqs", ",", "colorPlaceDateLabels", ",", RowBox[{"AspectRatio", "\[Rule]", "5"}], ",", RowBox[{"ImageSize", "\[Rule]", "750"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{ 3.794837325817409*^9, {3.794838330237033*^9, 3.7948383520162277`*^9}, { 3.794838402781383*^9, 3.7948384221848297`*^9}, 3.794843808537567*^9}, CellLabel->"In[4]:=", CellID->995648130], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-1.3290888537652774`, 48289.38110576991}, {-1.3921780078255197`, 48289.38110576991}}, {{0, 48841}, {-1.3921780078255197`, 48841.}}, {{-1.3921780078255197`, 48289.38110576991}, {-1.3921780078255197`, 48841.}}, {{-1.3195830050841035`, 47958.762211539826`}, {-1.3290888537652774`, 47958.762211539826`}}, {{0, 48620}, {-1.3290888537652774`, 48620.}}, {{-1.3290888537652774`, 47958.762211539826`}, {-1.3290888537652774`, 48620.}}, {{-1.2981580082405948`, 47629.02442307965}, {-1.3195830050841035`, 47629.02442307965}}, {{-1.1877955382730512`, 48288.5}, {-1.3195830050841035`, 48288.5}}, {{-1.3195830050841035`, 47629.02442307965}, {-1.3195830050841035`, 48288.5}}, {{-1.256082320416004, 47301.048846159305`}, {-1.2981580082405948`, 47301.048846159305`}}, {{0, 47957}, {-1.2981580082405948`, 47957.}}, {{-1.2981580082405948`, 47301.048846159305`}, {-1.2981580082405948`, 47957.}}, {{-1.2072959070773044`, 46866.09769231861}, {-1.256082320416004, 46866.09769231861}}, {{0, 47736}, {-1.256082320416004, 47736.}}, {{-1.256082320416004, 46866.09769231861}, {-1.256082320416004, 47736.}}, {{-1.174359368278193, 46217.19538463723}, {-1.2072959070773044`, 46217.19538463723}}, {{0, 47515}, {-1.2072959070773044`, 47515.}}, {{-1.2072959070773044`, 46217.19538463723}, {-1.2072959070773044`, 47515.}}, {{-1.1561037882729401`, 45306.140769274454`}, {-1.174359368278193, 45306.140769274454`}}, {{-0.710261837307002, 47128.25}, {-1.174359368278193, 47128.25}}, {{-1.174359368278193, 45306.140769274454`}, {-1.174359368278193, 47128.25}}, {{-1.1374635150895416`, 44091.78153854891}, {-1.1561037882729401`, 44091.78153854891}}, {{-0.5940657754914155, 46520.5}, {-1.1561037882729401`, 46520.5}}, {{-1.1561037882729401`, 44091.78153854891}, {-1.1561037882729401`, 46520.5}}, {{-1.10592716597035, 41994.56307709781}, {-1.1374635150895416`, 41994.56307709781}}, {{0, 46189}, {-1.1374635150895416`, 46189.}}, {{-1.1374635150895416`, 41994.56307709781}, {-1.1374635150895416`, 46189.}}, {{-1.101987652849201, 38214.50115419562}, {-1.10592716597035, 38214.50115419562}}, {{-0.9637936352116349, 45774.625}, {-1.10592716597035, 45774.625}}, {{-1.10592716597035, 38214.50115419562}, {-1.10592716597035, 45774.625}}, {{-1.0764399548269326`, 32090.877308391246`}, {-1.101987652849201, 32090.877308391246`}}, {{-1.030873964430176, 44338.125}, {-1.101987652849201, 44338.125}}, {{-1.101987652849201, 32090.877308391246`}, {-1.101987652849201, 44338.125}}, {{-1.0298580801968027`, 21307.75461678249}, {-1.0764399548269326`, 21307.75461678249}}, {{0, 42874}, {-1.0764399548269326`, 42874.}}, {{-1.0764399548269326`, 21307.75461678249}, {-1.0764399548269326`, 42874.}}, {{-0.933270949256981, 9782.33429145813}, {-1.0298580801968027`, 9782.33429145813}}, {{-1.024698420919601, 32833.17494210685}, {-1.0298580801968027`, 32833.17494210685}}, {{-1.0298580801968027`, 9782.33429145813}, {-1.0298580801968027`, 32833.17494210685}}, {{-0.9065209916575793, 9177.66858291626}, {-0.933270949256981, 9177.66858291626}}, {{0, 10387}, {-0.933270949256981, 10387.}}, {{-0.933270949256981, 9177.66858291626}, {-0.933270949256981, 10387.}}, {{-0.9018988326410207, 8189.3371658325195`}, {-0.9065209916575793, 8189.3371658325195`}}, {{0, 10166}, {-0.9065209916575793, 10166.}}, {{-0.9065209916575793, 8189.3371658325195`}, {-0.9065209916575793, 10166.}}, {{-0.8040015735847831, 6640.861831665039}, {-0.9018988326410207, 6640.861831665039}}, {{-0.5747881543546564, 9737.8125}, {-0.9018988326410207, 9737.8125}}, {{-0.9018988326410207, 6640.861831665039}, {-0.9018988326410207, 9737.8125}}, {{-0.5688253252467127, 4441.723663330078}, {-0.8040015735847831, 4441.723663330078}}, {{0, 8840}, {-0.8040015735847831, 8840.}}, {{-0.8040015735847831, 4441.723663330078}, {-0.8040015735847831, 8840.}}, {{-0.4982734248173624, 2422.6504516601562`}, {-0.5688253252467127, 2422.6504516601562`}}, {{-0.5051138372153855, 6460.796875}, {-0.5688253252467127, 6460.796875}}, {{-0.5688253252467127, 2422.6504516601562`}, {-0.5688253252467127, 6460.796875}}, {{0, 221}, {-0.4982734248173624, 221.}}, {{-0.46181758542918244`, 4624.3009033203125`}, {-0.4982734248173624, 4624.3009033203125`}}, {{-0.4982734248173624, 221.}, {-0.4982734248173624, 4624.3009033203125`}}, {{-0.4609972857591536, 4386.601806640625}, {-0.46181758542918244`, 4386.601806640625}}, {{0, 4862}, {-0.46181758542918244`, 4862.}}, {{-0.46181758542918244`, 4386.601806640625}, {-0.46181758542918244`, 4862.}}, {{-0.460777694730142, 4132.20361328125}, {-0.4609972857591536, 4132.20361328125}}, {{0, 4641}, {-0.4609972857591536, 4641.}}, {{-0.4609972857591536, 4132.20361328125}, {-0.4609972857591536, 4641.}}, {{-0.43097092199376896`, 3844.4072265625}, {-0.460777694730142, 3844.4072265625}}, {{0, 4420}, {-0.460777694730142, 4420.}}, {{-0.460777694730142, 3844.4072265625}, {-0.460777694730142, 4420.}}, {{-0.40579197337348344`, 3489.814453125}, {-0.43097092199376896`, 3489.814453125}}, {{0, 4199}, {-0.43097092199376896`, 4199.}}, {{-0.43097092199376896`, 3489.814453125}, {-0.43097092199376896`, 4199.}}, {{-0.3877009164106005, 3001.62890625}, {-0.40579197337348344`, 3001.62890625}}, {{0, 3978}, {-0.40579197337348344`, 3978.}}, {{-0.40579197337348344`, 3001.62890625}, {-0.40579197337348344`, 3978.}}, {{-0.34959428369821904`, 2356.7578125}, {-0.3877009164106005, 2356.7578125}}, {{-0.08907411680723672, 3646.5}, {-0.3877009164106005, 3646.5}}, {{-0.3877009164106005, 2356.7578125}, {-0.3877009164106005, 3646.5}}, {{-0.3295717566868593, 1868.140625}, {-0.34959428369821904`, 1868.140625}}, {{-0.31078641595318535`, 2845.375}, {-0.34959428369821904`, 2845.375}}, {{-0.34959428369821904`, 1868.140625}, {-0.34959428369821904`, 2845.375}}, {{-0.26704321113045526`, 1471.03125}, {-0.3295717566868593, 1471.03125}}, {{-0.31926023619577526`, 2265.25}, {-0.3295717566868593, 2265.25}}, {{-0.3295717566868593, 1471.03125}, {-0.3295717566868593, 2265.25}}, {{-0.21505163055793952`, 1174.0625}, {-0.26704321113045526`, 1174.0625}}, {{0, 1768}, {-0.26704321113045526`, 1768.}}, {{-0.26704321113045526`, 1174.0625}, {-0.26704321113045526`, 1768.}}, {{-0.12400735139901008`, 911.625}, {-0.21505163055793952`, 911.625}}, {{0., 1436.5}, {-0.21505163055793952`, 1436.5}}, {{-0.21505163055793952`, 911.625}, {-0.21505163055793952`, 1436.5}}, {{-0.11976133883581314`, 718.25}, {-0.12400735139901008`, 718.25}}, {{0, 1105}, {-0.12400735139901008`, 1105.}}, {{-0.12400735139901008`, 718.25}, {-0.12400735139901008`, 1105.}}, {{0., 552.5}, {-0.11976133883581314`, 552.5}}, {{0, 884}, {-0.11976133883581314`, 884.}}, {{-0.11976133883581314`, 552.5}, {-0.11976133883581314`, 884.}}, {{0, 442}, {0, 442}}, {{0, 663}, {0, 663}}, {{0, 442}, {0, 663}}, {{0, 1326}, {0, 1326}}, {{0, 1547}, {0, 1547}}, {{0, 1326}, {0, 1547}}, {{0., 2099.5}, {-0.31926023619577526`, 2099.5}}, {{0, 2431}, {-0.31926023619577526`, 2431.}}, {{-0.31926023619577526`, 2099.5}, {-0.31926023619577526`, 2431.}}, {{0, 1989}, {0, 1989}}, {{0, 2210}, {0, 2210}}, {{0, 1989}, {0, 2210}}, {{0, 2652}, {-0.31078641595318535`, 2652.}}, {{-0.2769680639785297, 3038.75}, {-0.31078641595318535`, 3038.75}}, {{-0.31078641595318535`, 2652.}, {-0.31078641595318535`, 3038.75}}, {{0, 2873}, {-0.2769680639785297, 2873.}}, {{0., 3204.5}, {-0.2769680639785297, 3204.5}}, {{-0.2769680639785297, 2873.}, {-0.2769680639785297, 3204.5}}, {{0, 3094}, {0, 3094}}, {{0, 3315}, {0, 3315}}, {{0, 3094}, {0, 3315}}, {{0, 3536}, {-0.08907411680723672, 3536.}}, {{0, 3757}, {-0.08907411680723672, 3757.}}, {{-0.08907411680723672, 3536.}, {-0.08907411680723672, 3757.}}, {{0., 5193.5}, {-0.5051138372153855, 5193.5}}, {{-0.43736142118537463`, 7728.09375}, {-0.5051138372153855, 7728.09375}}, {{-0.5051138372153855, 5193.5}, {-0.5051138372153855, 7728.09375}}, {{0, 5083}, {0, 5083}}, {{ 0, 5304}, {0, 5304}}, {{0, 5083}, {0, 5304}}, {{-0.38402736089162826`, 6947.6875}, {-0.43736142118537463`, 6947.6875}}, {{-0.2082835503936251, 8508.5}, {-0.43736142118537463`, 8508.5}}, {{-0.43736142118537463`, 6947.6875}, {-0.43736142118537463`, 8508.5}}, {{-0.37841624110176303`, 6132.75}, {-0.38402736089162826`, 6132.75}}, {{-0.3650162833761952, 7762.625}, {-0.38402736089162826`, 7762.625}}, {{-0.38402736089162826`, 6132.75}, {-0.38402736089162826`, 7762.625}}, {{-0.3295424448986067, 5801.25}, {-0.37841624110176303`, 5801.25}}, {{-0.34118403050557083`, 6464.25}, {-0.37841624110176303`, 6464.25}}, {{-0.37841624110176303`, 5801.25}, {-0.37841624110176303`, 6464.25}}, {{0., 5635.5}, {-0.3295424448986067, 5635.5}}, {{0, 5967}, {-0.3295424448986067, 5967.}}, {{-0.3295424448986067, 5635.5}, {-0.3295424448986067, 5967.}}, {{0, 5525}, {0, 5525}}, {{0, 5746}, {0, 5746}}, {{0, 5525}, {0, 5746}}, {{0., 6298.5}, {-0.34118403050557083`, 6298.5}}, {{0, 6630}, {-0.34118403050557083`, 6630.}}, {{-0.34118403050557083`, 6298.5}, {-0.34118403050557083`, 6630.}}, {{0, 6188}, {0, 6188}}, {{0, 6409}, {0, 6409}}, {{0, 6188}, {0, 6409}}, {{-0.16014113379760403`, 7458.75}, {-0.3650162833761952, 7458.75}}, {{-0.16100151676827365`, 8066.5}, {-0.3650162833761952, 8066.5}}, {{-0.3650162833761952, 7458.75}, {-0.3650162833761952, 8066.5}}, {{-0.08522718040320945, 7182.5}, {-0.16014113379760403`, 7182.5}}, {{0, 7735}, {-0.16014113379760403`, 7735.}}, {{-0.16014113379760403`, 7182.5}, {-0.16014113379760403`, 7735.}}, {{0., 6961.5}, {-0.08522718040320945, 6961.5}}, {{-0.002347998680720539, 7403.5}, {-0.08522718040320945, 7403.5}}, {{-0.08522718040320945, 6961.5}, {-0.08522718040320945, 7403.5}}, {{0, 6851}, {0, 6851}}, {{0, 7072}, {0, 7072}}, {{0, 6851}, { 0, 7072}}, {{0, 7293}, {-0.002347998680720539, 7293.}}, {{0, 7514}, {-0.002347998680720539, 7514.}}, {{-0.002347998680720539, 7293.}, {-0.002347998680720539, 7514.}}, {{0, 7956}, {-0.16100151676827365`, 7956.}}, {{0, 8177}, {-0.16100151676827365`, 8177.}}, {{-0.16100151676827365`, 7956.}, {-0.16100151676827365`, 8177.}}, {{0, 8398}, {-0.2082835503936251, 8398.}}, {{0, 8619}, {-0.2082835503936251, 8619.}}, {{-0.2082835503936251, 8398.}, {-0.2082835503936251, 8619.}}, {{-0.46472911091679453`, 9530.625}, {-0.5747881543546564, 9530.625}}, {{0, 9945}, {-0.5747881543546564, 9945.}}, {{-0.5747881543546564, 9530.625}, {-0.5747881543546564, 9945.}}, {{-0.45203866523866354`, 9337.25}, {-0.46472911091679453`, 9337.25}}, {{0, 9724}, {-0.46472911091679453`, 9724.}}, {{-0.46472911091679453`, 9337.25}, {-0.46472911091679453`, 9724.}}, {{-0.02213694517447452, 9171.5}, {-0.45203866523866354`, 9171.5}}, {{0, 9503}, {-0.45203866523866354`, 9503.}}, {{-0.45203866523866354`, 9171.5}, {-0.45203866523866354`, 9503.}}, {{0, 9061}, {-0.02213694517447452, 9061.}}, {{0, 9282}, {-0.02213694517447452, 9282.}}, {{-0.02213694517447452, 9061.}, {-0.02213694517447452, 9282.}}, {{-1.0232878060321018`, 23509.762017636232`}, {-1.024698420919601, 23509.762017636232`}}, {{-1.0226535031584194`, 42156.587866577465`}, {-1.024698420919601, 42156.587866577465`}}, {{-1.024698420919601, 23509.762017636232`}, {-1.024698420919601, 42156.587866577465`}}, {{-0.9478418022238874, 22709.52403527247}, {-1.0232878060321018`, 22709.52403527247}}, {{0, 24310}, {-1.0232878060321018`, 24310.}}, {{-1.0232878060321018`, 22709.52403527247}, {-1.0232878060321018`, 24310.}}, {{-0.9184203655292855, 21440.548070544937`}, {-0.9478418022238874, 21440.548070544937`}}, {{-0.6278477721127383, 23978.5}, {-0.9478418022238874, 23978.5}}, {{-0.9478418022238874, 21440.548070544937`}, {-0.9478418022238874, 23978.5}}, {{-0.8281123992053748, 20759.51410983987}, {-0.9184203655292855, 20759.51410983987}}, {{-0.8948027846287806, 22121.58203125}, {-0.9184203655292855, 22121.58203125}}, {{-0.9184203655292855, 20759.51410983987}, {-0.9184203655292855, 22121.58203125}}, {{-0.8145162333727359, 20413.52821967974}, {-0.8281123992053748, 20413.52821967974}}, {{-0.6818109604729518, 21105.5}, {-0.8281123992053748, 21105.5}}, {{-0.8281123992053748, 20413.52821967974}, {-0.8281123992053748, 21105.5}}, {{-0.7735800832261105, 20053.056439359483`}, {-0.8145162333727359, 20053.056439359483`}}, {{0, 20774}, {-0.8145162333727359, 20774.}}, {{-0.8145162333727359, 20053.056439359483`}, {-0.8145162333727359, 20774.}}, {{-0.7431559480875667, 19663.612878718966`}, {-0.7735800832261105, 19663.612878718966`}}, {{-0.062255081299142825`, 20442.5}, {-0.7735800832261105, 20442.5}}, {{-0.7735800832261105, 19663.612878718966`}, {-0.7735800832261105, 20442.5}}, {{-0.6832051835295895, 19326.725757437933`}, {-0.7431559480875667, 19326.725757437933`}}, {{-0.5671498883305952, 20000.5}, {-0.7431559480875667, 20000.5}}, {{-0.7431559480875667, 19326.725757437933`}, {-0.7431559480875667, 20000.5}}, {{-0.6560473019687604, 18984.451514875866`}, {-0.6832051835295895, 18984.451514875866`}}, {{0, 19669}, {-0.6832051835295895, 19669.}}, {{-0.6832051835295895, 18984.451514875866`}, {-0.6832051835295895, 19669.}}, {{-0.5285564625544636, 18520.90302975173}, {-0.6560473019687604, 18520.90302975173}}, {{0, 19448}, {-0.6560473019687604, 19448.}}, {{-0.6560473019687604, 18520.90302975173}, {-0.6560473019687604, 19448.}}, {{-0.43797224081957054`, 17814.806059503462`}, {-0.5285564625544636, 17814.806059503462`}}, {{0, 19227}, {-0.5285564625544636, 19227.}}, {{-0.5285564625544636, 17814.806059503462`}, {-0.5285564625544636, 19227.}}, {{-0.4321109300097194, 16623.612119006924`}, {-0.43797224081957054`, 16623.612119006924`}}, {{0, 19006}, {-0.43797224081957054`, 19006.}}, {{-0.43797224081957054`, 16623.612119006924`}, {-0.43797224081957054`, 19006.}}, {{-0.3978225915986656, 14462.224238013849`}, {-0.4321109300097194, 14462.224238013849`}}, {{0, 18785}, {-0.4321109300097194, 18785.}}, {{-0.4321109300097194, 14462.224238013849`}, {-0.4321109300097194, 18785.}}, {{0, 10608}, {-0.3978225915986656, 10608.}}, {{-0.39776462512263977`, 18316.448476027697`}, {-0.3978225915986656, 18316.448476027697`}}, {{-0.3978225915986656, 10608.}, {-0.3978225915986656, 18316.448476027697`}}, {{-0.38645830465883735`, 18068.896952055395`}, {-0.39776462512263977`, 18068.896952055395`}}, {{0, 18564}, {-0.39776462512263977`, 18564.}}, {{-0.39776462512263977`, 18068.896952055395`}, {-0.39776462512263977`, 18564.}}, {{-0.3373258664804266, 17794.79390411079}, {-0.38645830465883735`, 17794.79390411079}}, {{0, 18343}, {-0.38645830465883735`, 18343.}}, {{-0.38645830465883735`, 17794.79390411079}, {-0.38645830465883735`, 18343.}}, {{-0.3245998136109253, 17467.58780822158}, {-0.3373258664804266, 17467.58780822158}}, {{0, 18122}, {-0.3373258664804266, 18122.}}, {{-0.3373258664804266, 17467.58780822158}, {-0.3373258664804266, 18122.}}, {{-0.3136735745080306, 17144.675616443157`}, {-0.3245998136109253, 17144.675616443157`}}, {{-4.9439619065339*^-17, 17790.5}, {-0.3245998136109253, 17790.5}}, {{-0.3245998136109253, 17144.675616443157`}, {-0.3245998136109253, 17790.5}}, {{-0.30861960666267596`, 16830.351232886314`}, {-0.3136735745080306, 16830.351232886314`}}, {{0, 17459}, {-0.3136735745080306, 17459.}}, {{-0.3136735745080306, 16830.351232886314`}, {-0.3136735745080306, 17459.}}, {{-0.29336477772508923`, 16533.20246577263}, {-0.30861960666267596`, 16533.20246577263}}, {{-0.0037498915341483336`, 17127.5}, {-0.30861960666267596`, 17127.5}}, {{-0.30861960666267596`, 16533.20246577263}, {-0.30861960666267596`, 17127.5}}, {{-0.2800691206813232, 16270.404931545258`}, {-0.29336477772508923`, 16270.404931545258`}}, {{0, 16796}, {-0.29336477772508923`, 16796.}}, {{-0.29336477772508923`, 16270.404931545258`}, {-0.29336477772508923`, 16796.}}, {{-0.2347933426441533, 15965.809863090515`}, {-0.2800691206813232, 15965.809863090515`}}, {{0, 16575}, {-0.2800691206813232, 16575.}}, {{-0.2800691206813232, 15965.809863090515`}, {-0.2800691206813232, 16575.}}, {{-0.22034112981169296`, 15688.11972618103}, {-0.2347933426441533, 15688.11972618103}}, {{-0.001970753315486597, 16243.5}, {-0.2347933426441533, 16243.5}}, {{-0.2347933426441533, 15688.11972618103}, {-0.2347933426441533, 16243.5}}, {{-0.10906290865935557`, 15464.23945236206}, {-0.22034112981169296`, 15464.23945236206}}, {{0, 15912}, {-0.22034112981169296`, 15912.}}, {{-0.22034112981169296`, 15464.23945236206}, {-0.22034112981169296`, 15912.}}, {{-0.09466304863937837, 15237.478904724121`}, {-0.10906290865935557`, 15237.478904724121`}}, {{0, 15691}, {-0.10906290865935557`, 15691.}}, {{-0.10906290865935557`, 15237.478904724121`}, {-0.10906290865935557`, 15691.}}, {{-0.007123298778798007, 15004.957809448242`}, {-0.09466304863937837, 15004.957809448242`}}, {{0, 15470}, {-0.09466304863937837, 15470.}}, {{-0.09466304863937837, 15004.957809448242`}, {-0.09466304863937837, 15470.}}, {{-0.0037434136678211292`, 14760.915618896484`}, {-0.007123298778798007, 14760.915618896484`}}, {{0, 15249}, {-0.007123298778798007, 15249.}}, {{-0.007123298778798007, 14760.915618896484`}, {-0.007123298778798007, 15249.}}, {{-0.003305468646120344, 14493.831237792969`}, {-0.0037434136678211292`, 14493.831237792969`}}, {{0, 15028}, {-0.0037434136678211292`, 15028.}}, {{-0.0037434136678211292`, 14493.831237792969`}, {-0.0037434136678211292`, 15028.}}, {{-0.003196376917394743, 14180.662475585938`}, {-0.003305468646120344, 14180.662475585938`}}, {{0, 14807}, {-0.003305468646120344, 14807.}}, {{-0.003305468646120344, 14180.662475585938`}, {-0.003305468646120344, 14807.}}, {{-0.002919660947064012, 13885.824951171875`}, {-0.003196376917394743, 13885.824951171875`}}, {{-5.766922017006553*^-15, 14475.5}, {-0.003196376917394743, 14475.5}}, {{-0.003196376917394743, 13885.824951171875`}, {-0.003196376917394743, 14475.5}}, {{-0.002501739331556039, 13627.64990234375}, {-0.002919660947064012, 13627.64990234375}}, {{0, 14144}, {-0.002919660947064012, 14144.}}, {{-0.002919660947064012, 13627.64990234375}, {-0.002919660947064012, 14144.}}, {{-0.0015333728595074226`, 13332.2998046875}, {-0.002501739331556039, 13332.2998046875}}, {{0, 13923}, {-0.002501739331556039, 13923.}}, {{-0.002501739331556039, 13332.2998046875}, {-0.002501739331556039, 13923.}}, {{-0.0014917205100751522`, 12962.599609375}, {-0.0015333728595074226`, 12962.599609375}}, {{0, 13702}, {-0.0015333728595074226`, 13702.}}, {{-0.0015333728595074226`, 12962.599609375}, {-0.0015333728595074226`, 13702.}}, {{-3.702679532090049*^-15, 12444.19921875}, {-0.0014917205100751522`, 12444.19921875}}, {{0, 13481}, {-0.0014917205100751522`, 13481.}}, {{-0.0014917205100751522`, 12444.19921875}, {-0.0014917205100751522`, 13481.}}, {{-1.7350289370211955`*^-15, 12098.0234375}, {-3.702679532090049*^-15, 12098.0234375}}, {{0., 12790.375}, {-3.702679532090049*^-15, 12790.375}}, {{-3.702679532090049*^-15, 12098.0234375}, {-3.702679532090049*^-15, 12790.375}}, {{-1.499249650453208*^-16, 11820.046875}, {-1.7350289370211955`*^-15, 11820.046875}}, {{0, 12376}, {-1.7350289370211955`*^-15, 12376.}}, {{-1.7350289370211955`*^-15, 11820.046875}, {-1.7350289370211955`*^-15, 12376.}}, {{-4.28620649410774*^-17, 11485.09375}, {-1.499249650453208*^-16, 11485.09375}}, {{0, 12155}, {-1.499249650453208*^-16, 12155.}}, {{-1.499249650453208*^-16, 11485.09375}, {-1.499249650453208*^-16, 12155.}}, {{0., 11036.1875}, {-4.28620649410774*^-17, 11036.1875}}, {{0, 11934}, {-4.28620649410774*^-17, 11934.}}, {{-4.28620649410774*^-17, 11036.1875}, {-4.28620649410774*^-17, 11934.}}, {{0, 10829}, {0., 10829.}}, {{0., 11243.375}, {0., 11243.375}}, {{0., 10829.}, {0., 11243.375}}, {{0, 11050}, {0., 11050.}}, {{0., 11436.75}, {0., 11436.75}}, {{0., 11050.}, {0., 11436.75}}, {{0, 11271}, {0., 11271.}}, {{0., 11602.5}, {0., 11602.5}}, {{0., 11271.}, {0., 11602.5}}, {{0, 11492}, {0., 11492.}}, {{0, 11713}, {0., 11713.}}, {{0., 11492.}, {0., 11713.}}, {{0, 12597}, {0., 12597.}}, {{0., 12983.75}, { 0., 12983.75}}, {{0., 12597.}, {0., 12983.75}}, {{0, 12818}, {0., 12818.}}, {{0., 13149.5}, {0., 13149.5}}, {{0., 12818.}, {0., 13149.5}}, {{0, 13039}, {0., 13039.}}, {{0, 13260}, {0., 13260.}}, {{0., 13039.}, {0., 13260.}}, {{0, 14365}, {-5.766922017006553*^-15, 14365.}}, {{0, 14586}, {-5.766922017006553*^-15, 14586.}}, {{-5.766922017006553*^-15, 14365.}, {-5.766922017006553*^-15, 14586.}}, {{0, 16133}, {-0.001970753315486597, 16133.}}, {{0, 16354}, {-0.001970753315486597, 16354.}}, {{-0.001970753315486597, 16133.}, {-0.001970753315486597, 16354.}}, {{0, 17017}, {-0.0037498915341483336`, 17017.}}, {{0, 17238}, {-0.0037498915341483336`, 17238.}}, {{-0.0037498915341483336`, 17017.}, {-0.0037498915341483336`, 17238.}}, {{0, 17680}, {-4.9439619065339*^-17, 17680.}}, {{0, 17901}, {-4.9439619065339*^-17, 17901.}}, {{-4.9439619065339*^-17, 17680.}, {-4.9439619065339*^-17, 17901.}}, {{0, 19890}, {-0.5671498883305952, 19890.}}, {{0, 20111}, {-0.5671498883305952, 20111.}}, {{-0.5671498883305952, 19890.}, {-0.5671498883305952, 20111.}}, {{0, 20332}, {-0.062255081299142825`, 20332.}}, {{0, 20553}, {-0.062255081299142825`, 20553.}}, {{-0.062255081299142825`, 20332.}, {-0.062255081299142825`, 20553.}}, {{0, 20995}, {-0.6818109604729518, 20995.}}, {{0, 21216}, {-0.6818109604729518, 21216.}}, {{-0.6818109604729518, 20995.}, {-0.6818109604729518, 21216.}}, {{-0.601647284304113, 21547.5}, {-0.8948027846287806, 21547.5}}, {{-0.7563122634831838, 22695.6640625}, {-0.8948027846287806, 22695.6640625}}, {{-0.8948027846287806, 21547.5}, {-0.8948027846287806, 22695.6640625}}, {{0, 21437}, {-0.601647284304113, 21437.}}, {{0, 21658}, {-0.601647284304113, 21658.}}, {{-0.601647284304113, 21437.}, {-0.601647284304113, 21658.}}, {{-0.676041093640557, 21989.5}, {-0.7563122634831838, 21989.5}}, {{-0.6762125488549884, 23401.828125}, {-0.7563122634831838, 23401.828125}}, {{-0.7563122634831838, 21989.5}, {-0.7563122634831838, 23401.828125}}, {{0, 21879}, {-0.676041093640557, 21879.}}, {{0, 22100}, {-0.676041093640557, 22100.}}, {{-0.676041093640557, 21879.}, {-0.676041093640557, 22100.}}, {{-0.576072774298379, 23156.65625}, {-0.6762125488549884, 23156.65625}}, {{0, 23647}, {-0.6762125488549884, 23647.}}, {{-0.6762125488549884, 23156.65625}, {-0.6762125488549884, 23647.}}, {{-0.5103769253918294, 22887.3125}, {-0.576072774298379, 22887.3125}}, {{0, 23426}, {-0.576072774298379, 23426.}}, {{-0.576072774298379, 22887.3125}, {-0.576072774298379, 23426.}}, {{-0.3045712978796375, 22569.625}, {-0.5103769253918294, 22569.625}}, {{0, 23205}, {-0.5103769253918294, 23205.}}, {{-0.5103769253918294, 22569.625}, {-0.5103769253918294, 23205.}}, {{0, 22321}, {-0.3045712978796375, 22321.}}, {{-0.15177176864948513`, 22818.25}, {-0.3045712978796375, 22818.25}}, {{-0.3045712978796375, 22321.}, {-0.3045712978796375, 22818.25}}, {{-3.0875864315127074`*^-15, 22652.5}, {-0.15177176864948513`, 22652.5}}, {{0, 22984}, {-0.15177176864948513`, 22984.}}, {{-0.15177176864948513`, 22652.5}, {-0.15177176864948513`, 22984.}}, {{0, 22542}, {-3.0875864315127074`*^-15, 22542.}}, {{0, 22763}, {-3.0875864315127074`*^-15, 22763.}}, {{-3.0875864315127074`*^-15, 22542.}, {-3.0875864315127074`*^-15, 22763.}}, {{0, 23868}, {-0.6278477721127383, 23868.}}, {{0, 24089}, {-0.6278477721127383, 24089.}}, {{-0.6278477721127383, 23868.}, {-0.6278477721127383, 24089.}}, {{-0.9544888029904329, 41660.17573315493}, {-1.0226535031584194`, 41660.17573315493}}, {{0, 42653}, {-1.0226535031584194`, 42653.}}, {{-1.0226535031584194`, 41660.17573315493}, {-1.0226535031584194`, 42653.}}, {{-0.8715897686656325, 40998.85146630986}, {-0.9544888029904329, 40998.85146630986}}, {{0., 42321.5}, {-0.9544888029904329, 42321.5}}, {{-0.9544888029904329, 40998.85146630986}, {-0.9544888029904329, 42321.5}}, {{-0.8257947727016056, 40201.07793261972}, {-0.8715897686656325, 40201.07793261972}}, {{-0.555032979520824, 41796.625}, {-0.8715897686656325, 41796.625}}, {{-0.8715897686656325, 40201.07793261972}, {-0.8715897686656325, 41796.625}}, {{-0.8071433644031257, 39406.655865239445`}, {-0.8257947727016056, 39406.655865239445`}}, {{-0.23844989866420696`, 40995.5}, {-0.8257947727016056, 40995.5}}, {{-0.8257947727016056, 39406.655865239445`}, {-0.8257947727016056, 40995.5}}, {{-0.7989754863326034, 38259.81173047889}, {-0.8071433644031257, 38259.81173047889}}, {{-0.48464298355954705`, 40553.5}, {-0.8071433644031257, 40553.5}}, {{-0.8071433644031257, 38259.81173047889}, {-0.8071433644031257, 40553.5}}, {{-0.7871881845535349, 36297.62346095778}, {-0.7989754863326034, 36297.62346095778}}, {{0, 40222}, {-0.7989754863326034, 40222.}}, {{-0.7989754863326034, 36297.62346095778}, {-0.7989754863326034, 40222.}}, {{-0.7709264944592422, 32594.24692191556}, {-0.7871881845535349, 32594.24692191556}}, {{0, 40001}, {-0.7871881845535349, 40001.}}, {{-0.7871881845535349, 32594.24692191556}, {-0.7871881845535349, 40001.}}, {{-0.6302209305960713, 25910.5234375}, {-0.7709264944592422, 25910.5234375}}, {{-0.7635142290451558, 39277.97040633112}, {-0.7709264944592422, 39277.97040633112}}, {{-0.7709264944592422, 25910.5234375}, {-0.7709264944592422, 39277.97040633112}}, {{-0.43665357244069763`, 25632.546875}, {-0.6302209305960713, 25632.546875}}, {{-0.5441095261622718, 26188.5}, {-0.6302209305960713, 26188.5}}, {{-0.6302209305960713, 25632.546875}, {-0.6302209305960713, 26188.5}}, {{-0.3554207101437058, 25408.09375}, {-0.43665357244069763`, 25408.09375}}, {{0, 25857}, {-0.43665357244069763`, 25857.}}, {{-0.43665357244069763`, 25408.09375}, {-0.43665357244069763`, 25857.}}, {{-0.3516505598522507, 25180.1875}, {-0.3554207101437058, 25180.1875}}, {{0, 25636}, {-0.3554207101437058, 25636.}}, {{-0.3554207101437058, 25180.1875}, {-0.3554207101437058, 25636.}}, {{-0.3455767236664942, 24945.375}, {-0.3516505598522507, 24945.375}}, {{0, 25415}, {-0.3516505598522507, 25415.}}, {{-0.3516505598522507, 24945.375}, {-0.3516505598522507, 25415.}}, {{-0.165390784667077, 24696.75}, {-0.3455767236664942, 24696.75}}, {{0, 25194}, {-0.3455767236664942, 25194.}}, {{-0.3455767236664942, 24696.75}, {-0.3455767236664942, 25194.}}, {{0, 24531}, {-0.165390784667077, 24531.}}, {{-0.06216985569099277, 24862.5}, {-0.165390784667077, 24862.5}}, {{-0.165390784667077, 24531.}, {-0.165390784667077, 24862.5}}, {{0, 24752}, {-0.06216985569099277, 24752.}}, {{0, 24973}, {-0.06216985569099277, 24973.}}, {{-0.06216985569099277, 24752.}, {-0.06216985569099277, 24973.}}, {{0, 26078}, {-0.5441095261622718, 26078.}}, {{0, 26299}, {-0.5441095261622718, 26299.}}, {{-0.5441095261622718, 26078.}, {-0.5441095261622718, 26299.}}, {{-0.7594205870918596, 38775.940812662244`}, {-0.7635142290451558, 38775.940812662244`}}, {{0, 39780}, {-0.7635142290451558, 39780.}}, {{-0.7635142290451558, 38775.940812662244`}, {-0.7635142290451558, 39780.}}, {{-0.758936629721397, 37992.88162532449}, {-0.7594205870918596, 37992.88162532449}}, {{0, 39559}, {-0.7594205870918596, 39559.}}, {{-0.7594205870918596, 37992.88162532449}, {-0.7594205870918596, 39559.}}, {{-0.757292809912597, 36758.263250648975`}, {-0.758936629721397, 36758.263250648975`}}, {{-0.7272854151265337, 39227.5}, {-0.758936629721397, 39227.5}}, {{-0.758936629721397, 36758.263250648975`}, {-0.758936629721397, 39227.5}}, {{-0.7245029551169836, 34848.43275129795}, {-0.757292809912597, 34848.43275129795}}, {{-0.47737330282497764`, 38668.09375}, {-0.757292809912597, 38668.09375}}, {{-0.757292809912597, 34848.43275129795}, {-0.757292809912597, 38668.09375}}, {{-0.6934950196128594, 32126.8655025959}, {-0.7245029551169836, 32126.8655025959}}, {{0, 37570}, {-0.7245029551169836, 37570.}}, {{-0.7245029551169836, 32126.8655025959}, {-0.7245029551169836, 37570.}}, {{-0.6889076615634351, 27797.54833984375}, {-0.6934950196128594, 27797.54833984375}}, {{-0.6381186669681786, 36456.18266534805}, {-0.6934950196128594, 36456.18266534805}}, {{-0.6934950196128594, 27797.54833984375}, {-0.6934950196128594, 36456.18266534805}}, {{-0.39233049882798, 26685.75}, {-0.6889076615634351, 26685.75}}, {{-0.5556782401517953, 28909.3466796875}, {-0.6889076615634351, 28909.3466796875}}, {{-0.6889076615634351, 26685.75}, {-0.6889076615634351, 28909.3466796875}}, {{0, 26520}, {-0.39233049882798, 26520.}}, {{-0.179794200398829, 26851.5}, {-0.39233049882798, 26851.5}}, {{-0.39233049882798, 26520.}, {-0.39233049882798, 26851.5}}, {{0, 26741}, {-0.179794200398829, 26741.}}, {{0, 26962}, {-0.179794200398829, 26962.}}, {{-0.179794200398829, 26741.}, {-0.179794200398829, 26962.}}, {{-0.44485818099227337`, 28204.693359375}, {-0.5556782401517953, 28204.693359375}}, {{0, 29614}, {-0.5556782401517953, 29614.}}, {{-0.5556782401517953, 28204.693359375}, {-0.5556782401517953, 29614.}}, {{-0.37725135999481707`, 27293.5}, {-0.44485818099227337`, 27293.5}}, {{-0.4026260398969374, 29115.88671875}, {-0.44485818099227337`, 29115.88671875}}, {{-0.44485818099227337`, 27293.5}, {-0.44485818099227337`, 29115.88671875}}, {{0, 27183}, {-0.37725135999481707`, 27183.}}, {{0, 27404}, {-0.37725135999481707`, 27404.}}, {{-0.37725135999481707`, 27183.}, {-0.37725135999481707`, 27404.}}, {{-0.33837921133528487`, 28838.7734375}, {-0.4026260398969374, 28838.7734375}}, {{0, 29393}, {-0.4026260398969374, 29393.}}, {{-0.4026260398969374, 28838.7734375}, {-0.4026260398969374, 29393.}}, {{-0.27968624398940606`, 28505.546875}, {-0.33837921133528487`, 28505.546875}}, {{0, 29172}, {-0.33837921133528487`, 29172.}}, {{-0.33837921133528487`, 28505.546875}, {-0.33837921133528487`, 29172.}}, {{-0.20878090535648328`, 28060.09375}, {-0.27968624398940606`, 28060.09375}}, {{0, 28951}, {-0.27968624398940606`, 28951.}}, {{-0.27968624398940606`, 28060.09375}, {-0.27968624398940606`, 28951.}}, {{0, 27625}, {-0.20878090535648328`, 27625.}}, {{-0.16365865406810506`, 28495.1875}, {-0.20878090535648328`, 28495.1875}}, {{-0.20878090535648328`, 27625.}, {-0.20878090535648328`, 28495.1875}}, {{-0.09056753423485897, 28260.375}, {-0.16365865406810506`, 28260.375}}, {{0, 28730}, {-0.16365865406810506`, 28730.}}, {{-0.16365865406810506`, 28260.375}, {-0.16365865406810506`, 28730.}}, {{-0.06822590886626194, 28011.75}, {-0.09056753423485897, 28011.75}}, {{0, 28509}, {-0.09056753423485897, 28509.}}, {{-0.09056753423485897, 28011.75}, {-0.09056753423485897, 28509.}}, {{0, 27846}, {-0.06822590886626194, 27846.}}, {{-0.037943511953863085`, 28177.5}, {-0.06822590886626194, 28177.5}}, {{-0.06822590886626194, 27846.}, {-0.06822590886626194, 28177.5}}, {{0, 28067}, {-0.037943511953863085`, 28067.}}, {{0, 28288}, {-0.037943511953863085`, 28288.}}, {{-0.037943511953863085`, 28067.}, {-0.037943511953863085`, 28288.}}, {{-0.6267524248846194, 35563.365330696106`}, {-0.6381186669681786, 35563.365330696106`}}, {{0, 37349}, {-0.6381186669681786, 37349.}}, {{-0.6381186669681786, 35563.365330696106`}, {-0.6381186669681786, 37349.}}, {{-0.5878807120866808, 34699.71503639221}, {-0.6267524248846194, 34699.71503639221}}, {{-1.7576993598000025`*^-15, 36427.015625}, {-0.6267524248846194, 36427.015625}}, {{-0.6267524248846194, 34699.71503639221}, {-0.6267524248846194, 36427.015625}}, {{-0.4550530679717509, 34370.930072784424`}, {-0.5878807120866808, 34370.930072784424`}}, {{-0.4647094817449008, 35028.5}, {-0.5878807120866808, 35028.5}}, {{-0.5878807120866808, 34370.930072784424`}, {-0.5878807120866808, 35028.5}}, {{-0.41896403781699715`, 34044.86014556885}, {-0.4550530679717509, 34044.86014556885}}, {{0, 34697}, {-0.4550530679717509, 34697.}}, {{-0.4550530679717509, 34044.86014556885}, {-0.4550530679717509, 34697.}}, {{-0.2968929947237881, 33724.220291137695`}, {-0.41896403781699715`, 33724.220291137695`}}, {{ 0., 34365.5}, {-0.41896403781699715`, 34365.5}}, {{-0.41896403781699715`, 33724.220291137695`}, {-0.41896403781699715`, 34365.5}}, {{-0.2727462712447326, 33414.44058227539}, {-0.2968929947237881, 33414.44058227539}}, {{0, 34034}, {-0.2968929947237881, 34034.}}, {{-0.2968929947237881, 33414.44058227539}, {-0.2968929947237881, 34034.}}, {{-0.12202314896643866`, 33015.88116455078}, {-0.2727462712447326, 33015.88116455078}}, {{0, 33813}, {-0.2727462712447326, 33813.}}, {{-0.2727462712447326, 33015.88116455078}, {-0.2727462712447326, 33813.}}, {{-0.1031010153410305, 32439.762329101562`}, {-0.12202314896643866`, 32439.762329101562`}}, {{0, 33592}, {-0.12202314896643866`, 33592.}}, {{-0.12202314896643866`, 32439.762329101562`}, {-0.12202314896643866`, 33592.}}, {{-0.005435697848889285, 31508.524658203125`}, {-0.1031010153410305, 31508.524658203125`}}, {{0, 33371}, {-0.1031010153410305, 33371.}}, {{-0.1031010153410305, 31508.524658203125`}, {-0.1031010153410305, 33371.}}, {{-6.695057101313564*^-15, 30111.25}, {-0.005435697848889285, 30111.25}}, {{-0.004096446953498588, 32905.79931640625}, {-0.005435697848889285, 32905.79931640625}}, {{-0.005435697848889285, 30111.25}, {-0.005435697848889285, 32905.79931640625}}, {{-8.847514894588072*^-17, 29945.5}, {-6.695057101313564*^-15, 29945.5}}, {{0, 30277}, {-6.695057101313564*^-15, 30277.}}, {{-6.695057101313564*^-15, 29945.5}, {-6.695057101313564*^-15, 30277.}}, {{0, 29835}, {-8.847514894588072*^-17, 29835.}}, {{0, 30056}, {-8.847514894588072*^-17, 30056.}}, {{-8.847514894588072*^-17, 29835.}, {-8.847514894588072*^-17, 30056.}}, {{-0.00332993087432245, 32661.5986328125}, {-0.004096446953498588, 32661.5986328125}}, {{0, 33150}, {-0.004096446953498588, 33150.}}, {{-0.004096446953498588, 32661.5986328125}, {-0.004096446953498588, 33150.}}, {{-0.0026095695068459593`, 32394.197265625}, {-0.00332993087432245, 32394.197265625}}, {{0, 32929}, {-0.00332993087432245, 32929.}}, {{-0.00332993087432245, 32394.197265625}, {-0.00332993087432245, 32929.}}, {{-4.01038748096722*^-15, 32080.39453125}, {-0.0026095695068459593`, 32080.39453125}}, {{0, 32708}, {-0.0026095695068459593`, 32708.}}, {{-0.0026095695068459593`, 32080.39453125}, {-0.0026095695068459593`, 32708.}}, {{-9.118744361338887*^-16, 31784.2890625}, {-4.01038748096722*^-15, 31784.2890625}}, {{0., 32376.5}, {-4.01038748096722*^-15, 32376.5}}, {{-4.01038748096722*^-15, 31784.2890625}, {-4.01038748096722*^-15, 32376.5}}, {{-8.897799855787068*^-16, 31523.578125}, {-9.118744361338887*^-16, 31523.578125}}, {{0, 32045}, {-9.118744361338887*^-16, 32045.}}, {{-9.118744361338887*^-16, 31523.578125}, {-9.118744361338887*^-16, 32045.}}, {{-8.110453758317099*^-16, 31223.15625}, {-8.897799855787068*^-16, 31223.15625}}, {{0, 31824}, {-8.897799855787068*^-16, 31824.}}, {{-8.897799855787068*^-16, 31223.15625}, {-8.897799855787068*^-16, 31824.}}, {{-8.104779569610293*^-16, 30843.3125}, {-8.110453758317099*^-16, 30843.3125}}, {{0, 31603}, {-8.110453758317099*^-16, 31603.}}, {{-8.110453758317099*^-16, 30843.3125}, {-8.110453758317099*^-16, 31603.}}, {{0, 30498}, {-8.104779569610293*^-16, 30498.}}, {{-5.941909049914515*^-16, 31188.625}, {-8.104779569610293*^-16, 31188.625}}, {{-8.104779569610293*^-16, 30498.}, {-8.104779569610293*^-16, 31188.625}}, {{-5.906013774559227*^-16, 30995.25}, {-5.941909049914515*^-16, 30995.25}}, {{0, 31382}, {-5.941909049914515*^-16, 31382.}}, {{-5.941909049914515*^-16, 30995.25}, {-5.941909049914515*^-16, 31382.}}, {{0., 30829.5}, {-5.906013774559227*^-16, 30829.5}}, {{0, 31161}, {-5.906013774559227*^-16, 31161.}}, {{-5.906013774559227*^-16, 30829.5}, {-5.906013774559227*^-16, 31161.}}, {{0, 30719}, {0, 30719}}, {{0, 30940}, {0, 30940}}, {{0, 30719}, {0, 30940}}, {{0, 32266}, {0, 32266}}, {{0, 32487}, {0, 32487}}, {{0, 32266}, {0, 32487}}, {{0, 34255}, {0, 34255}}, {{0, 34476}, {0, 34476}}, {{0, 34255}, {0, 34476}}, {{0, 34918}, {-0.4647094817449008, 34918.}}, {{0, 35139}, {-0.4647094817449008, 35139.}}, {{-0.4647094817449008, 34918.}, {-0.4647094817449008, 35139.}}, {{-7.319331869323988*^-16, 35836.53125}, {-1.7576993598000025`*^-15, 35836.53125}}, {{-7.670695353972842*^-16, 37017.5}, {-1.7576993598000025`*^-15, 37017.5}}, {{-1.7576993598000025`*^-15, 35836.53125}, {-1.7576993598000025`*^-15, 37017.5}}, {{0, 35360}, {-7.319331869323988*^-16, 35360.}}, {{-5.286541331543904*^-16, 36313.0625}, {-7.319331869323988*^-16, 36313.0625}}, {{-7.319331869323988*^-16, 35360.}, {-7.319331869323988*^-16, 36313.0625}}, {{-5.042030184251753*^-16, 35940.125}, {-5.286541331543904*^-16, 35940.125}}, {{0, 36686}, {-5.286541331543904*^-16, 36686.}}, {{-5.286541331543904*^-16, 35940.125}, {-5.286541331543904*^-16, 36686.}}, {{0., 35691.5}, {-5.042030184251753*^-16, 35691.5}}, {{-4.838100312919062*^-16, 36188.75}, {-5.042030184251753*^-16, 36188.75}}, {{-5.042030184251753*^-16, 35691.5}, {-5.042030184251753*^-16, 36188.75}}, {{0, 35581}, {0, 35581}}, {{0, 35802}, {0, 35802}}, {{0, 35581}, {0, 35802}}, {{0, 36023}, {-4.838100312919062*^-16, 36023.}}, {{0., 36354.5}, {-4.838100312919062*^-16, 36354.5}}, {{-4.838100312919062*^-16, 36023.}, {-4.838100312919062*^-16, 36354.5}}, {{0, 36244}, {0, 36244}}, {{0, 36465}, {0, 36465}}, {{0, 36244}, {0, 36465}}, {{0, 36907}, {-7.670695353972842*^-16, 36907.}}, {{0, 37128}, {-7.670695353972842*^-16, 37128.}}, {{-7.670695353972842*^-16, 36907.}, {-7.670695353972842*^-16, 37128.}}, {{-0.2419223111483082, 38440.1875}, {-0.47737330282497764`, 38440.1875}}, {{0, 38896}, {-0.47737330282497764`, 38896.}}, {{-0.47737330282497764`, 38440.1875}, {-0.47737330282497764`, 38896.}}, {{-0.21949650297428053`, 38205.375}, {-0.2419223111483082, 38205.375}}, {{0, 38675}, {-0.2419223111483082, 38675.}}, {{-0.2419223111483082, 38205.375}, {-0.2419223111483082, 38675.}}, {{-5.203288101686853*^-15, 37956.75}, {-0.21949650297428053`, 37956.75}}, {{0, 38454}, {-0.21949650297428053`, 38454.}}, {{-0.21949650297428053`, 37956.75}, {-0.21949650297428053`, 38454.}}, {{0, 37791}, {-5.203288101686853*^-15, 37791.}}, {{-4.2540357504965063`*^-16, 38122.5}, {-5.203288101686853*^-15, 38122.5}}, {{-5.203288101686853*^-15, 37791.}, {-5.203288101686853*^-15, 38122.5}}, {{0, 38012}, {-4.2540357504965063`*^-16, 38012.}}, {{0, 38233}, {-4.2540357504965063`*^-16, 38233.}}, {{-4.2540357504965063`*^-16, 38012.}, {-4.2540357504965063`*^-16, 38233.}}, {{0, 39117}, {-0.7272854151265337, 39117.}}, {{0, 39338}, {-0.7272854151265337, 39338.}}, {{-0.7272854151265337, 39117.}, {-0.7272854151265337, 39338.}}, {{0, 40443}, {-0.48464298355954705`, 40443.}}, {{0, 40664}, {-0.48464298355954705`, 40664.}}, {{-0.48464298355954705`, 40443.}, {-0.48464298355954705`, 40664.}}, {{0, 40885}, {-0.23844989866420696`, 40885.}}, {{0, 41106}, {-0.23844989866420696`, 41106.}}, {{-0.23844989866420696`, 40885.}, {-0.23844989866420696`, 41106.}}, {{-0.5126814794733994, 41603.25}, {-0.555032979520824, 41603.25}}, {{0, 41990}, {-0.555032979520824, 41990.}}, {{-0.555032979520824, 41603.25}, {-0.555032979520824, 41990.}}, {{-0.12726639232010248`, 41437.5}, {-0.5126814794733994, 41437.5}}, {{0, 41769}, {-0.5126814794733994, 41769.}}, {{-0.5126814794733994, 41437.5}, {-0.5126814794733994, 41769.}}, {{0, 41327}, {-0.12726639232010248`, 41327.}}, {{0, 41548}, {-0.12726639232010248`, 41548.}}, {{-0.12726639232010248`, 41327.}, {-0.12726639232010248`, 41548.}}, {{0, 42211}, {0, 42211}}, {{ 0, 42432}, {0, 42432}}, {{0, 42211}, {0, 42432}}, {{-0.8472723589386675, 43592.25}, {-1.030873964430176, 43592.25}}, {{0, 45084}, {-1.030873964430176, 45084.}}, {{-1.030873964430176, 43592.25}, {-1.030873964430176, 45084.}}, {{0, 43095}, {-0.8472723589386675, 43095.}}, {{-0.8002911458897072, 44089.5}, {-0.8472723589386675, 44089.5}}, {{-0.8472723589386675, 43095.}, {-0.8472723589386675, 44089.5}}, {{-0.6985378104206736, 43509.375}, {-0.8002911458897072, 43509.375}}, {{-0.7080026359467699, 44669.625}, {-0.8002911458897072, 44669.625}}, {{-0.8002911458897072, 43509.375}, {-0.8002911458897072, 44669.625}}, {{0, 43316}, {-0.6985378104206736, 43316.}}, {{-0.5790705156525541, 43702.75}, {-0.6985378104206736, 43702.75}}, {{-0.6985378104206736, 43316.}, {-0.6985378104206736, 43702.75}}, {{0, 43537}, {-0.5790705156525541, 43537.}}, {{-0.5130590473568077, 43868.5}, {-0.5790705156525541, 43868.5}}, {{-0.5790705156525541, 43537.}, {-0.5790705156525541, 43868.5}}, {{0, 43758}, {-0.5130590473568077, 43758.}}, {{0, 43979}, {-0.5130590473568077, 43979.}}, {{-0.5130590473568077, 43758.}, {-0.5130590473568077, 43979.}}, {{-0.644177759752336, 44476.25}, {-0.7080026359467699, 44476.25}}, {{0, 44863}, {-0.7080026359467699, 44863.}}, {{-0.7080026359467699, 44476.25}, {-0.7080026359467699, 44863.}}, {{-0.5154245304339438, 44310.5}, {-0.644177759752336, 44310.5}}, {{0, 44642}, {-0.644177759752336, 44642.}}, {{-0.644177759752336, 44310.5}, {-0.644177759752336, 44642.}}, {{0, 44200}, {-0.5154245304339438, 44200.}}, {{0, 44421}, {-0.5154245304339438, 44421.}}, {{-0.5154245304339438, 44200.}, {-0.5154245304339438, 44421.}}, {{-0.8434344530422693, 45581.25}, {-0.9637936352116349, 45581.25}}, {{0, 45968}, {-0.9637936352116349, 45968.}}, {{-0.9637936352116349, 45581.25}, {-0.9637936352116349, 45968.}}, {{-0.5254666263034657, 45415.5}, {-0.8434344530422693, 45415.5}}, {{0, 45747}, {-0.8434344530422693, 45747.}}, {{-0.8434344530422693, 45415.5}, {-0.8434344530422693, 45747.}}, {{0, 45305}, {-0.5254666263034657, 45305.}}, {{0, 45526}, {-0.5254666263034657, 45526.}}, {{-0.5254666263034657, 45305.}, {-0.5254666263034657, 45526.}}, {{0, 46410}, {-0.5940657754914155, 46410.}}, {{0, 46631}, {-0.5940657754914155, 46631.}}, {{-0.5940657754914155, 46410.}, {-0.5940657754914155, 46631.}}, {{-0.3087911063855944, 46962.5}, {-0.710261837307002, 46962.5}}, {{0, 47294}, {-0.710261837307002, 47294.}}, {{-0.710261837307002, 46962.5}, {-0.710261837307002, 47294.}}, {{0, 46852}, {-0.3087911063855944, 46852.}}, {{0, 47073}, {-0.3087911063855944, 47073.}}, {{-0.3087911063855944, 46852.}, {-0.3087911063855944, 47073.}}, {{0, 48178}, {-1.1877955382730512`, 48178.}}, {{0, 48399}, {-1.1877955382730512`, 48399.}}, {{-1.1877955382730512`, 48178.}, {-1.1877955382730512`, 48399.}}}]}, InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 221}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 442}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 663}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 884}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1105}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1326}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1547}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1768}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1989}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2210}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2431}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2652}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2873}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3094}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3315}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3536}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3757}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3978}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.08047808764940267, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.08047808764940267, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.08047808764940267, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.08047808764940267, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.08047808764940267, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4199}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4420}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4641}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4862}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5083}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5304}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5525}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5746}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5967}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 6188}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 6409}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 6630}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 6851}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7072}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7293}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7514}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7735}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7956}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 8177}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 8398}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 8619}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 8840}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9061}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9282}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9503}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9724}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Peru\"\>", StripOnInput->False, FontColor->RGBColor[0.4, 0.8, 1], $CellContext`LineColor -> RGBColor[0.4, 0.8, 1], $CellContext`FrontFaceColor -> RGBColor[0.4, 0.8, 1], $CellContext`GraphicsColor -> RGBColor[0.4, 0.8, 1], $CellContext`BackFaceColor -> RGBColor[0.4, 0.8, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "10"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.3577689243027903], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.3577689243027903], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.3577689243027903], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.3577689243027903], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.3577689243027903]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9945}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10166}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10387}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "8"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.19309428950863133`, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.19309428950863133`, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.19309428950863133`, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.19309428950863133`, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.19309428950863133`, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10608}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10829}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11050}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11271}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11492}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11713}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11934}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12155}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12376}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12597}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12818}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13039}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13260}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13481}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "10"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.23559096945551133`, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.23559096945551133`, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.23559096945551133`, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.23559096945551133`, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.23559096945551133`, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13702}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13923}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 14144}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "2"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 14365}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "2"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 14586}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4719787516600273, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.4719787516600273, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.4719787516600273, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.4719787516600273, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.4719787516600273, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 14807}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "31"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15028}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Japan\"\>", StripOnInput->False, FontColor->GrayLevel[1], $CellContext`LineColor -> GrayLevel[1], $CellContext`FrontFaceColor -> GrayLevel[1], $CellContext`GraphicsColor -> GrayLevel[1], $CellContext`BackFaceColor -> GrayLevel[1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.07622841965471465, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.07622841965471465, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.07622841965471465, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.07622841965471465, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.07622841965471465, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15249}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15470}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15691}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15912}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Vietnam\"\>", StripOnInput->False, FontColor->RGBColor[1, 1, 0.392157], $CellContext`LineColor -> RGBColor[1, 1, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 1, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 1, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 1, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 16133}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Vietnam\"\>", StripOnInput->False, FontColor->RGBColor[1, 1, 0.392157], $CellContext`LineColor -> RGBColor[1, 1, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 1, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 1, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 1, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 16354}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 16575}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 16796}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17017}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17238}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17459}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17680}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17901}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 18122}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.28233731739707935`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.28233731739707935`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.28233731739707935`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.28233731739707935`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.28233731739707935`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 18343}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Taiwan\"\>", StripOnInput->False, FontColor->RGBColor[0.895369, 0.716976, 0.346883], $CellContext`LineColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`FrontFaceColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`GraphicsColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`BackFaceColor -> RGBColor[0.895369, 0.716976, 0.346883]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "5"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.4347941567065054, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.4347941567065054, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.4347941567065054, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.4347941567065054, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.4347941567065054, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 18564}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Japan\"\>", StripOnInput->False, FontColor->GrayLevel[1], $CellContext`LineColor -> GrayLevel[1], $CellContext`FrontFaceColor -> GrayLevel[1], $CellContext`GraphicsColor -> GrayLevel[1], $CellContext`BackFaceColor -> GrayLevel[1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 18785}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "2"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.5543160690571047, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.5543160690571047, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.5543160690571047, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.5543160690571047, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.5543160690571047, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19006}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19227}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Pakistan\"\>", StripOnInput->False, FontColor->RGBColor[0.759213, 0.886885, 0.319265], $CellContext`LineColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`FrontFaceColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`GraphicsColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`BackFaceColor -> RGBColor[0.759213, 0.886885, 0.319265]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19448}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"India\"\>", StripOnInput->False, FontColor->RGBColor[0.566842, 0.967407, 1], $CellContext`LineColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`FrontFaceColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`GraphicsColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`BackFaceColor -> RGBColor[0.566842, 0.967407, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "27"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19669}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19890}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20111}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "27"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20332}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20553}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.5187250996015933, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.5187250996015933, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.5187250996015933, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.5187250996015933, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.5187250996015933, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20774}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.3620185922974777, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.3620185922974777, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.3620185922974777, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.3620185922974777, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.3620185922974777, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20995}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Japan\"\>", StripOnInput->False, FontColor->GrayLevel[1], $CellContext`LineColor -> GrayLevel[1], $CellContext`FrontFaceColor -> GrayLevel[1], $CellContext`GraphicsColor -> GrayLevel[1], $CellContext`BackFaceColor -> GrayLevel[1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "9"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.3976095617529877], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.3976095617529877], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.3976095617529877], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.3976095617529877], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.3976095617529877]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 21216}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 21437}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "11"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.31792828685258934`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.31792828685258934`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.31792828685258934`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.31792828685258934`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.31792828685258934`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 21658}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 21879}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22100}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22321}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22542}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "26"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22763}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22984}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "26"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 23205}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "26"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 23426}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "10"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 23647}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Taiwan\"\>", StripOnInput->False, FontColor->RGBColor[0.895369, 0.716976, 0.346883], $CellContext`LineColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`FrontFaceColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`GraphicsColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`BackFaceColor -> RGBColor[0.895369, 0.716976, 0.346883]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 23868}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Pakistan\"\>", StripOnInput->False, FontColor->RGBColor[0.759213, 0.886885, 0.319265], $CellContext`LineColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`FrontFaceColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`GraphicsColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`BackFaceColor -> RGBColor[0.759213, 0.886885, 0.319265]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "4"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.5968127490039853], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.5968127490039853], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.5968127490039853], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.5968127490039853], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.5968127490039853]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24089}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24310}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24531}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24752}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24973}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 25194}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 25415}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 25636}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 25857}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26078}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "19"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26299}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26520}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26741}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26962}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 27183}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 27404}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 27625}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 27846}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28067}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28288}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28509}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28730}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28951}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.5213811420982744, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.5213811420982744, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.5213811420982744, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.5213811420982744, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.5213811420982744, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 29172}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 29393}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 29614}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 29835}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "19"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30056}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30277}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30498}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30719}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30940}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 31161}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 31382}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 31603}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 31824}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32045}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32266}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32487}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32708}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "1"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6169986719787524, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.6169986719787524, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.6169986719787524, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.6169986719787524, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.6169986719787524, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32929}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 33150}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "19"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 33371}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 33592}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.12031872509960007`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.12031872509960007`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.12031872509960007`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.12031872509960007`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.12031872509960007`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 33813}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34034}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34255}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34476}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34697}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34918}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 35139}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 35360}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 35581}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 35802}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36023}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36244}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36465}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36686}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36907}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 37128}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 37349}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 37570}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 37791}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38012}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "26"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38233}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Taiwan\"\>", StripOnInput->False, FontColor->RGBColor[0.895369, 0.716976, 0.346883], $CellContext`LineColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`FrontFaceColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`GraphicsColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`BackFaceColor -> RGBColor[0.895369, 0.716976, 0.346883]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "31"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38454}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.16547144754315943`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.16547144754315943`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.16547144754315943`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.16547144754315943`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.16547144754315943`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38675}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38896}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 39117}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 39338}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 39559}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"India\"\>", StripOnInput->False, FontColor->RGBColor[0.566842, 0.967407, 1], $CellContext`LineColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`FrontFaceColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`GraphicsColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`BackFaceColor -> RGBColor[0.566842, 0.967407, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "31"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 39780}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40001}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40222}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40443}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40664}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40885}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41106}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "11"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.07357237715803559, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.07357237715803559, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.07357237715803559, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.07357237715803559, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.07357237715803559, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41327}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41548}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "11"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.1957503320053104, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.1957503320053104, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.1957503320053104, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.1957503320053104, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.1957503320053104, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41769}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "10"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41990}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 42211}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 42432}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "6"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.394953519256308, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.394953519256308, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.394953519256308, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.394953519256308, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.394953519256308, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 42653}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 42874}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Australia\"\>", StripOnInput->False, FontColor->RGBColor[0.90045, 0.0204013, 0.0301823], $CellContext`LineColor -> RGBColor[0.90045, 0.0204013, 0.0301823], $CellContext`FrontFaceColor -> RGBColor[0.90045, 0.0204013, 0.0301823], $CellContext`GraphicsColor -> RGBColor[0.90045, 0.0204013, 0.0301823], $CellContext`BackFaceColor -> RGBColor[0.90045, 0.0204013, 0.0301823]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43095}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43316}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "27"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.441699867197876, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.441699867197876, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.441699867197876, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.441699867197876, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.441699867197876, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43537}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43758}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Italy\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.926772, 0.151904], $CellContext`LineColor -> RGBColor[1, 0.926772, 0.151904], $CellContext`FrontFaceColor -> RGBColor[1, 0.926772, 0.151904], $CellContext`GraphicsColor -> RGBColor[1, 0.926772, 0.151904], $CellContext`BackFaceColor -> RGBColor[1, 0.926772, 0.151904]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6499335989375827, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.6499335989375827, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.6499335989375827, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.6499335989375827, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.6499335989375827, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43979}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Brazil\"\>", StripOnInput->False, FontColor->RGBColor[0.829938, 0.725154, 1], $CellContext`LineColor -> RGBColor[0.829938, 0.725154, 1], $CellContext`FrontFaceColor -> RGBColor[0.829938, 0.725154, 1], $CellContext`GraphicsColor -> RGBColor[0.829938, 0.725154, 1], $CellContext`BackFaceColor -> RGBColor[0.829938, 0.725154, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 44200}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 44421}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 44642}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 44863}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Sweden\"\>", StripOnInput->False, FontColor->RGBColor[0.790433, 0.450294, 1], $CellContext`LineColor -> RGBColor[0.790433, 0.450294, 1], $CellContext`FrontFaceColor -> RGBColor[0.790433, 0.450294, 1], $CellContext`GraphicsColor -> RGBColor[0.790433, 0.450294, 1], $CellContext`BackFaceColor -> RGBColor[0.790433, 0.450294, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "7"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.35511288180610706`, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.35511288180610706`, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.35511288180610706`, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.35511288180610706`, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.35511288180610706`, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45084}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45305}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.3248339973439561], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.3248339973439561], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.3248339973439561], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.3248339973439561], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.3248339973439561]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45526}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45747}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.40451527224435446`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.40451527224435446`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.40451527224435446`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.40451527224435446`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.40451527224435446`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45968}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "5"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.5569721115537843], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.5569721115537843], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.5569721115537843], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.5569721115537843], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.5569721115537843]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 46189}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 46410}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 46631}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 46852}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47073}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47294}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47515}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"SouthKorea\"\>", StripOnInput->False, FontColor->RGBColor[0.959274, 0.614496, 0.466316], $CellContext`LineColor -> RGBColor[0.959274, 0.614496, 0.466316], $CellContext`FrontFaceColor -> RGBColor[0.959274, 0.614496, 0.466316], $CellContext`GraphicsColor -> RGBColor[0.959274, 0.614496, 0.466316], $CellContext`BackFaceColor -> RGBColor[0.959274, 0.614496, 0.466316]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47736}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47957}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 48178}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 48399}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 48620}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 48841}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->5, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->750, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.794843698187471*^9, 3.7948438553253403`*^9}, CellLabel->"Out[4]=", CellID->854055437] }, Open ]], Cell["\<\ This example illustrates the importance of clipping off the first singular \ value in the dimension reduction, in cases where it is much larger than the \ next one. In effect one component will dominate the rest, in a way that will \ tend to make the distances less meaningful. We show this now by forcing the \ large value to be retained. The result is a tree that is unbalanced in terms \ of branch lengths:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.794843912843791*^9, 3.7948440822388487`*^9}, { 3.794844158371748*^9, 3.794844188691824*^9}}, CellID->306021279], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PhylogeneticTreePlot", "[", RowBox[{"fullseqs", ",", "colorPlaceDateLabels", ",", RowBox[{"\"\\"", "\[Rule]", "False"}], ",", RowBox[{"AspectRatio", "\[Rule]", "5"}], ",", RowBox[{"ImageSize", "\[Rule]", "750"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.794843830768998*^9, 3.794843844056905*^9}}, CellLabel->"In[5]:=", CellID->879509430], Cell[BoxData[ GraphicsBox[{ {GrayLevel[0.65], LineBox[{{{-0.05264358206651856, 48398.99285982279}, {-0.07347805804072641, 48398.99285982279}}, {{0, 48841}, {-0.07347805804072641, 48841.}}, {{-0.07347805804072641, 48398.99285982279}, {-0.07347805804072641, 48841.}}, {{-0.05237713674470161, 48177.985719645585`}, {-0.05264358206651856, 48177.985719645585`}}, {{0, 48620}, {-0.05264358206651856, 48620.}}, {{-0.05264358206651856, 48177.985719645585`}, {-0.05264358206651856, 48620.}}, {{-0.05029474561063523, 47956.97143929117}, {-0.05237713674470161, 47956.97143929117}}, {{0, 48399}, {-0.05237713674470161, 48399.}}, {{-0.05237713674470161, 47956.97143929117}, {-0.05237713674470161, 48399.}}, {{-0.04423288061970594, 47735.94287858234}, {-0.05029474561063523, 47735.94287858234}}, {{0, 48178}, {-0.05029474561063523, 48178.}}, {{-0.05029474561063523, 47735.94287858234}, {-0.05029474561063523, 48178.}}, {{-0.03737397343066715, 47514.88575716468}, {-0.04423288061970594, 47514.88575716468}}, {{0, 47957}, {-0.04423288061970594, 47957.}}, {{-0.04423288061970594, 47514.88575716468}, {-0.04423288061970594, 47957.}}, {{-0.0317629340714989, 47293.77151432935}, {-0.03737397343066715, 47293.77151432935}}, {{0, 47736}, {-0.03737397343066715, 47736.}}, {{-0.03737397343066715, 47293.77151432935}, {-0.03737397343066715, 47736.}}, {{-0.03094309164294662, 47072.54302865871}, {-0.0317629340714989, 47072.54302865871}}, {{0, 47515}, {-0.0317629340714989, 47515.}}, {{-0.0317629340714989, 47072.54302865871}, {-0.0317629340714989, 47515.}}, {{-0.030792534419922062`, 46851.086057317414`}, {-0.03094309164294662, 46851.086057317414`}}, {{0, 47294}, {-0.03094309164294662, 47294.}}, {{-0.03094309164294662, 46851.086057317414`}, {-0.03094309164294662, 47294.}}, {{-0.029966771599984992`, 46629.17211463483}, {-0.030792534419922062`, 46629.17211463483}}, {{0, 47073}, {-0.030792534419922062`, 47073.}}, {{-0.030792534419922062`, 46629.17211463483}, {-0.030792534419922062`, 47073.}}, {{-0.029547821255924825`, 46406.344229269656`}, {-0.029966771599984992`, 46406.344229269656`}}, {{0, 46852}, {-0.029966771599984992`, 46852.}}, {{-0.029966771599984992`, 46406.344229269656`}, {-0.029966771599984992`, 46852.}}, {{-0.02676609519361065, 46181.68845853932}, {-0.029547821255924825`, 46181.68845853932}}, {{0, 46631}, {-0.029547821255924825`, 46631.}}, {{-0.029547821255924825`, 46181.68845853932}, {-0.029547821255924825`, 46631.}}, {{-0.025623390066266544`, 45953.37691707864}, {-0.02676609519361065, 45953.37691707864}}, {{0, 46410}, {-0.02676609519361065, 46410.}}, {{-0.02676609519361065, 45953.37691707864}, {-0.02676609519361065, 46410.}}, {{-0.025045699934237702`, 45717.75383415728}, {-0.025623390066266544`, 45717.75383415728}}, {{0, 46189}, {-0.025623390066266544`, 46189.}}, {{-0.025623390066266544`, 45717.75383415728}, {-0.025623390066266544`, 46189.}}, {{-0.023699763957832944`, 45467.50766831456}, {-0.025045699934237702`, 45467.50766831456}}, {{0, 45968}, {-0.025045699934237702`, 45968.}}, {{-0.025045699934237702`, 45467.50766831456}, {-0.025045699934237702`, 45968.}}, {{-0.023411060751033778`, 45188.01533662913}, {-0.023699763957832944`, 45188.01533662913}}, {{0, 45747}, {-0.023699763957832944`, 45747.}}, {{-0.023699763957832944`, 45188.01533662913}, {-0.023699763957832944`, 45747.}}, {{-0.021972749256200807`, 44850.030673258254`}, {-0.023411060751033778`, 44850.030673258254`}}, {{0, 45526}, {-0.023411060751033778`, 45526.}}, {{-0.023411060751033778`, 44850.030673258254`}, {-0.023411060751033778`, 45526.}}, {{-0.021303590809652596`, 44395.06134651651}, {-0.021972749256200807`, 44395.06134651651}}, {{0, 45305}, {-0.021972749256200807`, 45305.}}, {{-0.021972749256200807`, 44395.06134651651}, {-0.021972749256200807`, 45305.}}, {{-0.021222111599763924`, 43706.122693033016`}, {-0.021303590809652596`, 43706.122693033016`}}, {{0, 45084}, {-0.021303590809652596`, 45084.}}, {{-0.021303590809652596`, 43706.122693033016`}, {-0.021303590809652596`, 45084.}}, {{-0.02015687279254649, 42922.18288606603}, {-0.021222111599763924`, 42922.18288606603}}, {{-0.02098027100381894, 44490.0625}, {-0.021222111599763924`, 44490.0625}}, {{-0.021222111599763924`, 42922.18288606603}, {-0.021222111599763924`, 44490.0625}}, {{-0.019633162321901647`, 42583.61577213206}, {-0.02015687279254649, 42583.61577213206}}, {{-0.020144667725155052`, 43260.75}, {-0.02015687279254649, 43260.75}}, {{-0.02015687279254649, 42583.61577213206}, {-0.02015687279254649, 43260.75}}, {{-0.01901065385632632, 42293.23154426412}, {-0.019633162321901647`, 42293.23154426412}}, {{0, 42874}, {-0.019633162321901647`, 42874.}}, {{-0.019633162321901647`, 42293.23154426412}, {-0.019633162321901647`, 42874.}}, {{-0.01887669080000362, 41933.46308852824}, {-0.01901065385632632, 41933.46308852824}}, {{0, 42653}, {-0.01901065385632632, 42653.}}, {{-0.01901065385632632, 41933.46308852824}, {-0.01901065385632632, 42653.}}, {{-0.018515201801212862`, 41434.926177056484`}, {-0.01887669080000362, 41434.926177056484`}}, {{0, 42432}, {-0.01887669080000362, 42432.}}, {{-0.01887669080000362, 41434.926177056484`}, {-0.01887669080000362, 42432.}}, {{-0.018475916436969313`, 40769.35235411297}, {-0.018515201801212862`, 40769.35235411297}}, {{-0.01659661520976379, 42100.5}, {-0.018515201801212862`, 42100.5}}, {{-0.018515201801212862`, 40769.35235411297}, {-0.018515201801212862`, 42100.5}}, {{-0.01806506956925594, 39976.892208225945`}, {-0.018475916436969313`, 39976.892208225945`}}, {{-0.016678537449098318`, 41561.8125}, {-0.018475916436969313`, 41561.8125}}, {{-0.018475916436969313`, 39976.892208225945`}, {-0.018475916436969313`, 41561.8125}}, {{-0.017991312484640046`, 39400.28441645189}, {-0.01806506956925594, 39400.28441645189}}, {{-0.012541748379058268`, 40553.5}, {-0.01806506956925594, 40553.5}}, {{-0.01806506956925594, 39400.28441645189}, {-0.01806506956925594, 40553.5}}, {{-0.017073270084823674`, 38689.06883290378}, {-0.017991312484640046`, 38689.06883290378}}, {{-0.015933859766378906`, 40111.5}, {-0.017991312484640046`, 40111.5}}, {{-0.017991312484640046`, 38689.06883290378}, {-0.017991312484640046`, 40111.5}}, {{-0.017002019134291294`, 37708.63766580756}, {-0.017073270084823674`, 37708.63766580756}}, {{-0.006657110508294673, 39669.5}, {-0.017073270084823674`, 39669.5}}, {{-0.017073270084823674`, 37708.63766580756}, {-0.017073270084823674`, 39669.5}}, {{-0.01678057837735028, 36079.27533161512}, {-0.017002019134291294`, 36079.27533161512}}, {{0, 39338}, {-0.017002019134291294`, 39338.}}, {{-0.017002019134291294`, 36079.27533161512}, {-0.017002019134291294`, 39338.}}, {{-0.016198579121781787`, 33041.55066323025}, {-0.01678057837735028, 33041.55066323025}}, {{0, 39117}, {-0.01678057837735028, 39117.}}, {{-0.01678057837735028, 33041.55066323025}, {-0.01678057837735028, 39117.}}, {{-0.01580929177806598, 29307.3200764605}, {-0.016198579121781787`, 29307.3200764605}}, {{-0.014987087960090602`, 36775.78125}, {-0.016198579121781787`, 36775.78125}}, {{-0.016198579121781787`, 29307.3200764605}, {-0.016198579121781787`, 36775.78125}}, {{-0.015726549508485937`, 23475.640152921}, {-0.01580929177806598, 23475.640152921}}, {{0, 35139}, {-0.01580929177806598, 35139.}}, {{-0.01580929177806598, 23475.640152921}, {-0.01580929177806598, 35139.}}, {{-0.01536943830612965, 12033.280305842005`}, {-0.015726549508485937`, 12033.280305842005`}}, {{0, 34918}, {-0.015726549508485937`, 34918.}}, {{-0.015726549508485937`, 12033.280305842005`}, {-0.015726549508485937`, 34918.}}, {{-0.014050225438828907`, 4132.7161865234375`}, {-0.01536943830612965, 4132.7161865234375`}}, {{-0.015008375807689411`, 19933.844425160572`}, {-0.01536943830612965, 19933.844425160572`}}, {{-0.01536943830612965, 4132.7161865234375`}, {-0.01536943830612965, 19933.844425160572`}}, {{-0.013659916706612155`, 3403.432373046875}, {-0.014050225438828907`, 3403.432373046875}}, {{0, 4862}, {-0.014050225438828907`, 4862.}}, {{-0.014050225438828907`, 3403.432373046875}, {-0.014050225438828907`, 4862.}}, {{-0.012391736850132881`, 2165.86474609375}, {-0.013659916706612155`, 2165.86474609375}}, {{0, 4641}, {-0.013659916706612155`, 4641.}}, {{-0.013659916706612155`, 2165.86474609375}, {-0.013659916706612155`, 4641.}}, {{0, 221}, {-0.012391736850132881`, 221.}}, {{-0.011582103359017522`, 4110.7294921875}, {-0.012391736850132881`, 4110.7294921875}}, {{-0.012391736850132881`, 221.}, {-0.012391736850132881`, 4110.7294921875}}, {{-0.011333528414536284`, 3801.458984375}, {-0.011582103359017522`, 3801.458984375}}, {{0, 4420}, {-0.011582103359017522`, 4420.}}, {{-0.011582103359017522`, 3801.458984375}, {-0.011582103359017522`, 4420.}}, {{-0.010234939790170731`, 3403.91796875}, {-0.011333528414536284`, 3403.91796875}}, {{0, 4199}, {-0.011333528414536284`, 4199.}}, {{-0.011333528414536284`, 3403.91796875}, {-0.011333528414536284`, 4199.}}, {{-0.010173581852420961`, 2829.8359375}, {-0.010234939790170731`, 2829.8359375}}, {{0, 3978}, {-0.010234939790170731`, 3978.}}, {{-0.010234939790170731`, 2829.8359375}, {-0.010234939790170731`, 3978.}}, {{-0.008356548840457207, 2013.171875}, {-0.010173581852420961`, 2013.171875}}, {{-0.002489274605249824, 3646.5}, {-0.010173581852420961`, 3646.5}}, {{-0.010173581852420961`, 2013.171875}, {-0.010173581852420961`, 3646.5}}, {{-0.006435222548658352, 1471.03125}, {-0.008356548840457207, 1471.03125}}, {{-0.008349820768583973, 2555.3125}, {-0.008356548840457207, 2555.3125}}, {{-0.008356548840457207, 1471.03125}, {-0.008356548840457207, 2555.3125}}, {{-0.00508665479744931, 1174.0625}, {-0.006435222548658352, 1174.0625}}, {{0, 1768}, {-0.006435222548658352, 1768.}}, {{-0.006435222548658352, 1174.0625}, {-0.006435222548658352, 1768.}}, {{-0.0029423408943818484`, 911.625}, {-0.00508665479744931, 911.625}}, {{0., 1436.5}, {-0.00508665479744931, 1436.5}}, {{-0.00508665479744931, 911.625}, {-0.00508665479744931, 1436.5}}, {{-0.0028465562389498804`, 718.25}, {-0.0029423408943818484`, 718.25}}, {{0, 1105}, {-0.0029423408943818484`, 1105.}}, {{-0.0029423408943818484`, 718.25}, {-0.0029423408943818484`, 1105.}}, {{0., 552.5}, {-0.0028465562389498804`, 552.5}}, {{0, 884}, {-0.0028465562389498804`, 884.}}, {{-0.0028465562389498804`, 552.5}, {-0.0028465562389498804`, 884.}}, {{0, 442}, {0, 442}}, {{0, 663}, {0, 663}}, {{0, 442}, {0, 663}}, {{0, 1326}, {0, 1326}}, {{0, 1547}, {0, 1547}}, {{0, 1326}, {0, 1547}}, {{-0.00827175218315543, 2265.25}, {-0.008349820768583973, 2265.25}}, {{-0.00720709536533611, 2845.375}, {-0.008349820768583973, 2845.375}}, {{-0.008349820768583973, 2265.25}, {-0.008349820768583973, 2845.375}}, {{-0.006938287836871214, 2099.5}, {-0.00827175218315543, 2099.5}}, {{0, 2431}, {-0.00827175218315543, 2431.}}, {{-0.00827175218315543, 2099.5}, {-0.00827175218315543, 2431.}}, {{0, 1989}, {-0.006938287836871214, 1989.}}, {{0, 2210}, {-0.006938287836871214, 2210.}}, {{-0.006938287836871214, 1989.}, {-0.006938287836871214, 2210.}}, {{0, 2652}, {-0.00720709536533611, 2652.}}, {{-0.006070732581718158, 3038.75}, {-0.00720709536533611, 3038.75}}, {{-0.00720709536533611, 2652.}, {-0.00720709536533611, 3038.75}}, {{0, 2873}, {-0.006070732581718158, 2873.}}, {{0., 3204.5}, {-0.006070732581718158, 3204.5}}, {{-0.006070732581718158, 2873.}, {-0.006070732581718158, 3204.5}}, {{0, 3094}, {0, 3094}}, {{0, 3315}, {0, 3315}}, {{0, 3094}, {0, 3315}}, {{0, 3536}, {-0.002489274605249824, 3536.}}, {{0, 3757}, {-0.002489274605249824, 3757.}}, {{-0.002489274605249824, 3536.}, {-0.002489274605249824, 3757.}}, {{-0.012671702967391648`, 6462.5234375}, {-0.015008375807689411`, 6462.5234375}}, {{-0.014954795706702911`, 33405.165412821145`}, {-0.015008375807689411`, 33405.165412821145`}}, {{-0.015008375807689411`, 6462.5234375}, {-0.015008375807689411`, 33405.165412821145`}}, {{-0.009429704963311728, 6184.546875}, {-0.012671702967391648`, 6184.546875}}, {{-0.011040119381821104`, 6740.5}, {-0.012671702967391648`, 6740.5}}, {{-0.012671702967391648`, 6184.546875}, {-0.012671702967391648`, 6740.5}}, {{-0.007644204376931913, 5960.09375}, {-0.009429704963311728, 5960.09375}}, {{0, 6409}, {-0.009429704963311728, 6409.}}, {{-0.009429704963311728, 5960.09375}, {-0.009429704963311728, 6409.}}, {{-0.007414490445789432, 5732.1875}, {-0.007644204376931913, 5732.1875}}, {{0, 6188}, {-0.007644204376931913, 6188.}}, {{-0.007644204376931913, 5732.1875}, {-0.007644204376931913, 6188.}}, {{-0.007398802262775539, 5497.375}, {-0.007414490445789432, 5497.375}}, {{0, 5967}, {-0.007414490445789432, 5967.}}, {{-0.007414490445789432, 5497.375}, {-0.007414490445789432, 5967.}}, {{-0.0034029251942801404`, 5248.75}, {-0.007398802262775539, 5248.75}}, {{0, 5746}, {-0.007398802262775539, 5746.}}, {{-0.007398802262775539, 5248.75}, {-0.007398802262775539, 5746.}}, {{0, 5083}, {-0.0034029251942801404`, 5083.}}, {{-0.0013194448387743598`, 5414.5}, {-0.0034029251942801404`, 5414.5}}, {{-0.0034029251942801404`, 5083.}, {-0.0034029251942801404`, 5414.5}}, {{0, 5304}, {-0.0013194448387743598`, 5304.}}, {{0, 5525}, {-0.0013194448387743598`, 5525.}}, {{-0.0013194448387743598`, 5304.}, {-0.0013194448387743598`, 5525.}}, {{0, 6630}, {-0.011040119381821104`, 6630.}}, {{0, 6851}, {-0.011040119381821104`, 6851.}}, {{-0.011040119381821104`, 6630.}, {-0.011040119381821104`, 6851.}}, {{-0.014921505935659971`, 32113.330825642293`}, {-0.014954795706702911`, 32113.330825642293`}}, {{0, 34697}, {-0.014954795706702911`, 34697.}}, {{-0.014954795706702911`, 32113.330825642293`}, {-0.014954795706702911`, 34697.}}, {{-0.014810562740270388`, 29861.161651284587`}, {-0.014921505935659971`, 29861.161651284587`}}, {{-0.012215445389030067`, 34365.5}, {-0.014921505935659971`, 34365.5}}, {{-0.014921505935659971`, 29861.161651284587`}, {-0.014921505935659971`, 34365.5}}, {{-0.014167548772314995`, 25798.823302569177`}, {-0.014810562740270388`, 25798.823302569177`}}, {{-0.006763878329347807, 33923.5}, {-0.014810562740270388`, 33923.5}}, {{-0.014810562740270388`, 25798.823302569177`}, {-0.014810562740270388`, 33923.5}}, {{-0.013785027350962277`, 18434.483010090888`}, {-0.014167548772314995`, 18434.483010090888`}}, {{-0.014090083258231209`, 33163.16359504747}, {-0.014167548772314995`, 33163.16359504747}}, {{-0.014167548772314995`, 18434.483010090888`}, {-0.014167548772314995`, 33163.16359504747}}, {{-0.012600157124662023`, 16315.966020181775`}, {-0.013785027350962277`, 16315.966020181775`}}, {{0, 20553}, {-0.013785027350962277`, 20553.}}, {{-0.013785027350962277`, 16315.966020181775`}, {-0.013785027350962277`, 20553.}}, {{-0.011928695376124067`, 12548.55704036355}, {-0.012600157124662023`, 12548.55704036355}}, {{-0.011778227884311005`, 20083.375}, {-0.012600157124662023`, 20083.375}}, {{-0.012600157124662023`, 12548.55704036355}, {-0.012600157124662023`, 20083.375}}, {{-0.008892450759888457, 7237.75}, {-0.011928695376124067`, 7237.75}}, {{-0.011433645866110466`, 17859.3640807271}, {-0.011928695376124067`, 17859.3640807271}}, {{-0.011928695376124067`, 7237.75}, {-0.011928695376124067`, 17859.3640807271}}, {{0, 7072}, {-0.008892450759888457, 7072.}}, {{-0.003692168650955636, 7403.5}, {-0.008892450759888457, 7403.5}}, {{-0.008892450759888457, 7072.}, {-0.008892450759888457, 7403.5}}, {{0, 7293}, {-0.003692168650955636, 7293.}}, {{0, 7514}, {-0.003692168650955636, 7514.}}, {{-0.003692168650955636, 7293.}, {-0.003692168650955636, 7514.}}, {{-0.010208850693001079`, 16270.7281614542}, {-0.011433645866110466`, 16270.7281614542}}, {{0, 19448}, {-0.011433645866110466`, 19448.}}, {{-0.011433645866110466`, 16270.7281614542}, {-0.011433645866110466`, 19448.}}, {{-0.009757948279802319, 13314.456322908401`}, {-0.010208850693001079`, 13314.456322908401`}}, {{0, 19227}, {-0.010208850693001079`, 19227.}}, {{-0.010208850693001079`, 13314.456322908401`}, {-0.010208850693001079`, 19227.}}, {{-0.009592633170611611, 9461.130859375}, {-0.009757948279802319, 9461.130859375}}, {{-0.009717128005775575, 17167.781786441803`}, {-0.009757948279802319, 17167.781786441803`}}, {{-0.009757948279802319, 9461.130859375}, {-0.009757948279802319, 17167.781786441803`}}, {{-0.007393519414836648, 8756.26171875}, {-0.009592633170611611, 8756.26171875}}, {{0, 10166}, {-0.009592633170611611, 10166.}}, {{-0.009592633170611611, 8756.26171875}, {-0.009592633170611611, 10166.}}, {{0., 7845.5}, {-0.007393519414836648, 7845.5}}, {{-0.006536229085100963, 9667.0234375}, {-0.007393519414836648, 9667.0234375}}, {{-0.007393519414836648, 7845.5}, {-0.007393519414836648, 9667.0234375}}, {{0, 7735}, {0, 7735}}, {{0, 7956}, {0, 7956}}, {{0, 7735}, {0, 7956}}, {{-0.005026978650966628, 9389.046875}, {-0.006536229085100963, 9389.046875}}, {{0, 9945}, {-0.006536229085100963, 9945.}}, {{-0.006536229085100963, 9389.046875}, {-0.006536229085100963, 9945.}}, {{-0.004553809213482862, 9054.09375}, {-0.005026978650966628, 9054.09375}}, {{0, 9724}, {-0.005026978650966628, 9724.}}, {{-0.005026978650966628, 9054.09375}, {-0.005026978650966628, 9724.}}, {{-0.004507563367088946, 8715.6875}, {-0.004553809213482862, 8715.6875}}, {{-0.0017018813568721485`, 9392.5}, {-0.004553809213482862, 9392.5}}, {{-0.004553809213482862, 8715.6875}, {-0.004553809213482862, 9392.5}}, {{-0.0035419297777039838`, 8370.375}, {-0.004507563367088946, 8370.375}}, {{0, 9061}, {-0.004507563367088946, 9061.}}, {{-0.004507563367088946, 8370.375}, {-0.004507563367088946, 9061.}}, {{0, 8177}, {-0.0035419297777039838`, 8177.}}, {{-0.002701988432868107, 8563.75}, {-0.0035419297777039838`, 8563.75}}, {{-0.0035419297777039838`, 8177.}, {-0.0035419297777039838`, 8563.75}}, {{0, 8398}, {-0.002701988432868107, 8398.}}, {{-0.001399733316416513, 8729.5}, {-0.002701988432868107, 8729.5}}, {{-0.002701988432868107, 8398.}, {-0.002701988432868107, 8729.5}}, {{0, 8619}, {-0.001399733316416513, 8619.}}, {{0, 8840}, {-0.001399733316416513, 8840.}}, {{-0.001399733316416513, 8619.}, {-0.001399733316416513, 8840.}}, {{0, 9282}, {-0.0017018813568721485`, 9282.}}, {{0, 9503}, {-0.0017018813568721485`, 9503.}}, {{-0.0017018813568721485`, 9282.}, {-0.0017018813568721485`, 9503.}}, {{-0.009377119882822617, 16030.547947883606`}, {-0.009717128005775575, 16030.547947883606`}}, {{-4.588471019909887*^-16, 18305.015625}, {-0.009717128005775575, 18305.015625}}, {{-0.009717128005775575, 16030.547947883606`}, {-0.009717128005775575, 18305.015625}}, {{-0.009014271254994098, 15258.189645767212`}, {-0.009377119882822617, 15258.189645767212`}}, {{-0.006655174129848514, 16802.90625}, {-0.009377119882822617, 16802.90625}}, {{-0.009377119882822617, 15258.189645767212`}, {-0.009377119882822617, 16802.90625}}, {{-0.006758087072136597, 14935.879291534424`}, {-0.009014271254994098, 14935.879291534424`}}, {{ 0., 15580.5}, {-0.009014271254994098, 15580.5}}, {{-0.009014271254994098, 14935.879291534424`}, {-0.009014271254994098, 15580.5}}, {{-0.006404488830526798, 14622.758583068848`}, {-0.006758087072136597, 14622.758583068848`}}, {{0, 15249}, {-0.006758087072136597, 15249.}}, {{-0.006758087072136597, 14622.758583068848`}, {-0.006758087072136597, 15249.}}, {{-0.004340316305796398, 14328.017166137695`}, {-0.006404488830526798, 14328.017166137695`}}, {{ 0., 14917.5}, {-0.006404488830526798, 14917.5}}, {{-0.006404488830526798, 14328.017166137695`}, {-0.006404488830526798, 14917.5}}, {{-0.0038331635828401057`, 14070.03433227539}, {-0.004340316305796398, 14070.03433227539}}, {{0, 14586}, {-0.004340316305796398, 14586.}}, {{-0.004340316305796398, 14070.03433227539}, {-0.004340316305796398, 14586.}}, {{-0.001700083745144161, 13775.068664550781`}, {-0.0038331635828401057`, 13775.068664550781`}}, {{0, 14365}, {-0.0038331635828401057`, 14365.}}, {{-0.0038331635828401057`, 13775.068664550781`}, {-0.0038331635828401057`, 14365.}}, {{-0.0014493131514395365`, 13406.137329101562`}, {-0.001700083745144161, 13406.137329101562`}}, {{0, 14144}, {-0.001700083745144161, 14144.}}, {{-0.001700083745144161, 13406.137329101562`}, {-0.001700083745144161, 14144.}}, {{-0.00007561295326016672, 12889.274658203125`}, {-0.0014493131514395365`, 12889.274658203125`}}, {{0, 13923}, {-0.0014493131514395365`, 13923.}}, {{-0.0014493131514395365`, 12889.274658203125`}, {-0.0014493131514395365`, 13923.}}, {{-0.000056558250508868176`, 12242.29931640625}, {-0.00007561295326016672, 12242.29931640625}}, {{-4.545880026821961*^-16, 13536.25}, {-0.00007561295326016672, 13536.25}}, {{-0.00007561295326016672, 12242.29931640625}, {-0.00007561295326016672, 13536.25}}, {{-0.00004587359927062772, 11445.5986328125}, {-0.000056558250508868176`, 11445.5986328125}}, {{0, 13039}, {-0.000056558250508868176`, 13039.}}, {{-0.000056558250508868176`, 11445.5986328125}, {-0.000056558250508868176`, 13039.}}, {{0, 10387}, {-0.00004587359927062772, 10387.}}, {{-0.00003616654404577105, 12504.197265625}, {-0.00004587359927062772, 12504.197265625}}, {{-0.00004587359927062772, 10387.}, {-0.00004587359927062772, 12504.197265625}}, {{-4.482219670653488*^-16, 12190.39453125}, {-0.00003616654404577105, 12190.39453125}}, {{0, 12818}, {-0.00003616654404577105, 12818.}}, {{-0.00003616654404577105, 12190.39453125}, {-0.00003616654404577105, 12818.}}, {{-1.2610012962467267`*^-17, 11894.2890625}, {-4.482219670653488*^-16, 11894.2890625}}, {{0., 12486.5}, {-4.482219670653488*^-16, 12486.5}}, {{-4.482219670653488*^-16, 11894.2890625}, {-4.482219670653488*^-16, 12486.5}}, {{-1.2144380186728786`*^-17, 11633.578125}, {-1.2610012962467267`*^-17, 11633.578125}}, {{0, 12155}, {-1.2610012962467267`*^-17, 12155.}}, {{-1.2610012962467267`*^-17, 11633.578125}, {-1.2610012962467267`*^-17, 12155.}}, {{-1.1003775774860006`*^-17, 11333.15625}, {-1.2144380186728786`*^-17, 11333.15625}}, {{0, 11934}, {-1.2144380186728786`*^-17, 11934.}}, {{-1.2144380186728786`*^-17, 11333.15625}, {-1.2144380186728786`*^-17, 11934.}}, {{-9.215521653428634*^-18, 10953.3125}, {-1.1003775774860006`*^-17, 10953.3125}}, {{0, 11713}, {-1.1003775774860006`*^-17, 11713.}}, {{-1.1003775774860006`*^-17, 10953.3125}, {-1.1003775774860006`*^-17, 11713.}}, {{0, 10608}, {-9.215521653428634*^-18, 10608.}}, {{-8.191804832305438*^-18, 11298.625}, {-9.215521653428634*^-18, 11298.625}}, {{-9.215521653428634*^-18, 10608.}, {-9.215521653428634*^-18, 11298.625}}, {{-8.114705075859493*^-18, 11105.25}, {-8.191804832305438*^-18, 11105.25}}, {{0, 11492}, {-8.191804832305438*^-18, 11492.}}, {{-8.191804832305438*^-18, 11105.25}, {-8.191804832305438*^-18, 11492.}}, {{0., 10939.5}, {-8.114705075859493*^-18, 10939.5}}, {{0, 11271}, {-8.114705075859493*^-18, 11271.}}, {{-8.114705075859493*^-18, 10939.5}, {-8.114705075859493*^-18, 11271.}}, {{0, 10829}, {0, 10829}}, {{0, 11050}, {0, 11050}}, {{0, 10829}, {0, 11050}}, {{0, 12376}, {0, 12376}}, {{0, 12597}, {0, 12597}}, {{0, 12376}, {0, 12597}}, {{-1.2130836700061752`*^-18, 13370.5}, {-4.545880026821961*^-16, 13370.5}}, {{0, 13702}, {-4.545880026821961*^-16, 13702.}}, {{-4.545880026821961*^-16, 13370.5}, {-4.545880026821961*^-16, 13702.}}, {{0, 13260}, {-1.2130836700061752`*^-18, 13260.}}, {{0, 13481}, {-1.2130836700061752`*^-18, 13481.}}, {{-1.2130836700061752`*^-18, 13260.}, {-1.2130836700061752`*^-18, 13481.}}, {{0, 14807}, {0, 14807}}, {{0, 15028}, {0, 15028}}, {{0, 14807}, {0, 15028}}, {{0, 15470}, {0, 15470}}, {{0, 15691}, {0, 15691}}, {{0, 15470}, {0, 15691}}, {{-0.003047237423960312, 16588.8125}, {-0.006655174129848514, 16588.8125}}, {{0, 17017}, {-0.006655174129848514, 17017.}}, {{-0.006655174129848514, 16588.8125}, {-0.006655174129848514, 17017.}}, {{-0.002582349170339134, 16381.625}, {-0.003047237423960312, 16381.625}}, {{0, 16796}, {-0.003047237423960312, 16796.}}, {{-0.003047237423960312, 16381.625}, {-0.003047237423960312, 16796.}}, {{-4.622567825034401*^-16, 16188.25}, {-0.002582349170339134, 16188.25}}, {{0, 16575}, {-0.002582349170339134, 16575.}}, {{-0.002582349170339134, 16188.25}, {-0.002582349170339134, 16575.}}, {{-4.617738996702215*^-18, 16022.5}, {-4.622567825034401*^-16, 16022.5}}, {{0, 16354}, {-4.622567825034401*^-16, 16354.}}, {{-4.622567825034401*^-16, 16022.5}, {-4.622567825034401*^-16, 16354.}}, {{0, 15912}, {-4.617738996702215*^-18, 15912.}}, {{0, 16133}, {-4.617738996702215*^-18, 16133.}}, {{-4.617738996702215*^-18, 15912.}, {-4.617738996702215*^-18, 16133.}}, {{-1.2182395231075115`*^-17, 17714.53125}, {-4.588471019909887*^-16, 17714.53125}}, {{-1.2502461556493025`*^-17, 18895.5}, {-4.588471019909887*^-16, 18895.5}}, {{-4.588471019909887*^-16, 17714.53125}, {-4.588471019909887*^-16, 18895.5}}, {{0, 17238}, {-1.2182395231075115`*^-17, 17238.}}, {{-9.075724312130076*^-18, 18191.0625}, {-1.2182395231075115`*^-17, 18191.0625}}, {{-1.2182395231075115`*^-17, 17238.}, {-1.2182395231075115`*^-17, 18191.0625}}, {{-8.582891524080039*^-18, 17818.125}, {-9.075724312130076*^-18, 17818.125}}, {{0, 18564}, {-9.075724312130076*^-18, 18564.}}, {{-9.075724312130076*^-18, 17818.125}, {-9.075724312130076*^-18, 18564.}}, {{0., 17569.5}, {-8.582891524080039*^-18, 17569.5}}, {{-8.546004838552221*^-18, 18066.75}, {-8.582891524080039*^-18, 18066.75}}, {{-8.582891524080039*^-18, 17569.5}, {-8.582891524080039*^-18, 18066.75}}, {{0, 17459}, {0, 17459}}, {{0, 17680}, {0, 17680}}, {{0, 17459}, {0, 17680}}, {{0, 17901}, {-8.546004838552221*^-18, 17901.}}, {{0., 18232.5}, {-8.546004838552221*^-18, 18232.5}}, {{-8.546004838552221*^-18, 17901.}, {-8.546004838552221*^-18, 18232.5}}, {{0, 18122}, {0, 18122}}, {{0, 18343}, {0, 18343}}, {{0, 18122}, {0, 18343}}, {{0, 18785}, {-1.2502461556493025`*^-17, 18785.}}, {{0, 19006}, {-1.2502461556493025`*^-17, 19006.}}, {{-1.2502461556493025`*^-17, 18785.}, {-1.2502461556493025`*^-17, 19006.}}, {{-0.010452150246226106`, 19834.75}, {-0.011778227884311005`, 19834.75}}, {{0, 20332}, {-0.011778227884311005`, 20332.}}, {{-0.011778227884311005`, 19834.75}, {-0.011778227884311005`, 20332.}}, {{0, 19669}, {-0.010452150246226106`, 19669.}}, {{-0.0024210231376680996`, 20000.5}, {-0.010452150246226106`, 20000.5}}, {{-0.010452150246226106`, 19669.}, {-0.010452150246226106`, 20000.5}}, {{0, 19890}, {-0.0024210231376680996`, 19890.}}, {{0, 20111}, {-0.0024210231376680996`, 20111.}}, {{-0.0024210231376680996`, 19890.}, {-0.0024210231376680996`, 20111.}}, {{-0.013065965503942857`, 32844.82719009493}, {-0.014090083258231209`, 32844.82719009493}}, {{-0.011436472612628505`, 33481.5}, {-0.014090083258231209`, 33481.5}}, {{-0.014090083258231209`, 32844.82719009493}, {-0.014090083258231209`, 33481.5}}, {{-0.012370024273008309`, 32539.65438018986}, {-0.013065965503942857`, 32539.65438018986}}, {{0, 33150}, {-0.013065965503942857`, 33150.}}, {{-0.013065965503942857`, 32539.65438018986}, {-0.013065965503942857`, 33150.}}, {{-0.011054128217603935`, 32150.30876037972}, {-0.012370024273008309`, 32150.30876037972}}, {{0, 32929}, {-0.012370024273008309`, 32929.}}, {{-0.012370024273008309`, 32150.30876037972}, {-0.012370024273008309`, 32929.}}, {{-0.0110047067354997, 31592.617520759442`}, {-0.011054128217603935`, 31592.617520759442`}}, {{0, 32708}, {-0.011054128217603935`, 32708.}}, {{-0.011054128217603935`, 31592.617520759442`}, {-0.011054128217603935`, 32708.}}, {{-0.010558674720945465`, 31015.92254151888}, {-0.0110047067354997, 31015.92254151888}}, {{-0.009845211885623671, 32169.3125}, {-0.0110047067354997, 32169.3125}}, {{-0.0110047067354997, 31015.92254151888}, {-0.0110047067354997, 32169.3125}}, {{-0.010387920869279747`, 30649.845083037762`}, {-0.010558674720945465`, 30649.845083037762`}}, {{0, 31382}, {-0.010558674720945465`, 31382.}}, {{-0.010558674720945465`, 30649.845083037762`}, {-0.010558674720945465`, 31382.}}, {{-0.009168233098428742, 30249.190166075525`}, {-0.010387920869279747`, 30249.190166075525`}}, {{-0.008508052231478831, 31050.5}, {-0.010387920869279747`, 31050.5}}, {{-0.010387920869279747`, 30249.190166075525`}, {-0.010387920869279747`, 31050.5}}, {{-0.009158844230461406, 29889.88033215105}, {-0.009168233098428742, 29889.88033215105}}, {{-0.0008758129433139996, 30608.5}, {-0.009168233098428742, 30608.5}}, {{-0.009168233098428742, 29889.88033215105}, {-0.009168233098428742, 30608.5}}, {{-0.007819812350544032, 29613.2606643021}, {-0.009158844230461406, 29613.2606643021}}, {{-0.009138186715633607, 30166.5}, {-0.009158844230461406, 30166.5}}, {{-0.009158844230461406, 29613.2606643021}, {-0.009158844230461406, 30166.5}}, {{-0.007814609858628958, 29391.521328604198`}, {-0.007819812350544032, 29391.521328604198`}}, {{0, 29835}, {-0.007819812350544032, 29835.}}, {{-0.007819812350544032, 29391.521328604198`}, {-0.007819812350544032, 29835.}}, {{-0.005600818509699678, 29169.042657208396`}, {-0.007814609858628958, 29169.042657208396`}}, {{0, 29614}, {-0.007814609858628958, 29614.}}, {{-0.007814609858628958, 29169.042657208396`}, {-0.007814609858628958, 29614.}}, {{-0.00523234338305463, 28945.085314416792`}, {-0.005600818509699678, 28945.085314416792`}}, {{0, 29393}, {-0.005600818509699678, 29393.}}, {{-0.005600818509699678, 28945.085314416792`}, {-0.005600818509699678, 29393.}}, {{-0.004736325094274957, 28718.170628833584`}, {-0.00523234338305463, 28718.170628833584`}}, {{0, 29172}, {-0.00523234338305463, 29172.}}, {{-0.00523234338305463, 28718.170628833584`}, {-0.00523234338305463, 29172.}}, {{-0.00425258536336547, 28485.34125766717}, {-0.004736325094274957, 28485.34125766717}}, {{0, 28951}, {-0.004736325094274957, 28951.}}, {{-0.004736325094274957, 28485.34125766717}, {-0.004736325094274957, 28951.}}, {{-0.004130468795479476, 28240.682515334338`}, {-0.00425258536336547, 28240.682515334338`}}, {{0, 28730}, {-0.00425258536336547, 28730.}}, {{-0.00425258536336547, 28240.682515334338`}, {-0.00425258536336547, 28730.}}, {{-0.004064920128847058, 27972.365030668676`}, {-0.004130468795479476, 27972.365030668676`}}, {{0, 28509}, {-0.004130468795479476, 28509.}}, {{-0.004130468795479476, 27972.365030668676`}, {-0.004130468795479476, 28509.}}, {{-0.0034010277254083467`, 27656.73006133735}, {-0.004064920128847058, 27656.73006133735}}, {{0, 28288}, {-0.004064920128847058, 28288.}}, {{-0.004064920128847058, 27656.73006133735}, {-0.004064920128847058, 28288.}}, {{-0.003275517967515893, 27356.960122674704`}, {-0.0034010277254083467`, 27356.960122674704`}}, {{-5.175308923579165*^-19, 27956.5}, {-0.0034010277254083467`, 27956.5}}, {{-0.0034010277254083467`, 27356.960122674704`}, {-0.0034010277254083467`, 27956.5}}, {{-0.0032754154905102026`, 27088.920245349407`}, {-0.003275517967515893, 27088.920245349407`}}, {{0, 27625}, {-0.003275517967515893, 27625.}}, {{-0.003275517967515893, 27088.920245349407`}, {-0.003275517967515893, 27625.}}, {{-0.003242952030331104, 26773.840490698814`}, {-0.0032754154905102026`, 26773.840490698814`}}, {{0, 27404}, {-0.0032754154905102026`, 27404.}}, {{-0.0032754154905102026`, 26773.840490698814`}, {-0.0032754154905102026`, 27404.}}, {{-0.0031552945960472084`, 26475.18098139763}, {-0.003242952030331104, 26475.18098139763}}, {{-0.00004129448065636423, 27072.5}, {-0.003242952030331104, 27072.5}}, {{-0.003242952030331104, 26475.18098139763}, {-0.003242952030331104, 27072.5}}, {{-0.002863280216721177, 26209.361962795258`}, {-0.0031552945960472084`, 26209.361962795258`}}, {{0, 26741}, {-0.0031552945960472084`, 26741.}}, {{-0.0031552945960472084`, 26209.361962795258`}, {-0.0031552945960472084`, 26741.}}, {{-0.002400052981607505, 25898.723925590515`}, {-0.002863280216721177, 25898.723925590515`}}, {{0, 26520}, {-0.002863280216721177, 26520.}}, {{-0.002863280216721177, 25898.723925590515`}, {-0.002863280216721177, 26520.}}, {{-0.002251153452989988, 25608.94785118103}, {-0.002400052981607505, 25608.94785118103}}, {{-0.00002047234387704864, 26188.5}, {-0.002400052981607505, 26188.5}}, {{-0.002400052981607505, 25608.94785118103}, {-0.002400052981607505, 26188.5}}, {{-0.0011135102420025808`, 25360.89570236206}, {-0.002251153452989988, 25360.89570236206}}, {{0, 25857}, {-0.002251153452989988, 25857.}}, {{-0.002251153452989988, 25360.89570236206}, {-0.002251153452989988, 25857.}}, {{-0.0009564865606766125, 25085.79140472412}, {-0.0011135102420025808`, 25085.79140472412}}, {{0, 25636}, {-0.0011135102420025808`, 25636.}}, {{-0.0011135102420025808`, 25085.79140472412}, {-0.0011135102420025808`, 25636.}}, {{-0.00007176869606052318, 24756.582809448242`}, {-0.0009564865606766125, 24756.582809448242`}}, {{0, 25415}, {-0.0009564865606766125, 25415.}}, {{-0.0009564865606766125, 24756.582809448242`}, {-0.0009564865606766125, 25415.}}, {{-0.000037870903125840214`, 24319.165618896484`}, {-0.00007176869606052318, 24319.165618896484`}}, {{0, 25194}, {-0.00007176869606052318, 25194.}}, {{-0.00007176869606052318, 24319.165618896484`}, {-0.00007176869606052318, 25194.}}, {{-0.00003311285766376482, 23665.33123779297}, {-0.000037870903125840214`, 23665.33123779297}}, {{0, 24973}, {-0.000037870903125840214`, 24973.}}, {{-0.000037870903125840214`, 23665.33123779297}, {-0.000037870903125840214`, 24973.}}, {{-0.000032472270169698825`, 22578.662475585938`}, {-0.00003311285766376482, 22578.662475585938`}}, {{0, 24752}, {-0.00003311285766376482, 24752.}}, {{-0.00003311285766376482, 22578.662475585938`}, {-0.00003311285766376482, 24752.}}, {{-1.252120881146612*^-16, 20884.5}, {-0.000032472270169698825`, 20884.5}}, {{-0.00002945255495730531, 24272.824951171875`}, {-0.000032472270169698825`, 24272.824951171875`}}, {{-0.000032472270169698825`, 20884.5}, {-0.000032472270169698825`, 24272.824951171875`}}, {{0, 20774}, {-1.252120881146612*^-16, 20774.}}, {{0, 20995}, {-1.252120881146612*^-16, 20995.}}, {{-1.252120881146612*^-16, 20774.}, {-1.252120881146612*^-16, 20995.}}, {{-0.00002511440805872156, 24014.64990234375}, {-0.00002945255495730531, 24014.64990234375}}, {{0, 24531}, {-0.00002945255495730531, 24531.}}, {{-0.00002945255495730531, 24014.64990234375}, {-0.00002945255495730531, 24531.}}, {{-0.000015872028567649324`, 23719.2998046875}, {-0.00002511440805872156, 23719.2998046875}}, {{0, 24310}, {-0.00002511440805872156, 24310.}}, {{-0.00002511440805872156, 23719.2998046875}, {-0.00002511440805872156, 24310.}}, {{-0.000015584953960938003`, 23349.599609375}, {-0.000015872028567649324`, 23349.599609375}}, {{0, 24089}, {-0.000015872028567649324`, 24089.}}, {{-0.000015872028567649324`, 23349.599609375}, {-0.000015872028567649324`, 24089.}}, {{-4.456307898102899*^-16, 22831.19921875}, {-0.000015584953960938003`, 22831.19921875}}, {{0, 23868}, {-0.000015584953960938003`, 23868.}}, {{-0.000015584953960938003`, 22831.19921875}, {-0.000015584953960938003`, 23868.}}, {{-1.7356496282501987`*^-17, 22485.0234375}, {-4.456307898102899*^-16, 22485.0234375}}, {{0., 23177.375}, {-4.456307898102899*^-16, 23177.375}}, {{-4.456307898102899*^-16, 22485.0234375}, {-4.456307898102899*^-16, 23177.375}}, {{-1.5674328668314886`*^-18, 22207.046875}, {-1.7356496282501987`*^-17, 22207.046875}}, {{0, 22763}, {-1.7356496282501987`*^-17, 22763.}}, {{-1.7356496282501987`*^-17, 22207.046875}, {-1.7356496282501987`*^-17, 22763.}}, {{-4.67267473847286*^-19, 21872.09375}, {-1.5674328668314886`*^-18, 21872.09375}}, {{0, 22542}, {-1.5674328668314886`*^-18, 22542.}}, {{-1.5674328668314886`*^-18, 21872.09375}, {-1.5674328668314886`*^-18, 22542.}}, {{0., 21423.1875}, {-4.67267473847286*^-19, 21423.1875}}, {{0, 22321}, {-4.67267473847286*^-19, 22321.}}, {{-4.67267473847286*^-19, 21423.1875}, {-4.67267473847286*^-19, 22321.}}, {{0, 21216}, {0., 21216.}}, {{0., 21630.375}, {0., 21630.375}}, {{0., 21216.}, {0., 21630.375}}, {{0, 21437}, {0., 21437.}}, {{0., 21823.75}, {0., 21823.75}}, {{0., 21437.}, {0., 21823.75}}, {{0, 21658}, {0., 21658.}}, {{0., 21989.5}, {0., 21989.5}}, {{0., 21658.}, {0., 21989.5}}, {{0, 21879}, {0., 21879.}}, {{0, 22100}, {0., 22100.}}, {{0., 21879.}, {0., 22100.}}, {{0, 22984}, {0., 22984.}}, {{0., 23370.75}, { 0., 23370.75}}, {{0., 22984.}, {0., 23370.75}}, {{0, 23205}, {0., 23205.}}, {{0., 23536.5}, {0., 23536.5}}, {{0., 23205.}, {0., 23536.5}}, {{0, 23426}, {0., 23426.}}, {{0, 23647}, {0., 23647.}}, {{0., 23426.}, {0., 23647.}}, {{0, 26078}, {-0.00002047234387704864, 26078.}}, {{0, 26299}, {-0.00002047234387704864, 26299.}}, {{-0.00002047234387704864, 26078.}, {-0.00002047234387704864, 26299.}}, {{0, 26962}, {-0.00004129448065636423, 26962.}}, {{0, 27183}, {-0.00004129448065636423, 27183.}}, {{-0.00004129448065636423, 26962.}, {-0.00004129448065636423, 27183.}}, {{0, 27846}, {-5.175308923579165*^-19, 27846.}}, {{0, 28067}, {-5.175308923579165*^-19, 28067.}}, {{-5.175308923579165*^-19, 27846.}, {-5.175308923579165*^-19, 28067.}}, {{0, 30056}, {-0.009138186715633607, 30056.}}, {{0, 30277}, {-0.009138186715633607, 30277.}}, {{-0.009138186715633607, 30056.}, {-0.009138186715633607, 30277.}}, {{0, 30498}, {-0.0008758129433139996, 30498.}}, {{0, 30719}, {-0.0008758129433139996, 30719.}}, {{-0.0008758129433139996, 30498.}, {-0.0008758129433139996, 30719.}}, {{0, 30940}, {-0.008508052231478831, 30940.}}, {{0, 31161}, {-0.008508052231478831, 31161.}}, {{-0.008508052231478831, 30940.}, {-0.008508052231478831, 31161.}}, {{-0.0045679768994172166`, 31851.625}, {-0.009845211885623671, 31851.625}}, {{0, 32487}, {-0.009845211885623671, 32487.}}, {{-0.009845211885623671, 31851.625}, {-0.009845211885623671, 32487.}}, {{0, 31603}, {-0.0045679768994172166`, 31603.}}, {{-0.0025414746848625375`, 32100.25}, {-0.0045679768994172166`, 32100.25}}, {{-0.0045679768994172166`, 31603.}, {-0.0045679768994172166`, 32100.25}}, {{-5.352424890195089*^-17, 31934.5}, {-0.0025414746848625375`, 31934.5}}, {{0, 32266}, {-0.0025414746848625375`, 32266.}}, {{-0.0025414746848625375`, 31934.5}, {-0.0025414746848625375`, 32266.}}, {{0, 31824}, {-5.352424890195089*^-17, 31824.}}, {{0, 32045}, {-5.352424890195089*^-17, 32045.}}, {{-5.352424890195089*^-17, 31824.}, {-5.352424890195089*^-17, 32045.}}, {{0, 33371}, {-0.011436472612628505`, 33371.}}, {{0, 33592}, {-0.011436472612628505`, 33592.}}, {{-0.011436472612628505`, 33371.}, {-0.011436472612628505`, 33592.}}, {{0, 33813}, {-0.006763878329347807, 33813.}}, {{0, 34034}, {-0.006763878329347807, 34034.}}, {{-0.006763878329347807, 33813.}, {-0.006763878329347807, 34034.}}, {{0, 34255}, {-0.012215445389030067`, 34255.}}, {{0, 34476}, {-0.012215445389030067`, 34476.}}, {{-0.012215445389030067`, 34255.}, {-0.012215445389030067`, 34476.}}, {{0., 35470.5}, {-0.014987087960090602`, 35470.5}}, {{-0.012990692992093057`, 38081.0625}, {-0.014987087960090602`, 38081.0625}}, {{-0.014987087960090602`, 35470.5}, {-0.014987087960090602`, 38081.0625}}, {{0, 35360}, {0, 35360}}, {{0, 35581}, {0, 35581}}, {{0, 35360}, {0, 35581}}, {{-0.011018634329234287`, 37376.625}, {-0.012990692992093057`, 37376.625}}, {{-0.008117049689372078, 38785.5}, {-0.012990692992093057`, 38785.5}}, {{-0.012990692992093057`, 37376.625}, {-0.012990692992093057`, 38785.5}}, {{-0.010902926628042157`, 36465.}, {-0.011018634329234287`, 36465.}}, {{-0.010448918727414004`, 38288.25}, {-0.011018634329234287`, 38288.25}}, {{-0.011018634329234287`, 36465.}, {-0.011018634329234287`, 38288.25}}, {{-0.005089880611727247, 35912.5}, {-0.010902926628042157`, 35912.5}}, {{-0.010828735700369239`, 37017.5}, {-0.010902926628042157`, 37017.5}}, {{-0.010902926628042157`, 35912.5}, {-0.010902926628042157`, 37017.5}}, {{0, 35802}, {-0.005089880611727247, 35802.}}, {{0, 36023}, {-0.005089880611727247, 36023.}}, {{-0.005089880611727247, 35802.}, {-0.005089880611727247, 36023.}}, {{-0.009494341137963502, 36520.25}, {-0.010828735700369239`, 36520.25}}, {{-0.004632283468343821, 37514.75}, {-0.010828735700369239`, 37514.75}}, {{-0.010828735700369239`, 36520.25}, {-0.010828735700369239`, 37514.75}}, {{-0.000030284470084550425`, 36354.5}, {-0.009494341137963502, 36354.5}}, {{0, 36686}, {-0.009494341137963502, 36686.}}, {{-0.009494341137963502, 36354.5}, {-0.009494341137963502, 36686.}}, {{0, 36244}, {-0.000030284470084550425`, 36244.}}, {{0, 36465}, {-0.000030284470084550425`, 36465.}}, {{-0.000030284470084550425`, 36244.}, {-0.000030284470084550425`, 36465.}}, {{-0.0024350956902550514`, 37238.5}, {-0.004632283468343821, 37238.5}}, {{0, 37791}, {-0.004632283468343821, 37791.}}, {{-0.004632283468343821, 37238.5}, {-0.004632283468343821, 37791.}}, {{-4.667434272926179*^-16, 37017.5}, {-0.0024350956902550514`, 37017.5}}, {{-0.00006662538378391234, 37459.5}, {-0.0024350956902550514`, 37459.5}}, {{-0.0024350956902550514`, 37017.5}, {-0.0024350956902550514`, 37459.5}}, {{0, 36907}, {-4.667434272926179*^-16, 36907.}}, {{0, 37128}, {-4.667434272926179*^-16, 37128.}}, {{-4.667434272926179*^-16, 36907.}, {-4.667434272926179*^-16, 37128.}}, {{0, 37349}, {-0.00006662538378391234, 37349.}}, {{0, 37570}, {-0.00006662538378391234, 37570.}}, {{-0.00006662538378391234, 37349.}, {-0.00006662538378391234, 37570.}}, {{-0.0028581195952360953`, 38122.5}, {-0.010448918727414004`, 38122.5}}, {{0, 38454}, {-0.010448918727414004`, 38454.}}, {{-0.010448918727414004`, 38122.5}, {-0.010448918727414004`, 38454.}}, {{0, 38012}, {-0.0028581195952360953`, 38012.}}, {{0, 38233}, {-0.0028581195952360953`, 38233.}}, {{-0.0028581195952360953`, 38012.}, {-0.0028581195952360953`, 38233.}}, {{0, 38675}, {-0.008117049689372078, 38675.}}, {{0, 38896}, {-0.008117049689372078, 38896.}}, {{-0.008117049689372078, 38675.}, {-0.008117049689372078, 38896.}}, {{0, 39559}, {-0.006657110508294673, 39559.}}, {{0, 39780}, {-0.006657110508294673, 39780.}}, {{-0.006657110508294673, 39559.}, {-0.006657110508294673, 39780.}}, {{0, 40001}, {-0.015933859766378906`, 40001.}}, {{0, 40222}, {-0.015933859766378906`, 40222.}}, {{-0.015933859766378906`, 40001.}, {-0.015933859766378906`, 40222.}}, {{0, 40443}, {-0.012541748379058268`, 40443.}}, {{0, 40664}, {-0.012541748379058268`, 40664.}}, {{-0.012541748379058268`, 40443.}, {-0.012541748379058268`, 40664.}}, {{-0.013995755668247022`, 41354.625}, {-0.016678537449098318`, 41354.625}}, {{0, 41769}, {-0.016678537449098318`, 41769.}}, {{-0.016678537449098318`, 41354.625}, {-0.016678537449098318`, 41769.}}, {{-0.01245519740577235, 41161.25}, {-0.013995755668247022`, 41161.25}}, {{0, 41548}, {-0.013995755668247022`, 41548.}}, {{-0.013995755668247022`, 41161.25}, {-0.013995755668247022`, 41548.}}, {{-0.0058603751236703085`, 40995.5}, {-0.01245519740577235, 40995.5}}, {{0, 41327}, {-0.01245519740577235, 41327.}}, {{-0.01245519740577235, 40995.5}, {-0.01245519740577235, 41327.}}, {{0, 40885}, {-0.0058603751236703085`, 40885.}}, {{0, 41106}, {-0.0058603751236703085`, 41106.}}, {{-0.0058603751236703085`, 40885.}, {-0.0058603751236703085`, 41106.}}, {{0, 41990}, {-0.01659661520976379, 41990.}}, {{0, 42211}, {-0.01659661520976379, 42211.}}, {{-0.01659661520976379, 41990.}, {-0.01659661520976379, 42211.}}, {{0, 43095}, {-0.020144667725155052`, 43095.}}, {{-0.01133163134393843, 43426.5}, {-0.020144667725155052`, 43426.5}}, {{-0.020144667725155052`, 43095.}, {-0.020144667725155052`, 43426.5}}, {{0, 43316}, {-0.01133163134393843, 43316.}}, {{0, 43537}, {-0.01133163134393843, 43537.}}, {{-0.01133163134393843, 43316.}, {-0.01133163134393843, 43537.}}, {{-0.01676749983930046, 44227.625}, {-0.02098027100381894, 44227.625}}, {{-0.016333122094462665`, 44752.5}, {-0.02098027100381894, 44752.5}}, {{-0.02098027100381894, 44227.625}, {-0.02098027100381894, 44752.5}}, {{-0.015022842561017713`, 44034.25}, {-0.01676749983930046, 44034.25}}, {{0, 44421}, {-0.01676749983930046, 44421.}}, {{-0.01676749983930046, 44034.25}, {-0.01676749983930046, 44421.}}, {{-0.011762234751107204`, 43868.5}, {-0.015022842561017713`, 43868.5}}, {{0, 44200}, {-0.015022842561017713`, 44200.}}, {{-0.015022842561017713`, 43868.5}, {-0.015022842561017713`, 44200.}}, {{0, 43758}, {-0.011762234751107204`, 43758.}}, {{0, 43979}, {-0.011762234751107204`, 43979.}}, {{-0.011762234751107204`, 43758.}, {-0.011762234751107204`, 43979.}}, {{0, 44642}, {-0.016333122094462665`, 44642.}}, {{0, 44863}, {-0.016333122094462665`, 44863.}}, {{-0.016333122094462665`, 44642.}, {-0.016333122094462665`, 44863.}}}]}, InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 221}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 442}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 663}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 884}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1105}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1326}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1547}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1768}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 1989}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2210}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2431}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2652}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 2873}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3094}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3315}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3536}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3757}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 3978}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4199}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.08047808764940267, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.08047808764940267, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.08047808764940267, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.08047808764940267, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.08047808764940267, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4420}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4641}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 4862}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5083}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5304}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5525}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5746}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 5967}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 6188}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 6409}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 6630}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "19"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 6851}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7072}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7293}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7514}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7735}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 7956}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 8177}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 8398}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 8619}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 8840}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9061}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.04063745019920173, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9282}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9503}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.5213811420982744, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.5213811420982744, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.5213811420982744, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.5213811420982744, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.5213811420982744, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9724}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 9945}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10166}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "1"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6169986719787524, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.6169986719787524, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.6169986719787524, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.6169986719787524, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.6169986719787524, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10387}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10608}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 10829}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11050}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11271}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11492}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11713}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 11934}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12155}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12376}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12597}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 12818}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13039}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13260}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "19"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13481}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13702}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "19"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.24515272244355776`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 13923}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 14144}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.12031872509960007`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.12031872509960007`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.12031872509960007`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.12031872509960007`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.12031872509960007`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 14365}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 14586}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 14807}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15028}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15249}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15470}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15691}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 15912}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "26"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 16133}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 16354}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Taiwan\"\>", StripOnInput->False, FontColor->RGBColor[0.895369, 0.716976, 0.346883], $CellContext`LineColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`FrontFaceColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`GraphicsColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`BackFaceColor -> RGBColor[0.895369, 0.716976, 0.346883]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "31"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 16575}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.16547144754315943`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.16547144754315943`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.16547144754315943`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.16547144754315943`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.16547144754315943`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 16796}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17017}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17238}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17459}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17680}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 17901}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 18122}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 18343}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 18564}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 18785}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19006}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19227}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"India\"\>", StripOnInput->False, FontColor->RGBColor[0.566842, 0.967407, 1], $CellContext`LineColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`FrontFaceColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`GraphicsColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`BackFaceColor -> RGBColor[0.566842, 0.967407, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "31"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19448}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "10"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19669}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 19890}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "11"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.07357237715803559, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.07357237715803559, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.07357237715803559, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.07357237715803559, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.07357237715803559, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20111}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "11"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.1957503320053104, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.1957503320053104, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.1957503320053104, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.1957503320053104, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.1957503320053104, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20332}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20553}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "2"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20774}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "2"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.4321381142098281, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 20995}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 21216}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 21437}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 21658}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 21879}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22100}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22321}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22542}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000004`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22763}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 22984}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 23205}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 23426}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 23647}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 23868}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "10"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.23559096945551133`, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.23559096945551133`, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.23559096945551133`, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.23559096945551133`, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.23559096945551133`, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24089}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24310}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24531}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "1"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4719787516600273, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.4719787516600273, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.4719787516600273, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.4719787516600273, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.4719787516600273, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24752}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "31"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.6100929614873853, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 24973}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Japan\"\>", StripOnInput->False, FontColor->GrayLevel[1], $CellContext`LineColor -> GrayLevel[1], $CellContext`FrontFaceColor -> GrayLevel[1], $CellContext`GraphicsColor -> GrayLevel[1], $CellContext`BackFaceColor -> GrayLevel[1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.07622841965471465, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.07622841965471465, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.07622841965471465, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.07622841965471465, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.07622841965471465, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 25194}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 25415}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 25636}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 25857}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Vietnam\"\>", StripOnInput->False, FontColor->RGBColor[1, 1, 0.392157], $CellContext`LineColor -> RGBColor[1, 1, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 1, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 1, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 1, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26078}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Vietnam\"\>", StripOnInput->False, FontColor->RGBColor[1, 1, 0.392157], $CellContext`LineColor -> RGBColor[1, 1, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 1, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 1, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 1, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26299}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26520}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26741}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 26962}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 27183}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 27404}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 27625}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 27846}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28067}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.28233731739707935`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.28233731739707935`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.28233731739707935`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.28233731739707935`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.28233731739707935`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28288}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Taiwan\"\>", StripOnInput->False, FontColor->RGBColor[0.895369, 0.716976, 0.346883], $CellContext`LineColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`FrontFaceColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`GraphicsColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`BackFaceColor -> RGBColor[0.895369, 0.716976, 0.346883]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "5"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.4347941567065054, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.4347941567065054, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.4347941567065054, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.4347941567065054, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.4347941567065054, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28509}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "8"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.19309428950863133`, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.19309428950863133`, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.19309428950863133`, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.19309428950863133`, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.19309428950863133`, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28730}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Japan\"\>", StripOnInput->False, FontColor->GrayLevel[1], $CellContext`LineColor -> GrayLevel[1], $CellContext`FrontFaceColor -> GrayLevel[1], $CellContext`GraphicsColor -> GrayLevel[1], $CellContext`BackFaceColor -> GrayLevel[1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 28951}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "2"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.5543160690571047, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.5543160690571047, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.5543160690571047, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.5543160690571047, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.5543160690571047, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 29172}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.16281540504648007`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 29393}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Pakistan\"\>", StripOnInput->False, FontColor->RGBColor[0.759213, 0.886885, 0.319265], $CellContext`LineColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`FrontFaceColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`GraphicsColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`BackFaceColor -> RGBColor[0.759213, 0.886885, 0.319265]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 29614}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"India\"\>", StripOnInput->False, FontColor->RGBColor[0.566842, 0.967407, 1], $CellContext`LineColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`FrontFaceColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`GraphicsColor -> RGBColor[0.566842, 0.967407, 1], $CellContext`BackFaceColor -> RGBColor[0.566842, 0.967407, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "27"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 29835}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30056}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "29"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6435590969455495]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30277}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30498}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "27"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5638778220451511]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30719}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Pakistan\"\>", StripOnInput->False, FontColor->RGBColor[0.759213, 0.886885, 0.319265], $CellContext`LineColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`FrontFaceColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`GraphicsColor -> RGBColor[0.759213, 0.886885, 0.319265], $CellContext`BackFaceColor -> RGBColor[0.759213, 0.886885, 0.319265]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "4"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.5968127490039853], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.5968127490039853], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.5968127490039853], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.5968127490039853], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.5968127490039853]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 30940}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Taiwan\"\>", StripOnInput->False, FontColor->RGBColor[0.895369, 0.716976, 0.346883], $CellContext`LineColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`FrontFaceColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`GraphicsColor -> RGBColor[0.895369, 0.716976, 0.346883], $CellContext`BackFaceColor -> RGBColor[0.895369, 0.716976, 0.346883]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 31161}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.3620185922974777, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.3620185922974777, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.3620185922974777, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.3620185922974777, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.3620185922974777, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 31382}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 31603}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 31824}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "26"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32045}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32266}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "26"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32487}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.5187250996015933, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.5187250996015933, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.5187250996015933, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.5187250996015933, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.5187250996015933, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32708}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "26"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.5240371845949537]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 32929}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Japan\"\>", StripOnInput->False, FontColor->GrayLevel[1], $CellContext`LineColor -> GrayLevel[1], $CellContext`FrontFaceColor -> GrayLevel[1], $CellContext`GraphicsColor -> GrayLevel[1], $CellContext`BackFaceColor -> GrayLevel[1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "9"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.3976095617529877], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.3976095617529877], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.3976095617529877], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.3976095617529877], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.3976095617529877]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 33150}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 33371}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 33592}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 33813}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34034}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34255}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34476}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34697}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 34918}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "10"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.11341301460823298`, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 35139}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 35360}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 35581}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 35802}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36023}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36244}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36465}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36686}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 36907}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 37128}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "16"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.11872509960159525`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 37349}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 37570}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 37791}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38012}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38233}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38454}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38675}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 38896}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 39117}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 39338}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 39559}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 39780}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40001}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "17"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.04329349269588434, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40222}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.6037184594953521]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40443}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.3248339973439561], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.3248339973439561], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.3248339973439561], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.3248339973439561], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.3248339973439561]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40664}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 40885}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41106}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41327}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41548}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Peru\"\>", StripOnInput->False, FontColor->RGBColor[0.4, 0.8, 1], $CellContext`LineColor -> RGBColor[0.4, 0.8, 1], $CellContext`FrontFaceColor -> RGBColor[0.4, 0.8, 1], $CellContext`GraphicsColor -> RGBColor[0.4, 0.8, 1], $CellContext`BackFaceColor -> RGBColor[0.4, 0.8, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "10"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.3577689243027903], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.3577689243027903], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.3577689243027903], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.3577689243027903], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.3577689243027903]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41769}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "11"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.31792828685258934`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.31792828685258934`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.31792828685258934`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.31792828685258934`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.31792828685258934`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 41990}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 42211}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "6"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.394953519256308, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.394953519256308, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.394953519256308, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.394953519256308, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.394953519256308, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 42432}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 42653}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 42874}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43095}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.08313413014608173, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43316}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "21"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.202656042496681, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43537}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Italy\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.926772, 0.151904], $CellContext`LineColor -> RGBColor[1, 0.926772, 0.151904], $CellContext`FrontFaceColor -> RGBColor[1, 0.926772, 0.151904], $CellContext`GraphicsColor -> RGBColor[1, 0.926772, 0.151904], $CellContext`BackFaceColor -> RGBColor[1, 0.926772, 0.151904]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6499335989375827, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.6499335989375827, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.6499335989375827, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.6499335989375827, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.6499335989375827, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43758}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "22"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.36467463479415707`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 43979}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "27"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.441699867197876, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.441699867197876, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.441699867197876, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.441699867197876, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.441699867197876, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 44200}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 44421}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Brazil\"\>", StripOnInput->False, FontColor->RGBColor[0.829938, 0.725154, 1], $CellContext`LineColor -> RGBColor[0.829938, 0.725154, 1], $CellContext`FrontFaceColor -> RGBColor[0.829938, 0.725154, 1], $CellContext`GraphicsColor -> RGBColor[0.829938, 0.725154, 1], $CellContext`BackFaceColor -> RGBColor[0.829938, 0.725154, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "28"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.4815405046480734, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 44642}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 44863}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "12"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.27808764940239195`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45084}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45305}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45526}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Australia\"\>", StripOnInput->False, FontColor->RGBColor[0.90045, 0.0204013, 0.0301823], $CellContext`LineColor -> RGBColor[0.90045, 0.0204013, 0.0301823], $CellContext`FrontFaceColor -> RGBColor[0.90045, 0.0204013, 0.0301823], $CellContext`GraphicsColor -> RGBColor[0.90045, 0.0204013, 0.0301823], $CellContext`BackFaceColor -> RGBColor[0.90045, 0.0204013, 0.0301823]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "25"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.4841965471447528]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45747}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "14"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.19840637450199358`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 45968}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.40451527224435446`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.40451527224435446`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.40451527224435446`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.40451527224435446`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.40451527224435446`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 46189}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`LineColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0.32217795484727674`, 0., 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 46410}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 46631}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2019", ",", "12", ",", "30"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`LineColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`FrontFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`GraphicsColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.], $CellContext`BackFaceColor -> RGBColor[0.535723771580346, 0.6666666666666667, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 46852}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "15"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.15856573705179264`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47073}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"Sweden\"\>", StripOnInput->False, FontColor->RGBColor[0.790433, 0.450294, 1], $CellContext`LineColor -> RGBColor[0.790433, 0.450294, 1], $CellContext`FrontFaceColor -> RGBColor[0.790433, 0.450294, 1], $CellContext`GraphicsColor -> RGBColor[0.790433, 0.450294, 1], $CellContext`BackFaceColor -> RGBColor[0.790433, 0.450294, 1]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "2", ",", "7"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.35511288180610706`, 0.6666666666666667], $CellContext`LineColor -> RGBColor[0., 0.35511288180610706`, 0.6666666666666667], $CellContext`FrontFaceColor -> RGBColor[0., 0.35511288180610706`, 0.6666666666666667], $CellContext`GraphicsColor -> RGBColor[0., 0.35511288180610706`, 0.6666666666666667], $CellContext`BackFaceColor -> RGBColor[0., 0.35511288180610706`, 0.6666666666666667]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47294}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "13"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.23824701195219097`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47515}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "5"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.5569721115537843], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.5569721115537843], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.5569721115537843], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.5569721115537843], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.5569721115537843]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47736}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"SouthKorea\"\>", StripOnInput->False, FontColor->RGBColor[0.959274, 0.614496, 0.466316], $CellContext`LineColor -> RGBColor[0.959274, 0.614496, 0.466316], $CellContext`FrontFaceColor -> RGBColor[0.959274, 0.614496, 0.466316], $CellContext`GraphicsColor -> RGBColor[0.959274, 0.614496, 0.466316], $CellContext`BackFaceColor -> RGBColor[0.959274, 0.614496, 0.466316]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.08579017264276109]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 47957}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"China\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.511666, 0.141085], $CellContext`LineColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`FrontFaceColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`GraphicsColor -> RGBColor[1, 0.511666, 0.141085], $CellContext`BackFaceColor -> RGBColor[1, 0.511666, 0.141085]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "1", ",", "20"}], "}"}], StripOnInput->False, FontColor->RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`LineColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`FrontFaceColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`GraphicsColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`], $CellContext`BackFaceColor -> RGBColor[0., 0.6666666666666667, 0.28499335989375874`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 48178}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "24"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.20000000000000018`, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 48399}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "18"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0., 0.039043824701196904`]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 48620}, Scaled[{0, 0.5}]], InsetBox[ FrameBox[ TagBox[ RowBox[{"{", RowBox[{ StyleBox["\<\"UnitedStates\"\>", StripOnInput->False, FontColor->RGBColor[1, 0.0980392, 0.392157], $CellContext`LineColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`FrontFaceColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`GraphicsColor -> RGBColor[1, 0.0980392, 0.392157], $CellContext`BackFaceColor -> RGBColor[1, 0.0980392, 0.392157]], ",", StyleBox[ RowBox[{"{", RowBox[{"2020", ",", "3", ",", "23"}], "}"}], StripOnInput->False, FontColor->RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`LineColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`FrontFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`GraphicsColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.], $CellContext`BackFaceColor -> RGBColor[0.6666666666666667, 0.160159362549801, 0.]]}], "}"}], Short], Background->GrayLevel[1], FrameMargins->{{0, 0}, {0, 0}}, FrameStyle->GrayLevel[1], RoundingRadius->2, StripOnInput->False], {0, 48841}, Scaled[{0, 0.5}]]}, AlignmentPoint->Center, AspectRatio->5, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->750, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->None, PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.794843893257669*^9}, CellLabel->"Out[5]=", CellID->328490244] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell["Possible Issues", "Subsection", TaggingRules->{}, CellID->158766396], Cell[TextData[{ "The implementation was changed in April 2020 to use the ", Cell[BoxData["System`"], "InlineFormula", FontFamily->"Source Sans Pro"], " context ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " instead of ", ButtonBox["HierarchicalClustering`DendrogramPlot.", BaseStyle->"Hyperlink", ButtonData->{ FrontEnd`FileName[{"HierarchicalClustering", "ref"}, "DendrogramPlot", CharacterEncoding -> "UTF-8"], None}], " This necessitated small changes to the argument structure and also means \ there are some changes in the functional behavior. For example, ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["Dendrogram", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/Dendrogram", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " does not properly handle ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["CosineDistance", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/CosineDistance", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " as a ", Cell[BoxData[ TagBox[ ButtonBox[ StyleBox["DistanceFunction", "SymbolsRefLink", ShowStringCharacters->True, FontFamily->"Source Sans Pro"], BaseStyle->Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.854902, 0.396078, 0.145098]}, { "Link"}]], ButtonData->"paclet:ref/DistanceFunction", ContentPadding->False], MouseAppearanceTag["LinkHand"]]], "InlineFormula", FontFamily->"Source Sans Pro"], " setting. We give the prior implementation here as a convenience for those \ who might have preferred it:" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.7948424557567463`*^9, 3.7948426573426228`*^9}, { 3.794844301831862*^9, 3.794844330150086*^9}, 3.79484447459792*^9, { 3.794844562534103*^9, 3.7948445625352488`*^9}, {3.7954358270819025`*^9, 3.795435828069936*^9}, {3.797070323525406*^9, 3.797070324109707*^9}}, CellID->111092496], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Options", "[", "OldPhylogeneticTreePlot", "]"}], "=", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"Options", "[", "HierarchicalClustering`DendrogramPlot", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", RowBox[{"\"\\"", "\[Rule]", "Automatic"}]}], "}"}]}], "]"}], "/.", RowBox[{ RowBox[{"(", RowBox[{"HierarchicalClustering`Orientation", "\[Rule]", "aa_"}], ")"}], "\[RuleDelayed]", RowBox[{"(", RowBox[{"HierarchicalClustering`Orientation", "\[Rule]", "Left"}], ")"}]}]}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"OldPhylogeneticTreePlot", "[", RowBox[{"geneseqs_", ",", "labels_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"OldPhylogeneticTreePlot", "[", RowBox[{"geneseqs", ",", "labels", ",", "\"\<\>\"", ",", "opts"}], "]"}]}], "\n"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"OldPhylogeneticTreePlot", "[", RowBox[{"geneseqs_", ",", "labels_", ",", "plabel_", ",", RowBox[{"opts", ":", RowBox[{"OptionsPattern", "[", "]"}]}]}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"freq", "=", "30"}], ",", RowBox[{"keep", "=", "40"}], ",", RowBox[{"dim", "=", "7"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Module", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ "ftts", ",", "vecs", ",", "ratio", ",", "size", ",", "io", ",", "optsd"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"ratio", ",", "size", ",", "io"}], "}"}], "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{ "AspectRatio", ",", "ImageSize", ",", "\"\\""}], "}"}], "/.", RowBox[{"{", "opts", "}"}]}], ")"}], "/.", RowBox[{"Thread", "[", RowBox[{ RowBox[{"{", RowBox[{ "AspectRatio", ",", "ImageSize", ",", "\"\\""}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{"OptionValue", "[", "AspectRatio", "]"}], ",", RowBox[{"OptionValue", "[", "ImageSize", "]"}], ",", RowBox[{"OptionValue", "[", "\"\\"", "]"}]}], "}"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Block", "[", RowBox[{ RowBox[{"{", "$ContextPath", "}"}], ",", RowBox[{"Needs", "[", "\"\\"", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"optsd", "=", RowBox[{"FilterRules", "[", RowBox[{ RowBox[{"{", "opts", "}"}], ",", RowBox[{ "Options", "[", "HierarchicalClustering`DendrogramPlot", "]"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ftts", "=", RowBox[{"Map", "[", RowBox[{ RowBox[{ RowBox[{"Developer`ToPackedArray", "[", RowBox[{"processNucleotideString", "[", RowBox[{"#", ",", "dim", ",", "freq"}], "]"}], "]"}], "&"}], ",", "geneseqs"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"vecs", "=", RowBox[{"FTTsToVectors", "[", RowBox[{"ftts", ",", "keep", ",", "io"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"HierarchicalClustering`DendrogramPlot", "[", RowBox[{"vecs", ",", RowBox[{"HierarchicalClustering`LeafLabels", "\[Rule]", "labels"}], ",", RowBox[{"PlotLabel", "\[Rule]", "plabel"}], ",", RowBox[{"AspectRatio", "\[Rule]", "ratio"}], ",", RowBox[{"ImageSize", "\[Rule]", "size"}], ",", RowBox[{"Apply", "[", RowBox[{"Sequence", ",", "optsd"}], "]"}], ",", RowBox[{"Apply", "[", RowBox[{"Sequence", ",", RowBox[{"Options", "[", "PhylogeneticTreePlot", "]"}]}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "]"}]}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.786806788266177*^9, 3.7868068503140907`*^9}, { 3.7901937165862513`*^9, 3.790193780147373*^9}, 3.7901943258657303`*^9, { 3.790194628806114*^9, 3.790194629140871*^9}, {3.794832892932233*^9, 3.794832936628771*^9}, {3.794841047435565*^9, 3.794841048157761*^9}, { 3.794842945409616*^9, 3.7948429616884203`*^9}}, CellLabel->"In[1]:=", CellID->402391575], Cell["Set up the mammal benchmark:", "Text", TaggingRules->{}, CellChangeTimes->{{3.794842701853895*^9, 3.794842740424183*^9}, { 3.794842850540407*^9, 3.794842857374802*^9}}, CellID->914887355], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"genomesMammal", " ", "=", " ", RowBox[{"{", RowBox[{ "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\n", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\"", ",", " ", "\"\\""}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"speciesMammalColored", "=", RowBox[{"{", RowBox[{ StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.2, 0.2, 0.2]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.4, 0.4, 0.4]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->GrayLevel[0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->GrayLevel[0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], ",", StyleBox["\"\\"", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"getFASTA", "=", RowBox[{"ResourceFunction", "[", "\"\\"", "]"}]}], ";"}], "\n", RowBox[{"AbsoluteTiming", "[", RowBox[{ RowBox[{"sequencesMammal", "=", RowBox[{ RowBox[{"Map", "[", RowBox[{"getFASTA", ",", "genomesMammal"}], "]"}], "[", RowBox[{"[", RowBox[{"All", ",", "2", ",", "1"}], "]"}], "]"}]}], ";"}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.768579604635819*^9, 3.768579921364442*^9}, { 3.768581619293043*^9, 3.7685816196279488`*^9}, 3.7686444724817057`*^9, { 3.7686445359299498`*^9, 3.7686445363692913`*^9}, 3.770574116588291*^9, { 3.794842775716443*^9, 3.794842786929159*^9}}, CellLabel->"In[2]:=", CellID->784881717], Cell[BoxData[ RowBox[{"{", RowBox[{"55.113797`", ",", "Null"}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7948429228606977`*^9}, CellLabel->"Out[2]=", CellID->492785056] }, Open ]], Cell["Now show the old method, using the cosine distance:", "Text", TaggingRules->{}, CellChangeTimes->{{3.794842877691379*^9, 3.79484289804182*^9}, { 3.794844346298658*^9, 3.794844347235093*^9}}, CellID->840023817], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"OldPhylogeneticTreePlot", "[", RowBox[{ "sequencesMammal", ",", "speciesMammalColored", ",", "\"\\"", ",", RowBox[{"DistanceFunction", "->", "CosineDistance"}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.794842799963894*^9, 3.794842829350326*^9}, { 3.794842870710594*^9, 3.7948428712380333`*^9}, 3.794842909878639*^9}, CellLabel->"In[3]:=", CellID->893172442], Cell[BoxData[ GraphicsBox[{ {RGBColor[ 0, 1, 0]}, {{}, { LineBox[{{0, 2}, {-0.005191933497503354, 2}, {-0.005191933497503354, 3}, {0, 3}}], LineBox[{{0, 1}, {-0.00868200091066973, 1}, {-0.00868200091066973, 2.5}, {-0.005191933497503354, 2.5}}], LineBox[{{-0.00868200091066973, 1.75}, {-0.01005595051405872, 1.75}, {-0.01005595051405872, 4}, {0, 4}}], LineBox[{{0, 5}, {-0.007126598337756418, 5}, {-0.007126598337756418, 6}, {0, 6}}], LineBox[{{-0.01005595051405872, 2.875}, {-0.011031533349428524`, 2.875}, {-0.011031533349428524`, 5.5}, {-0.007126598337756418, 5.5}}], LineBox[{{0, 7}, {-0.011502534977443246`, 7}, {-0.011502534977443246`, 8}, {0, 8}}], LineBox[{{-0.011031533349428524`, 4.1875}, {-0.011694232857409559`, 4.1875}, {-0.011694232857409559`, 7.5}, {-0.011502534977443246`, 7.5}}], LineBox[{{-0.011694232857409559`, 5.84375}, {-0.011901271027139448`, 5.84375}, {-0.011901271027139448`, 9}, {0, 9}}], LineBox[{{-0.011901271027139448`, 7.421875}, {-0.012170535695526397`, 7.421875}, {-0.012170535695526397`, 10}, {0, 10}}], LineBox[{{0, 11}, {-0.008334771675214792, 11}, {-0.008334771675214792, 12}, {0, 12}}], LineBox[{{-0.008334771675214792, 11.5}, {-0.008361831924877272, 11.5}, {-0.008361831924877272, 13}, {0, 13}}], LineBox[{{-0.008361831924877272, 12.25}, {-0.00888813512305775, 12.25}, {-0.00888813512305775, 14}, {0, 14}}], LineBox[{{-0.00888813512305775, 13.125}, {-0.010229784138981235`, 13.125}, {-0.010229784138981235`, 15}, {0, 15}}], LineBox[{{-0.010229784138981235`, 14.0625}, {-0.010522120658063683`, 14.0625}, {-0.010522120658063683`, 16}, {0, 16}}], LineBox[{{0, 17}, {-0.005949118683092669, 17}, {-0.005949118683092669, 18}, {0, 18}}], LineBox[{{0, 19}, {-0.007262876485661929, 19}, {-0.007262876485661929, 20}, {0, 20}}], LineBox[{{-0.007262876485661929, 19.5}, {-0.007871695889504426, 19.5}, {-0.007871695889504426, 21}, {0, 21}}], LineBox[{{-0.005949118683092669, 17.5}, {-0.008921815564751356, 17.5}, {-0.008921815564751356, 20.25}, {-0.007871695889504426, 20.25}}], LineBox[{{-0.008921815564751356, 18.875}, {-0.010321814622258785`, 18.875}, {-0.010321814622258785`, 22}, {0, 22}}], LineBox[{{-0.010522120658063683`, 15.03125}, {-0.011178595543966052`, 15.03125}, {-0.011178595543966052`, 20.4375}, {-0.010321814622258785`, 20.4375}}], LineBox[{{0, 23}, {-0.008331517334659977, 23}, {-0.008331517334659977, 24}, {0, 24}}], LineBox[{{-0.011178595543966052`, 17.734375}, {-0.011333871377223748`, 17.734375}, {-0.011333871377223748`, 23.5}, {-0.008331517334659977, 23.5}}], LineBox[{{0, 25}, {-0.010329780216734252`, 25}, {-0.010329780216734252`, 26}, {0, 26}}], LineBox[{{-0.011333871377223748`, 20.6171875}, {-0.011650758706501563`, 20.6171875}, {-0.011650758706501563`, 25.5}, {-0.010329780216734252`, 25.5}}], LineBox[{{0, 27}, {-0.0072636485259289785`, 27}, {-0.0072636485259289785`, 28}, {0, 28}}], LineBox[{{-0.011650758706501563`, 23.05859375}, {-0.011914201070539643`, 23.05859375}, {-0.011914201070539643`, 27.5}, {-0.0072636485259289785`, 27.5}}], LineBox[{{0, 30}, {-0.010702737076292879`, 30}, {-0.010702737076292879`, 31}, {0, 31}}], LineBox[{{0, 29}, {-0.012093729649436336`, 29}, {-0.012093729649436336`, 30.5}, {-0.010702737076292879`, 30.5}}], LineBox[{{-0.011914201070539643`, 25.279296875}, {-0.012332906044230318`, 25.279296875}, {-0.012332906044230318`, 29.75}, {-0.012093729649436336`, 29.75}}], LineBox[{{-0.012332906044230318`, 27.5146484375}, {-0.012662055765333746`, 27.5146484375}, {-0.012662055765333746`, 32}, {0, 32}}], LineBox[{{0, 33}, {-0.011746725984378315`, 33}, {-0.011746725984378315`, 34}, {0, 34}}], LineBox[{{-0.012662055765333746`, 29.75732421875}, {-0.012679250620306837`, 29.75732421875}, {-0.012679250620306837`, 33.5}, {-0.011746725984378315`, 33.5}}], LineBox[{{-0.012170535695526397`, 8.7109375}, {-0.01355308407690703, 8.7109375}, {-0.01355308407690703, 31.628662109375}, {-0.012679250620306837`, 31.628662109375}}], LineBox[{{0, 35}, {-0.004410947980516222, 35}, {-0.004410947980516222, 36}, {0, 36}}], LineBox[{{-0.01355308407690703, 20.1697998046875}, {-0.01363302133923272, 20.1697998046875}, {-0.01363302133923272, 35.5}, {-0.004410947980516222, 35.5}}], LineBox[{{-0.01363302133923272, 27.83489990234375}, {-0.013871628932865199`, 27.83489990234375}, {-0.013871628932865199`, 37}, {0, 37}}], LineBox[{{0, 38}, {-0.00041747399789315853`, 38}, {-0.00041747399789315853`, 39}, { 0, 39}}], LineBox[{{-0.00041747399789315853`, 38.5}, {-0.010310443759746435`, 38.5}, {-0.010310443759746435`, 40}, {0, 40}}], LineBox[{{-0.010310443759746435`, 39.25}, {-0.013702174090698516`, 39.25}, {-0.013702174090698516`, 41}, {0, 41}}], LineBox[{{-0.013871628932865199`, 32.417449951171875`}, {-0.014527165397900443`, 32.417449951171875`}, {-0.014527165397900443`, 40.125}, {-0.013702174090698516`, 40.125}}]}}, {InsetBox[ StyleBox["\<\"Human\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], Offset[{4, 0}, {0, 1}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Pigmy chimpanzee\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], Offset[{4, 0}, {0, 2}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Common chimpanzee\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], Offset[{4, 0}, {0, 3}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Gorilla\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], Offset[{4, 0}, {0, 4}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Bornean orangutan\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], Offset[{4, 0}, {0, 5}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Sumatran orangutan\"\>", StripOnInput->False, FontColor->RGBColor[1, 0, 0]], Offset[{4, 0}, {0, 6}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Vervet monkey\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]]], Offset[{4, 0}, {0, 7}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Macaca thibet\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]]], Offset[{4, 0}, {0, 8}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Baboon\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]]], Offset[{4, 0}, {0, 9}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Gibbon\"\>", StripOnInput->False, FontColor->RGBColor[1, Rational[1, 3], Rational[1, 3]]], Offset[{4, 0}, {0, 10}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Chiru\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Offset[{4, 0}, {0, 11}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Goat\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Offset[{4, 0}, {0, 12}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Sheep\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Offset[{4, 0}, {0, 13}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Taiwan serow\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Offset[{4, 0}, {0, 14}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Cow\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Offset[{4, 0}, {0, 15}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Buffalo\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Offset[{4, 0}, {0, 16}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Bowhead whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], Offset[{4, 0}, {0, 17}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"North pacific right whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], Offset[{4, 0}, {0, 18}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Blue whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], Offset[{4, 0}, {0, 19}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Fin whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], Offset[{4, 0}, {0, 20}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Gray whale\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], Offset[{4, 0}, {0, 21}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Indus river dolphin\"\>", StripOnInput->False, FontColor->RGBColor[0, Rational[2, 3], 0]], Offset[{4, 0}, {0, 22}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Common warthog\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Offset[{4, 0}, {0, 23}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Pig\"\>", StripOnInput->False, FontColor->RGBColor[0.7333333333333333, 0.6, 0.4666666666666667]], Offset[{4, 0}, {0, 24}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"White rhinoceros\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12]], Offset[{4, 0}, {0, 25}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Indian rhinoceros\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12]], Offset[{4, 0}, {0, 26}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Horse\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12]], Offset[{4, 0}, {0, 27}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Donkey\"\>", StripOnInput->False, FontColor->RGBColor[0.36, 0.24, 0.12]], Offset[{4, 0}, {0, 28}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Cat\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65]], Offset[{4, 0}, {0, 29}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Leopard\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65]], Offset[{4, 0}, {0, 30}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Tiger\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.65]], Offset[{4, 0}, {0, 31}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Rabbit\"\>", StripOnInput->False, FontColor->RGBColor[0.2, 0.2, 0.2]], Offset[{4, 0}, {0, 32}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Squirrel\"\>", StripOnInput->False, FontColor->GrayLevel[0]], Offset[{4, 0}, {0, 33}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Dormouse\"\>", StripOnInput->False, FontColor->GrayLevel[0]], Offset[{4, 0}, {0, 34}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Dog\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], Offset[{4, 0}, {0, 35}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Wolf\"\>", StripOnInput->False, FontColor->RGBColor[0, 0, 1]], Offset[{4, 0}, {0, 36}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Hedgehog\"\>", StripOnInput->False, FontColor->RGBColor[0.4, 0.4, 0.4]], Offset[{4, 0}, {0, 37}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Polar bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`]], Offset[{4, 0}, {0, 38}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Brown bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`]], Offset[{4, 0}, {0, 39}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Black bear\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`]], Offset[{4, 0}, {0, 40}], ImageScaled[{0, Rational[1, 2]}]], InsetBox[ StyleBox["\<\"Giant panda\"\>", StripOnInput->False, FontColor->RGBColor[0., 0., 0.30000000000000004`]], Offset[{4, 0}, {0, 41}], ImageScaled[{0, Rational[1, 2]}]]}}, AlignmentPoint->Center, AspectRatio->1.2, Axes->False, AxesLabel->None, AxesOrigin->Automatic, AxesStyle->{}, Background->None, BaseStyle->{}, BaselinePosition->Automatic, ColorOutput->Automatic, ContentSelectable->Automatic, CoordinatesToolOptions:>Automatic, DisplayFunction:>$DisplayFunction, Epilog->{}, FormatType:>TraditionalForm, Frame->False, FrameLabel->None, FrameStyle->{}, FrameTicks->Automatic, FrameTicksStyle->{}, GridLines->None, GridLinesStyle->{}, ImageMargins->0., ImagePadding->All, ImageSize->600, ImageSizeRaw->Automatic, LabelStyle->{}, Method->Automatic, PlotLabel->"Mammalian mitochondrial DNA", PlotRange->All, PlotRangeClipping->False, PlotRangePadding->Automatic, PlotRegion->Automatic, PreserveImageOptions->Automatic, Prolog->{}, RotateLabel->True, Ticks->Automatic, TicksStyle->{}]], "Output", TaggingRules->{}, CellChangeTimes->{3.7948429792099113`*^9}, CellLabel->"Out[3]=", CellID->414018022] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell["Source & Additional Information", "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source & Additional Information"}, CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[TextData[{ "Contributed By", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Contributed By", Cell[ BoxData[ FrameBox[ Cell[ "Enter the name of the person, people or organization that should be \ publicly credited with contributing this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoContributedBy"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Contributed By"}, DefaultNewCellStyle->"Text", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell["Daniel Lichtblau", "Text", CellID->110751496] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Keywords", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Keywords", Cell[ BoxData[ FrameBox[ Cell[ "List relevant terms (e.g. functional areas, algorithm names, related \ concepts) that should be used to include the function in search results.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoKeywords"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Keywords"}, DefaultNewCellStyle->"Item", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell["phylogenetic tree", "Item", CellID->410426756], Cell["dendrogram", "Item", CellID->800204409], Cell["gene sequence clustering", "Item", CellID->356067543], Cell["alignment-free methods", "Item", CellID->124447873], Cell["SARS-CoV-2", "Item", CellID->160499247], Cell["COVID-19", "Item", CellID->676446201], Cell["biology", "Item", CellID->367410850], Cell["genetics", "Item", CellID->41664523] }, Open ]], Cell[CellGroupData[{ Cell["Categories", "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Categories"}, DefaultNewCellStyle->"Item", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud & Deployment"}], "\" \"", "\"Cloud & Deployment\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Data Manipulation & Analysis"}], "\" \"", "\"Data Manipulation & Analysis\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "External Interfaces & Connections"}], "\" \"", "\"External Interfaces & Connections\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geographic Data & Computation"}], "\" \"", "\"Geographic Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Graphs & Networks", {False, "Graphs & Networks"}], "\" \"", "\"Graphs & Networks\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Images"}], "\" \"", "\"Images\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ False, {False, "Knowledge Representation & Natural Language"}], "\" \"", "\"Knowledge Representation & Natural Language\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebook Documents & Presentation"}], "\" \"", "\"Notebook Documents & Presentation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Repository Tools"}], "\" \"", "\"Repository Tools\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Social, Cultural & Linguistic Data"}], "\" \"", "\"Social, Cultural & Linguistic Data\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Strings & Text", {False, "Strings & Text"}], "\" \"", "\"Strings & Text\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "System Operation & Setup"}], "\" \"", "\"System Operation & Setup\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "User Interface Construction"}], "\" \"", "\"User Interface Construction\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Wolfram Physics Project"}], "\" \"", "\"Wolfram Physics Project\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Core Language & Structure"}], "\" \"", "\"Core Language & Structure\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Engineering Data & Computation"}], "\" \"", "\"Engineering Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Financial Data & Computation"}], "\" \"", "\"Financial Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Geometry"}], "\" \"", "\"Geometry\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Higher Mathematical Computation"}], "\" \"", "\"Higher Mathematical Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Just For Fun"}], "\" \"", "\"Just For Fun\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Machine Learning"}], "\" \"", "\"Machine Learning\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Programming Utilities"}], "\" \"", "\"Programming Utilities\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Scientific and Medical Data & Computation", { False, "Scientific and Medical Data & Computation"}], "\" \"", "\"Scientific and Medical Data & Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Sound & Video"}], "\" \"", "\"Sound & Video\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Symbolic & Numeric Computation"}], "\" \"", "\"Symbolic & Numeric Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Time-Related Computation"}], "\" \"", "\"Time-Related Computation\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox[ "Visualization & Graphics", {False, "Visualization & Graphics"}], "\" \"", "\"Visualization & Graphics\""}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxVUE1PwzAMldA+WoQmceOYExKH/oiq29AkYGieuGepu1lLkyh2BOXXkw6E4OSP9/\ z87LqoYAoyWITZNklIUsG8OaE5Y9tNePJELHD7GHU4sbpXLyjvPp4ZFiCR3HHs7fFD4AEMoRPqyCjt\ WvWMLRlt1VKLzpzG91laC3kHd2/ESVv6vJQZvKiT4exkI9gzl3US32fYVFC8Rh8wygDXjRY8+\ kiYmfNtGKe5u/r2OMZdssjFqiXRh5xN19oy/gLlEi3+RcZDvU29+\ 79wsXGCMUT8sVvWboB0YMyfudkh+xQN7oeAUKyTMyPnC7bQcS4="}, CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->178728133] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Symbols", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Symbols", Cell[ BoxData[ FrameBox[ Cell[ "List up to twenty documented, system-level Wolfram Language symbols \ related to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedSymbols"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Symbols"}, DefaultNewCellStyle->"Item", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell["FourierDCT", "Item", CellID->247145880], Cell["SingularValueDecomposition", "Item", CellID->687166908], Cell["FindClusters", "Item", CellID->333767198], Cell["Dendrogram", "Item", CellID->792922396] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Related Resource Objects", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Related Resource Objects", Cell[ BoxData[ FrameBox[ Cell[ "List the names of published resource objects from any Wolfram \ repository that are related to this function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoRelatedResourceObjects"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Related Resource Objects"}, DefaultNewCellStyle->"Item", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell["FCGRImage", "Item", CellID->194105723], Cell["ImportFASTA", "Item", CellID->109379680], Cell["DNAAlignmentPlot", "Item", CellID->403968250], Cell["TaxonomicNearest", "Item", CellID->239453676] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Source/Reference Citation", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Source/Reference Citation", Cell[ BoxData[ FrameBox[ Cell[ "Give a bibliographic-style citation for the original source of the \ function and/or its components (e.g. a published paper, algorithm, or code \ repository).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSourceReferenceCitation"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Source/Reference Citation"}, DefaultNewCellStyle->"Text", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[TextData[{ "Lichtblau, D., \"", ButtonBox["Linking Fourier and PCA methods for image look-up", BaseStyle->"Hyperlink", ButtonData->{ URL["https://www.researchgate.net/publication/312963634_Linking_Fourier_\ and_PCA_Methods_for_Image_Look-Up"], None}, ButtonNote-> "https://www.researchgate.net/publication/312963634_Linking_Fourier_and_\ PCA_Methods_for_Image_Look-Up"], ".\" In: ", StyleBox["Proceedings of the 2016 18th International Symposium on Symbolic \ and Numeric Algorithms for Scientific Computing (SYNASC)", FontSlant->"Italic"], ". Piscataway, NJ: IEEE, 105\[Dash]110, 2016. DOI: 10.1109/SYNASC.2016.028" }], "Text", CellID->741443047], Cell[TextData[{ "Lichtblau, D., \"", ButtonBox["Alignment-free genomic sequence comparison using FCGR and signal \ processing", BaseStyle->"Hyperlink", ButtonData->{ URL["https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-\ 019-3330-3"], None}, ButtonNote-> "https://bmcbioinformatics.biomedcentral.com/articles/10.1186/s12859-019-\ 3330-3"], ".\" BMC Bioinformatics, vol. 20, no. 742, 2019. DOI: \ 10.1186/s12859-019-3330-3" }], "Text", CellID->325024157], Cell["\<\ Li, Y., He, L., He, R. L., Yau, S. S.-T., \"A novel fast vector method for \ genetic sequence comparison.\" Scientific Reports, vol. 7, no. 12226, 2017. \ DOI: 10.1038/s41598-017-12493-2\ \>", "Text", CellID->389147666], Cell["\<\ Clark, K., Karsch-Mizrachi, I., Lipman, D. J., Ostell, J., Sayers, E. W., \ \"GenBank.\" Nucleic Acids Research, vol. 44, no. D67-D72, 2016. DOI: \ 10.1093/nar/gkv1276\ \>", "Text", CellID->956603615] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Links", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Links", Cell[ BoxData[ FrameBox[ Cell[ "List additional URLs or hyperlinks for external information related \ to the function.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoLinks"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Links"}, DefaultNewCellStyle->"Item", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell["Link to other related material", "Item", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Tests", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"VerificationTests", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Specify an optional list of tests for verifying that the function \ is working properly in any environment. Tests can be specified as \ Input/Output cell pairs or as symbolic ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "VerificationTest", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/VerificationTest", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " expressions for including additional options."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoVerificationTests"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "VerificationTests"}, DefaultNewCellStyle->"Input", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MyFunction", "[", RowBox[{"x", ",", "y"}], "]"}]], "Input", CellTags->"DefaultContent", CellLabel->"In[3]:=", CellID->946203791], Cell[BoxData[ RowBox[{"x", " ", "y"}]], "Output", CellTags->"DefaultContent", CellLabel->"Out[3]=", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Compatibility", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Compatibility", Cell[ BoxData[ FrameBox[ Cell[ "Specify any known compatibilities for your resource to ensure it is \ discoverable on the correct platforms.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibility"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsection", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Compatibility"}, CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[TextData[{ "Wolfram Language Version", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityWolframLanguageVersionRequired", Cell[ BoxData[ FrameBox[ Cell[ "Enter required Wolfram Language Version (e.g. 12.1+).", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> { "SectionMoreInfoCompatibilityWolframLanguageVersionRequired"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{ "TemplateGroupName" -> "CompatibilityWolframLanguageVersionRequired"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{ "CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell["12.3+", "Text", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Operating System", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityOperatingSystem", Cell[ BoxData[ FrameBox[ Cell[ "Select all operating systems where your resource is expected to \ function properly.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityOperatingSystem"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityOperatingSystem"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Windows", {False, "Windows"}], "\" \"", "\"Windows\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["MacOSX", {False, "MacOSX"}], "\" \"", "\"Mac\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Unix", {False, "Unix"}], "\" \"", "\"Unix\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNkNuKwkAMhsEerLDsE/gKfQipCoJLF7PL7m0PUQenM8Mkg87bmwot3iX5/\ 3w5bIoSMuCoEfI6sAtcwrK6YnfD/pxQelTEsPxTprd3gvyr6Wr4h/\ TXqIc0HhgHmmznBaWnIKDZPgWzkkj/\ BJmLL9iELL69deg5wrqyg2tYtUorjrUUJTEXiCRDZcnasbLmxX6fTsWuV9y0EmX7RhPOwmqLGt+\ V8VKrw2CoSkr4PBhG77xYRjCsNiZCaAnlIx8nJBt8hz/RIRT7YLrR8wRtF2wJ"}, CellTags->{ "CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Required Features", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityFeatures", Cell[ BoxData[ FrameBox[ Cell[ TextData[{"Choose any other features that are ", Cell[ BoxData[ StyleBox[ StyleBox["required", "TI"], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " in order to use your resource."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityFeatures"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityFeatures"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Notebooks"}], "\" \"", "\"Notebooks\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Parallel Kernels"}], "\" \"", "\"Parallel Kernels\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[False, {False, "Cloud Access"}], "\" \"", "\"Cloud Access\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxlUM1qwzAMHmuzJlDKLrv3BfIQIVugrKyl2gs4jsJMFdtY8sFvP2eDkLHb96cPSU1ZQw\ GSCOHpEsVHqWHXfqG+4zA+8PZsOCvFSXDicfPLx0fe3mKeqD6cYO/cnVdwcZ+vKigipOM7BovE/\ 5Ulu2/JxeHYaI3Mf1kN5TU4j0ESvLRu8kpMb8hI6lBJDJgTu4sX4+\ xP33pDLt8GI6rPqOgUMS5G9YqEa2c+21GcLLebGg4nKxh8yJG5GKrGJog9Y37G/\ obsYtD4mTxC2UWr58w3NfBx2Q=="}, CellTags->{ "CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Environments", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityEvaluationEnvironment", Cell[ BoxData[ FrameBox[ Cell[ TextData[{ "Select all evaluation environments where your resource is expected \ to be compatible. See ", Cell[ BoxData[ StyleBox[ TagBox[ ButtonBox[ StyleBox[ "$EvaluationEnvironment", "SymbolsRefLink", ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"], BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue["MouseOver"], { "Link", FontColor -> RGBColor[0.8549, 0.39608, 0.1451]}, { "Link"}]], ButtonData -> "paclet:ref/$EvaluationEnvironment", ContentPadding -> False], MouseAppearanceTag["LinkHand"]], ShowStringCharacters -> True, FontFamily -> "Source Sans Pro"]]], " for more details."}], "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityEvaluationEnvironment"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityEvaluationEnvironment"}, DefaultNewCellStyle->"Item", FontSize->16, CellTags->{ "CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Session", {False, "Session"}], "\" \"", TemplateBox[{ "\"Session\"", "\"Local or cloud interactive session\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebEvaluation", {False, "WebEvaluation"}], "\" \"", TemplateBox[{ "\"WebEvaluation\"", "\"Cloud evaluation initiated by an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["BatchJob", {False, "BatchJob"}], "\" \"", TemplateBox[{"\"BatchJob\"", "\"Remote batch job\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Script", {False, "Script"}], "\" \"", TemplateBox[{"\"Script\"", "\"Script run in batch mode\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["WebAPI", {False, "WebAPI"}], "\" \"", TemplateBox[{ "\"WebAPI\"", "\"API called through an HTTP request\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox["Subkernel", {False, "Subkernel"}], "\" \"", TemplateBox[{"\"Subkernel\"", "\"Parallel or grid subkernel\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, { StyleBox[ TemplateBox[{ CheckboxBox["Scheduled", {False, "Scheduled"}], "\" \"", TemplateBox[{"\"Scheduled\"", "\"Scheduled task\""}, "PrettyTooltipTemplate"]}, "RowDefault"], StripOnInput->False, FontSize->12]}, {"\<\"\"\>"} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxdUdFqwzAMhK1tEtj2EXvPR3RpChmDlmqw58RRialjG0su5O/\ nlMTJ9mRJd9yd5H2awxZ4UAi7k2frOYek6FDcsL0mtPmSxJAAEkmjYQfCScuQgW9u6DQqeP3BprzXy\ tf8YIR2f64CQ3TYeoUtpB81i+7TNMGpYuxp1r0+0eYSKIv+XERkNpzeOF8FWMqI/\ sv0t120p6jTu9KO0ZcyonGb9V7p2RmLjgd4L0xvg08jleRhcS31XTqje9TjgU92nNEouj4EpWUruW5\ CtT3WijAC2QEVrpHxl4zyvabiOYe3SjM66wLlsXG210M4C2Ewe7kgGe8Efg82xD96LUbOL+VQrkA=\ "}, CellTags->{ "CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Cloud Support", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"CompatibilityCloudSupport", Cell[ BoxData[ FrameBox[ Cell[ "Specify whether your resource is expected to work in the public \ cloud.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoCompatibilityCloudSupport"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Subsubsection", Editable->False, Deletable->False, CellMargins->{{Inherited, Inherited}, {4, 6}}, TaggingRules->{"TemplateGroupName" -> "CompatibilityCloudSupport"}, DefaultNewCellStyle->"Text", FontSize->16, CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[BoxData[ TagBox[GridBox[{ { TagBox[GridBox[{ { StyleBox[ TemplateBox[{ CheckboxBox[True, {False, True}], "\" \"", "\"Supported in cloud\""}, "RowDefault"], StripOnInput->False, FontSize->12]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"]} }, AutoDelete->False, BaseStyle->{"ControlStyle"}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Top}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}], "Grid"]], "Output", Editable->False, Deletable->False, TaggingRules->{ "CheckboxData" -> "OEM6eJxNjkEKwkAMRVGqVhAX7tx5gR5Cq0JBqBgvUNsUB6eTYZIsentnQMVdyH/vJ/\ u8gBnIaBHmtYpXKWBRPrF9YddPOLsYFs7uQTFyleDA320/\ 5eym0duAek9BsNsZt2stafc18msgj0FG2JY0+EbMw1gjY5mgjxbv1V4MOU6N/\ 82cnzojzSNOs3NjGX/B8ogW/5P0NFkdHJeTAtaVEww+RCQVw+\ JAZLFxBaxuyKShxfvoEfKzujYRb6FXWpA="}, CellTags->{ "CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[TextData[{ "Author Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Author Notes", Cell[ BoxData[ FrameBox[ Cell[ "This section, when used, will appear near the bottom of the \ published resource. Content displayed in this section can include background, \ possible improvements, additional information and/or implementation details \ that are otherwise beyond the scope of the function documentation.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoAuthorNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Author Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell["Additional information about limitations, issues, etc.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Submission Notes", Cell[BoxData[ PaneSelectorBox[{True-> TemplateBox[{"Submission Notes", Cell[ BoxData[ FrameBox[ Cell[ "Enter any additional information that you would like to communicate \ to the reviewer here. This section will not be included in the published \ resource.", "MoreInfoText"], Background -> GrayLevel[0.95], FrameMargins -> 20, FrameStyle -> GrayLevel[0.9], RoundingRadius -> 5, ImageSize -> { Scaled[0.65], Automatic}]], "MoreInfoText", Deletable -> True, CellTags -> {"SectionMoreInfoSubmissionNotes"}, CellMargins -> {{66, 66}, {15, 15}}]}, "MoreInfoOpenerButtonTemplate"]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ResourceCreateNotebook"}]], ImageSize->Automatic]]] }], "Section", Editable->False, Deletable->False, TaggingRules->{"TemplateGroupName" -> "Submission Notes"}, DefaultNewCellStyle->"Text", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell["Additional information for the reviewer.", "Text", CellEventActions->{Inherited, {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]], PassEventsDown -> False, PassEventsUp -> False}, CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] }, WindowSize->Automatic, WindowMargins->Automatic, WindowTitle->"PhylogeneticTreePlot | Definition Notebook", TaggingRules->{"CompatibilityTest" -> HoldComplete[ BinaryDeserialize[ BaseDecode[ "OEM6eJzVWVtT20YUrjEQBhxaMulMkyc98EAyadJpO9NL2iauDcQdIMCa9JW1dGQ0rHeV3RWg\ X9a/17MrydhGciTbTFNPJsja1XfOnut3LH9JPWqJQSgi7u3ehBKUCgT3a2rlJApA+/nLS2qp4+P/\ 9Sb38M/K7seIMrW5/QGkWT+KBj2Q0refnbdmB6EDOMGLRiuSErj+QFkE/\ hfq0e4VXlFtnhIaekJc4q7lg0Bp1ejSfj/g/dOIgSKNU1Aiki504xDIcptqimouv+\ cuFGq58icT7qXZlgButwTXcKOPqb7w60UnPwLwFNnJ5JFYaRi0WIBqn7fBD3gwqu757SOOUSp7LG+\ rWj6KGEPFXt5dTAWcQh9VBYma+kE/ktY0w+O+KavUKYRCBVrIOAFMcFQKVLf+\ q6m1PRqwSKJnaurhMXUZ6A5XmjJGvinS0F+\ dxdgzmbXRFWOeWSdaYjz8JQIjr35IQ3uGiLvmSX8lkUyeFBrXKkeVCeuNBIuELNDmNmFCt2qkdk6Wf\ v195MbS63WrPMavIs/KKv/\ cXy6wUp2AkbfeFtfcJoFSv5RFzS7eRxrdCJ5JqHX0NKMuNDGuFgi7YZKuDYzG4CHuxjvBPHQkBiZXf\ 5QFPpbBFQKeXyVlYV8CfpPqwRlXaTnIsUa7KjoNQ+DeGb+\ g3GPgtYAxNdUwi5IwxUb4tbKVXITFipcikK0uDPAAGoy4fSmicH5QzN1Gk5krLAdXGNBft3BTX8gA1\ LetC3Ave+IGb2/e3jbSSSNbs982UR6NmLb5zXWOpuTL7BaBJDdzXV26mg0doS674iz08Dqt+\ 8VeXgD4mIPreONBlgJr+0z0KDu/MC1t1KLqp7Ji90G/\ CzwPeFKIyqfrHuVu3LoQgQvtgDLRH1WskSomNXZJ7K9YlCm/\ zFOd4uqWXTU9icDHCPDU5FFqAeZlAk+\ wXQzPOy5gBCxrKStdGdnUnrNKVGl22UUWdCkNUd9XVYH3quRYSmUmpY5ZKLPnEVwP7Zlr4yRB1GFVl\ bcjBQfQp27c6XMhk+qU+VotG2/kJ9/rspJycCcSb1oazilmWo1dUqsH+\ KQtjHtV7dYHnZWxcYkLSyVMiQ3UHLAuUgXqPtQtzEak0JY1r5rdnbbJS6ufetDBmt3HSF3rcCss/\ oSR60OtCw6eApeue9mJ1LAz3IHt3Vp7KH5EZk3tVm6DlAseuJQdSxECWsvyuVl1HlE0f4hYSotho6m\ UcAPLvU9Us3Juh6m2JEb144GJobWmJSNdsRg4GyZkk1igQ9DUM/\ NBOoGRtVagkwHkSbLj1Sn4IE10O9nSbXVZjFdGhE6olUxPwxkqGUGXD9Dmd0bPL+zn+\ VucCeYZVqZMEhX4/fNClGqEvhrONAb/YyESDoGXtA/ERYdU4+1nhZhJt8uLg0TYzET+3kROZ/\ YlrVeGz88E9Zmx+OP5vVCB1t+HtFl4/k6hHpPEvjht/ydMfqZqgQDffbJeTVLn1tzOtQz+\ VSHMfVD2YqXHzDMzUX9RiD8fM6+KW5aK/1bOHv8tAZ9Lyc+Idv9ceA7iShpi/ZnMkHl49+\ uS7SqXbc+s6ox0uzPlN/bsx3HMtiicFDuddi8UdpH0ex7nlCTdtbHf2yfeAuUz8R/sZ+etcc9oqyP/\ 1LoXgXJ4qqpjqBiVytHC6YHj2i7iOb4UA4c6HK5BOmmHeeEogf8G4Pi4KcIocAY0NkjOtZCIpBy4CT\ F2wHvptIUTi8i5DtSFgdYydmikxQAPizZgseMKjrgaw8/RYwrhboqrgxC39hhk0t/cTg/\ 1dHpYy6aH8TlCbaLrk2YjJJVx4TBiHTj5bmz4CqLgfdhDgg6L1CGioG9x+\ xY6tG9AO9zDs2EcDuvRetMalxpasHaEJNB0BOvNVRIPeoKRp8nbn0PKEUyeJ9+Snkce5811pZ/+\ KouXDOV2vNqeXMp9D7QyIujZnSeKiMG4/\ WyabbVsUI30dbWyR5mC4Y6npzAQV7A7CHW8e0ORJGTUV01ufdzMGR2GbTwVmCj3d8A9cd0NNHoiRcl\ 98fkvn3IKDA=="]]], "CreationTimestamp" -> 3.86801662562668`16.340063321272677*^9, "DefinitionNotebookFramework" -> "DefinitionNotebookClient", "ResourceCreateNotebook" -> True, "ResourceType" -> "Function", "RuntimeConfiguration" -> { "LoadingMethod" -> "Paclet", "PacletName" -> "FunctionResource", "Contexts" -> { "FunctionResource`", "FunctionResource`DefinitionNotebook`"}, "DefaultContentMethod" -> "Legacy"}, "ToolsOpen" -> False, "UpdatedTimestamp" -> 3.868016625739789`16.340063321285378*^9, "VersionInformation" -> {"ResourceVersion" -> "4.0.0"}, "TemplateVersion" -> "1.6.4", "StatusMessage" -> "", "SubmissionReviewData" -> {"Review" -> False}}, CreateCellID->True, FrontEndVersion->"13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]], Cell[ StyleData[All, "Working"], DockedCells -> { Cell[ BoxData[ TemplateBox[{}, "MainGridTemplate"]], "DockedCell", CellMargins -> {{-10, -10}, {-8, -8}}, CellFrame -> 0, Background -> RGBColor[0.921569, 0.341176, 0.105882], CellTags -> {"MainDockedCell"}, CacheGraphics -> False], Cell[ BoxData[ TemplateBox[{}, "ToolsGridTemplate"]], "DockedCell", TaggingRules -> {"Tools" -> True}, CellTags -> {"ToolbarDockedCell"}, CellFrameMargins -> {{0, 0}, {2, 2}}, CellFrame -> {{0, 0}, {1, 0}}, CacheGraphics -> False, CellOpen -> Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]]]}, PrivateNotebookOptions -> { "FileOutlineCache" -> False, "SafeFileOpen" -> "IgnoreCache"}, CellLabelAutoDelete -> False, CodeAssistOptions -> {"AutoDetectHyperlinks" -> False}, AutoQuoteCharacters -> {}], Cell["Hint Styles", "Section"], Cell[ StyleData["MoreInfoText", StyleDefinitions -> StyleData["Text"]], FontColor -> GrayLevel[0.25]], Cell[ StyleData["ErrorText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, Inherited}, {10, 10}}, CellElementSpacings -> {"CellMinHeight" -> 0, "ClosedCellHeight" -> 0}, FontWeight -> Bold, FontColor -> RGBColor[1, 0, 0]], Cell[ StyleData["WarningText", StyleDefinitions -> StyleData["Text"]], ShowCellBracket -> False, CellMargins -> {{66, 35}, {0, 0}}, FontSize -> 14, GridBoxOptions -> {BaseStyle -> {}}], Cell["Template Boxes", "Section"], Cell[ StyleData["MoreInfoOpenerIconTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.627441, 0.627441, 0.627441, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.627441, 0.627441, 0.627441, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic], True -> GraphicsBox[{ Thickness[0.09090909090909091], StyleBox[{ JoinedCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "], CurveClosed -> {1}]}, { JoinForm[{"Miter", 3.25}], Thickness[0.04581818181818182], RGBColor[0.5, 0.5, 0.5, 1.]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGYC4vinF5RuVyo58OlumvteXcIBxj//Pfjx0tky Dh8v+SYJzFB0kGAJ49MtUnBYIKV/V4UNRis5GHKskYl6IuPwCaxO2eEcWJ+E QwLYHBUHfrC5InD+7CMKG4oy+OH81TJRKdb32eD6+w991YjpZ4CbD1L2s+6L Pcz+R1Ui69wfvrKHuQ/Gh7kfxvdLEoiw3CIM178BbA8f3PwJYJoDbn9JxsS3 NfZMcPcV2HJdX1zw1x7mfhgf5j8YH+Z/mH5Y+MDMh4UfzH5Y+MLchx7+ANUf raY= "]]}, { FaceForm[ RGBColor[0.5, 0.5, 0.5, 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGCQBGIQLTQ3t12zRcShJLdco9dU3mHepS6LtrvCcP4+Xv/m N77CDovcOdKu58g7FPjtSo+5KuTw57fmw+zb8g5K/ao+Z2KEHHRuqOoxqCo4 1OhH27UoCDnsSqhWX5aN4K+ZPvXO8oMI/txz6yeuFFeE67fRSpTaE6sIN79j 1cqy+5MV4fZf1fp0iemUItx9v7PEGkWeKjrA3A/jf+Fa9FHHQBTOX+1ud9n/ oChcv3mwk84kczG4+Yfi3FqvrBWD29+RcmLj1xdicPfB+DD3w/gw/8H0w/wP Mx8WPjD7YeEHcx8sfNHDHwBu/qSR "], CompressedData[" 1:eJxTTMoPSmViYGCQB2IQvf+bus9hGwmHDp1Dj7Lq+R1g/C8aMf2HvvI4TGr/ 8PXaHQEMPkz934jyRxrThRx4jt4OchAXgPMDH16pmH8JwZ97RmCl6XRBOP9D W/9jplQhOF+/1m7LFGNhOJ/l29N9k18i+AUfW5kZ2kXg/Ple3+bO/C4K5+fN DQ4+fUAMzt9xf9q57xnicH6N4AF++Q8IvqPzywC3cgk4PyFkivMkFkk4/4bL wedMMyQdDs1vE5FYJOBwYaHqp4u3EPzQT5dO7vwk5SCxtot3p4WYw73/Kfef X5RxYLv4XzxkhpjDona/Xv0OBH+hx9ZwiywJOB/mHxgf5l8Y30/526VcIyR+ 5Tb7vkQhON/3fNmadRME4fxHts2x9mcF4HxYfKDHLwCFIt67 "]}]}, { FaceForm[ RGBColor[0.999985, 0.999985, 0.999985, 1.]]}, StripOnInput -> False]}, ImageSize -> {11., 11.}, PlotRange -> {{0., 11.}, {0., 11.}}, AspectRatio -> Automatic]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["MoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], "\"Click for more information\""}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["InlineMoreInfoOpenerButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (AdjustmentBox[ DynamicModuleBox[{ RSNB`mPosRegion$$, RSNB`attachPos$$, RSNB`offsetPos$$, RSNB`horizontalRegion$$, RSNB`verticalRegion$$, RSNB`chooseAttachLocation$$}, TagBox[ TemplateBox[{ TemplateBox[{}, "MoreInfoOpenerIconTemplate"], #4}, "PrettyTooltipTemplate"], EventHandlerTag[{"MouseDown" :> AttachCell[ ParentBox[ EvaluationBox[]], #2, RSNB`chooseAttachLocation$$[], RemovalConditions -> {"EvaluatorQuit", "MouseClickOutside"}], Method -> "Preemptive", PassEventsDown -> Automatic, PassEventsUp -> True}]], DynamicModuleValues :> {{DownValues[RSNB`mPosRegion$$] = {HoldPattern[ RSNB`mPosRegion$$[]] :> RSNB`mPosRegion$$[ Ceiling[MousePosition["WindowScaled"] 3]], HoldPattern[ RSNB`mPosRegion$$[ Pattern[RSNB`reg, { Blank[Integer], Blank[Integer]}]]] :> RSNB`reg, HoldPattern[ RSNB`mPosRegion$$[ BlankNullSequence[]]] :> None}}, { DownValues[RSNB`attachPos$$] = {HoldPattern[ RSNB`attachPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[RSNB`h$], RSNB`verticalRegion$$[RSNB`v$]}}}, { DownValues[RSNB`offsetPos$$] = {HoldPattern[ RSNB`offsetPos$$[{ Pattern[RSNB`h$, Blank[Integer]], Pattern[RSNB`v$, Blank[Integer]]}]] :> { RSNB`horizontalRegion$$[4 - RSNB`h$], RSNB`verticalRegion$$[4 - RSNB`v$]}}}, { DownValues[RSNB`horizontalRegion$$] = {HoldPattern[ RSNB`horizontalRegion$$[1]] :> Left, HoldPattern[ RSNB`horizontalRegion$$[2]] :> Center, HoldPattern[ RSNB`horizontalRegion$$[3]] :> Right}}, { DownValues[RSNB`verticalRegion$$] = {HoldPattern[ RSNB`verticalRegion$$[1]] :> Top, HoldPattern[ RSNB`verticalRegion$$[2]] :> Top, HoldPattern[ RSNB`verticalRegion$$[3]] :> Top}}, { DownValues[RSNB`chooseAttachLocation$$] = {HoldPattern[ RSNB`chooseAttachLocation$$[]] :> With[{RSNB`p$ = RSNB`mPosRegion$$[]}, Apply[Sequence, { RSNB`offsetPos$$[RSNB`p$], {-30, 30}, RSNB`attachPos$$[RSNB`p$]}]]}}}], BoxBaselineShift -> -0.5, BoxMargins -> 0.2]& )}], Cell[ StyleData["ClickToCopyTemplate"], TemplateBoxOptions -> { DisplayFunction -> (PaneSelectorBox[{False -> TagBox[ GridBox[{{#, ButtonBox[ GraphicsBox[{ GrayLevel[0.85], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, { 9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, {16.5, 4.5}, { 16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, {15.75, 17.25}, { 15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, { 8.25, 18.}}, {{9.75, 17.25}, {12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, { 14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{8.25, 12.}, { 14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], ButtonFunction :> Null, Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Evaluator -> Automatic, Method -> "Preemptive"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], True -> DynamicModuleBox[{RSNB`clickTime$$ = 0., RSNB`timeout$$ = 3.}, TagBox[ GridBox[{{#, TagBox[ ButtonBox[ DynamicBox[ ToBoxes[ Refresh[ If[AbsoluteTime[] - RSNB`clickTime$$ > RSNB`timeout$$, RawBoxes[ TemplateBox[{ PaneSelectorBox[{False -> GraphicsBox[{ GrayLevel[0.65], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], True -> GraphicsBox[{ RGBColor[0.988235, 0.419608, 0.203922], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], "\"Click to copy to the clipboard\""}, "PrettyTooltipTemplate"]], RawBoxes[ TemplateBox[{ GraphicsBox[{ RGBColor[0, NCache[2/3, 0.6666666666666666], 0], Thickness[ NCache[2/45, 0.044444444444444446`]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{10.5, 18.75}, {10.5, 18.}, {9., 18.}, {9., 15.75}, {13.5, 15.75}, {13.5, 18.}, {12., 18.}, {12., 18.75}}, {{6., 18.}, {6., 4.5}, { 16.5, 4.5}, {16.5, 18.}, {14.25, 18.}, {14.25, 17.25}, { 15.75, 17.25}, {15.75, 5.25}, {6.75, 5.25}, {6.75, 17.25}, {8.25, 17.25}, {8.25, 18.}}, {{9.75, 17.25}, { 12.75, 17.25}, {12.75, 16.5}, {9.75, 16.5}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{8.25, 14.25}, {14.25, 14.25}, {14.25, 13.5}, {8.25, 13.5}}, {{ 8.25, 12.}, {14.25, 12.}, {14.25, 11.25}, {8.25, 11.25}}, {{8.25, 9.75}, {14.25, 9.75}, {14.25, 9.}, {8.25, 9.}}, {{8.25, 7.5}, {14.25, 7.5}, {14.25, 6.75}, {8.25, 6.75}}}]}, ImageSize -> 12], "\"Copied\""}, "PrettyTooltipTemplate"]]], UpdateInterval -> 1, TrackedSymbols :> {RSNB`clickTime$$}], StandardForm], Evaluator -> "System"], ButtonFunction :> (RSNB`clickTime$$ = AbsoluteTime[]; CopyToClipboard[ BinaryDeserialize[ BaseDecode[#2], Defer]]), Appearance -> { "Default" -> None, "Hover" -> None, "Pressed" -> None}, Method -> "Queued", Evaluator -> "System"], MouseAppearanceTag["LinkHand"]]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], DynamicModuleValues :> {}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0]& )}], Cell[ StyleData["PrettyTooltipTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ TooltipBox[#, FrameBox[ StyleBox[#2, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain", StripOnInput -> False], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8, StripOnInput -> False], TooltipDelay -> 0.1, TooltipStyle -> {Background -> None, CellFrame -> 0}], Annotation[#, Framed[ Style[ RSNB`$$tooltip, "Text", FontColor -> RGBColor[0.537255, 0.537255, 0.537255], FontSize -> 12, FontWeight -> "Plain", FontTracking -> "Plain"], Background -> RGBColor[0.960784, 0.960784, 0.960784], FrameStyle -> RGBColor[0.898039, 0.898039, 0.898039], FrameMargins -> 8], "Tooltip"]& ]& )}], Cell[ StyleData["ToolsGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Template Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection automatically using appropriate \ documentation styles\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2790153672590285854; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Template Input"; DefinitionNotebookClient`TemplateInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 2790153672590285854]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Literal Input\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Format selection as literal Wolfram Language code\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4138174468017918531; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Literal Input"; DefinitionNotebookClient`LiteralInput[]]]], DefinitionNotebookClient`ButtonCodeID[ 4138174468017918531]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Insert Delimiter\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert example delimiter\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1887802176716758884; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Insert Delimiter"; DefinitionNotebookClient`DelimiterInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 1887802176716758884]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ "\"Subscripted Variable\"", "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Insert subscripted variable placeholder\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3787878858871814623; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Subscripted Variable"; DefinitionNotebookClient`SubscriptInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 3787878858871814623]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], ActionMenuBox[ FrameBox[ ButtonBox[ TemplateBox[{ StyleBox[ TemplateBox[{ "\"Tables\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\ \[FilledDownTriangle]\""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], "\"Table functions\""}, "PrettyTooltipTemplate"], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert table with two columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5800166344906378520; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with two columns"; DefinitionNotebookClient`TableInsert[2]]]], DefinitionNotebookClient`ButtonCodeID[ 5800166344906378520]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Insert table with three columns\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 533841403879783297; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Insert table with three columns"; DefinitionNotebookClient`TableInsert[3]]]], DefinitionNotebookClient`ButtonCodeID[ 533841403879783297]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Add a row to the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4413051590217973467; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Add a row to the selected table"; DefinitionNotebookClient`TableRowInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 4413051590217973467]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Sort the selected table\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 9150037060110806081; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Sort the selected table"; DefinitionNotebookClient`TableSort[]]]], DefinitionNotebookClient`ButtonCodeID[ 9150037060110806081]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Merge selected tables\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2347719643166780208; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Tables"; DefinitionNotebookClient`$ClickedAction = "Merge selected tables"; DefinitionNotebookClient`TableMerge[]]]], DefinitionNotebookClient`ButtonCodeID[ 2347719643166780208]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ActionMenuBox[ FrameBox[ ButtonBox[ StyleBox[ TemplateBox[{ "\"Cells\"", "\"\[ThinSpace]\[ThinSpace]\[ThinSpace]\[FilledDownTriangle]\ \""}, "RowDefault"], "Text", FontFamily -> "Source Sans Pro", FontSize -> 11, StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3216557251994556740; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[Null]]], DefinitionNotebookClient`ButtonCodeID[ 3216557251994556740]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], FrameMargins -> {{4, 4}, {0, 0}}, BaseStyle -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], FEPrivate`If[ CurrentValue["MouseOver"], { FontColor -> GrayLevel[1], TaggingRules -> {"ButtonHovering" -> True}}, { FontColor -> RGBColor[0.8274509803921568, 0.20784313725490197`, 0.], TaggingRules -> {"ButtonHovering" -> False}}], { FontColor -> RGBColor[0.9568627450980391, 0.8019607843137255, 0.75], TaggingRules -> {"ButtonHovering" -> False}}], Evaluator -> "System"], Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GPL5w6v66uRAEZJNqyN3J1VfdxC6bMiAjoAhQ nBhDHh3dfT3JGqLrhpfUgwJvCAKyIYJAWaAaPIYAZSEqbwapfjq8GS38gSJA cYgCZHPQDIG44XaU3r9fP7HGI1AcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+yIZCQ xPQFJgCqgYQzRCMkNUJiExKSBE2AAEg4Q+KdAQwoN4QqLvlPvTChVuxQJZ1Q K8VSJe/AAYW5GBlQWJ6QBKhoCH5ATGkPANqBKWU= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6G3Dt/+uKq+RAEZJNqyIn+urW20su12ZARUAQo Towhtw7v2RZtD9G1wYjrgK0wBAHZEEGgLFANHkOAshCVW0x5H0eo/8k2QUZA EaA4RAGyOWiGQNyw3ZzvV6YxmgkQBBQHykLcg9UQoH8hbsBlAtwciHvg4YNs CCQkMX2BiYBqIOEM0QhJjZDYhIQkQRMgCBLOkHhnAAPKDaGKS6gYJtSKHaqk E2qlWKrkHTigMBcjAwrLE5IAFQ3BD4gp7QGdXXDI "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4CllgA6GvHjx4i0MANmkGvLx48c/f/6g+RooAhQnxpBX r179+PEDIv771dNPR7ZAEJANEQTKAtXgMQQoCxH5+ejWg0Kfy6YMyAgoAhSH KEA2B80QiBu+3754xYoNzQQIAooDZSHuwWoI0L8QN+AyAW4OxD3w8EE2BBKS mL7AREA1kHCGaISkRkhsQkKSoAkQBAlnSLwzgAHlhlDFJVQME2rFDlXSCbVS LFXyDhxQmIuRAYXlCUmAiobgB8SU9gD80e8B "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> GrayLevel[0.9], Method -> "Queued", ImageSize -> {All, 20}, Evaluator -> Automatic], FrameStyle -> Directive[ GrayLevel[0.9], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False], { "\"Insert comment for reviewer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 2572781756330727330; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Insert comment for reviewer"; DefinitionNotebookClient`CommentInsert[]]]], DefinitionNotebookClient`ButtonCodeID[ 2572781756330727330]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as comments\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3646530685697756512; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as comments"; DefinitionNotebookClient`CommentToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 3646530685697756512]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Mark/unmark selected cells as excluded\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1866935765212102190; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Cells"; DefinitionNotebookClient`$ClickedAction = "Mark/unmark selected cells as excluded"; DefinitionNotebookClient`ExclusionToggle[]]]], DefinitionNotebookClient`ButtonCodeID[ 1866935765212102190]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { GrayLevel[0.9]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> {1 -> GrayLevel[0.9]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.5}, 5}, "Rows" -> {{Automatic}}}, FrameStyle -> GrayLevel[0.75]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["MainGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, {0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, { 34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, {23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, { 24.953, 23.914}, {25.418, 23.91}, {29.746, 23.91}, { 30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, {33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, {31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> {Automatic, 32}, ImagePadding -> {{5, 0}, {0, 0}}, BaselinePosition -> Scaled[0.25], AspectRatio -> Automatic, Background -> RGBColor[0.988235, 0.419608, 0.203922], ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], StyleBox[ TagBox[ GridBox[{{ StyleBox[ "\"Function Resource\"", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", StripOnInput -> False], StyleBox[ "\"DEFINITION NOTEBOOK\"", FontFamily -> "Source Sans Pro", FontTracking -> "SemiCondensed", FontVariations -> {"CapsType" -> "AllSmallCaps"}, StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> RGBColor[1., 1., 1.]}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], FontSize -> 24, FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", "\[SpanFromLeft]", TemplateBox[{ StyleBox[ TemplateBox[{ "\"Function Repository\"", "\" \[RightGuillemet] \""}, "RowDefault"], "Text", FontColor -> RGBColor[1., 1., 1.], StripOnInput -> False], "https://resources.wolframcloud.com/FunctionRepository"}, "HyperlinkURL"]}, { TemplateBox[{ TemplateBox[{ "\"Open Sample\"", "\"View a completed sample definition notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4393071033038384034; DefinitionNotebookClient`$ClickedButton = "Open Sample"; DefinitionNotebookClient`ViewExampleNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[4393071033038384034]]& , "\"View a completed sample definition notebook\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ "\"Style Guidelines\"", "\"View general guidelines for authoring resource \ functions\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5906117565281445171; DefinitionNotebookClient`$ClickedButton = "Style Guidelines"; DefinitionNotebookClient`ViewStyleGuidelines[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5906117565281445171]]& , "\"View general guidelines for authoring resource functions\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{"\"Tools\"", PaneSelectorBox[{False -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{5, 2.5}, {5, 7.5}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5], True -> GraphicsBox[{ RGBColor[1., 1., 1.], AbsoluteThickness[1.], LineBox[{{0, 0}, {0, 10}, {10, 10}, {10, 0}, {0, 0}}], LineBox[{{2.5, 5}, {7.5, 5}}]}, ImageSize -> 9, PlotRangePadding -> 1.5]}, Dynamic[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "ToolsOpen"}, True]], BaselinePosition -> Scaled[0]]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.35}}}], "Grid"], "\"Toggle documentation toolbar\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5074018684552945401; DefinitionNotebookClient`$ClickedButton = "Tools"; DefinitionNotebookClient`ToggleToolbar[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[5074018684552945401]]& , "\"Toggle documentation toolbar\"", False}, "OrangeButtonTemplate"], TagBox[ GridBox[{{"\"\"", "\"\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxDividers -> { "ColumnsIndexed" -> {2 -> True}, "Rows" -> {{False}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{2}}}, GridBoxSpacings -> {"Columns" -> {{0.5}}}, FrameStyle -> RGBColor[0.994118, 0.709804, 0.601961]], "Grid"], TemplateBox[{ TemplateBox[{ "\"Check\"", "\"Check notebook for potential errors\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 7891204313296928191; DefinitionNotebookClient`$ClickedButton = "Check"; DefinitionNotebookClient`CheckDefinitionNotebook[ ButtonNotebook[]], DefinitionNotebookClient`ButtonCodeID[7891204313296928191]]& , "\"Check notebook for potential errors\"", False}, "OrangeButtonTemplate"], TemplateBox[{ TemplateBox[{"\"Preview\"", "\"Generate a preview notebook\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 4299709568580201021; DefinitionNotebookClient`$ClickedButton = "Preview"; DefinitionNotebookClient`PreviewResource[ ButtonNotebook[], "Notebook"], DefinitionNotebookClient`ButtonCodeID[4299709568580201021]]& , "\"Generate a preview notebook\"", True}, "OrangeButtonTemplate"], ActionMenuBox[ TemplateBox[{ TemplateBox[{"\"Deploy\"", TemplateBox[{5}, "Spacer1"], "\"\[FilledDownTriangle]\""}, "RowDefault"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1898445052439169298; Null, DefinitionNotebookClient`ButtonCodeID[1898445052439169298]]& , "\"\"", True}, "OrangeButtonTemplate"], { "\"Locally on this computer\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8714502586816766511; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Locally on this computer"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "Local"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8714502586816766511]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"For my cloud account\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 1389539917011878958; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "For my cloud account"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPrivate"]]]]], DefinitionNotebookClient`ButtonCodeID[ 1389539917011878958]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"Publicly in the cloud\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 5593410685219912767; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "Publicly in the cloud"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "CloudPublic"]]]]], DefinitionNotebookClient`ButtonCodeID[ 5593410685219912767]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]], "\"In this session only (without documentation)\"" :> With[{RSNB`nb$ = InputNotebook[], RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$\ AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$SuppressDynamicEvents = True, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 8586347731213964380; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ DefinitionNotebookClient`$ClickedButton = "Deploy"; DefinitionNotebookClient`$ClickedAction = "In this session only (without documentation)"; DefinitionNotebookClient`DisplayStripe[ ButtonNotebook[], DefinitionNotebookClient`DeployResource[ ButtonNotebook[], "KernelSession"]]]]], DefinitionNotebookClient`ButtonCodeID[ 8586347731213964380]], CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]}, Appearance -> None, Method -> "Queued"], ItemBox[ StyleBox[ DynamicBox[ ToBoxes[ CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}, ""], StandardForm], Initialization :> (CurrentValue[ EvaluationNotebook[], {TaggingRules, "StatusMessage"}] = "")], "Text", GrayLevel[1], StripOnInput -> False], ItemSize -> Fit, StripOnInput -> False], DynamicBox[ ToBoxes[ If[ CurrentValue[ EvaluationNotebook[], { TaggingRules, "SubmissionReviewData", "Review"}, False], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit Update\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit changes to update your resource submission\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3196298050911436087; DefinitionNotebookClient`$ClickedButton = "SubmitUpdate"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepositoryUpdate[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3196298050911436087]]& , "\"Submit changes to update your resource submission\"", True}, "OrangeButtonTemplate"]], RawBoxes[ TemplateBox[{ TemplateBox[{ TagBox[ GridBox[{{ GraphicsBox[{ Thickness[0.06349], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBWIWIGZigIEX9mCqQd8Bwv+Bnc/A54CiHs5HV6/ngJUP p2HmwdTp4FCHTvOhqYfZrw2lhdDk0fno6tHcD1PPwOSAnY+uns8BAE8cGz4= "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgB2IWIGZigAEJBwjNB6EblHHwX9ijqofxoeoYhKC0Bg4+ Hw4apk4Uap8aDr4QDhqqDu4uVRx8URw0TJ001D5lHHwJHDRUHYMclFbCwZfG QUPVNSjgp+HmIWgAG/wcEg== "]], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData[" 1:eJx10EEKgCAQhWGpFtEyEAYGggQj6RKeoSMErbuCR0/IWfTgCcPwy7fR9XrO u3fOTXWGOp2zM+ZvH2170nv+e2sFH0ijt45/XxJp9NgRPHYAb63kHhu9tf2H eU8aPfbS9kxawAvxnrSCx3c3XzbS6JX4RFrAS34B53ckaw== "]]}, { FaceForm[ RGBColor[1., 1., 1.]]}, StripOnInput -> False]}, ImageSize -> 15, PlotRange -> {{0., 15.75}, {0., 16.5}}, AspectRatio -> 1.15], "\"Submit to Repository\""}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {{0}}, "ColumnsIndexed" -> {2 -> 0.5}, "Rows" -> {{0}}}], "Grid"], "\"Submit your function to the Wolfram Function \ Repository\""}, "PrettyTooltipTemplate"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3704832848557640569; DefinitionNotebookClient`$ClickedButton = "Submit"; With[{RSNB`nb = ButtonNotebook[]}, DefinitionNotebookClient`DisplayStripe[RSNB`nb, DefinitionNotebookClient`SubmitRepository[RSNB`nb], "ShowProgress" -> True]], DefinitionNotebookClient`ButtonCodeID[ 3704832848557640569]]& , "\"Submit your function to the Wolfram Function \ Repository\"", True}, "OrangeButtonTemplate"]]], StandardForm], Evaluator -> "System", SingleEvaluation -> True]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {-1 -> Right}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxBackground -> {"Columns" -> {{None}}, "Rows" -> { RGBColor[0.988235, 0.419608, 0.203922], RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxFrame -> { "Columns" -> False, "RowsIndexed" -> { 1 -> RGBColor[0.988235, 0.419608, 0.203922], 2 -> RGBColor[0.921569, 0.341176, 0.105882]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> { "Columns" -> {5, {0.9}, 5}, "RowsIndexed" -> {1 -> 1.1, 2 -> 1.3, 3 -> 0.25}}, FrameStyle -> RGBColor[0.988235, 0.419608, 0.203922]], "Grid"], ButtonBoxOptions -> {Enabled -> Dynamic[ Not[ TrueQ[DefinitionNotebookClient`$ButtonsDisabled]], TrackedSymbols :> {DefinitionNotebookClient`$ButtonsDisabled}]}, StripOnInput -> False]& )}], Cell[ StyleData["ReviewerCommentLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TagBox[ GridBox[{{#, TemplateBox[{ GraphicsBox[{ Thickness[0.022222222222222223`], { FaceForm[{ RGBColor[0.87451, 0.278431, 0.03137260000000001], Opacity[1.]}], FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{45., 22.5}, {45., 10.073999999999998`}, {34.926, 0.}, {22.5, 0.}, {10.074, 0.}, {0., 10.073999999999998`}, { 0., 22.5}, {0., 34.926}, {10.074, 45.}, {22.5, 45.}, {34.926, 45.}, {45., 34.926}, {45., 22.5}}}]}, { FaceForm[{ RGBColor[1., 1., 1.], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, { 1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, { 1, 3, 3}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}}, {{0, 2, 0}, {1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {0, 1, 0}, { 0, 1, 0}}}, {CompressedData[" 1:eJxTTMoPSmViYGAwAWIQLcESxqe7SdlhqnN3zvPblg4w/omyffOl/K0cEp9e ULq9U9lhT8lkCZZrVg6VL9UMOd4oO1SLrHN/GGXtcKUCKOCh4sDDpN0udtPa 4fnvlR8v8ao6ZIE12ELMrVZzmAIymNfOAWj43PfpGg45YIV2Dguk9O+qsGlB 9M+0h9gjpgOxh8fBYePc98uPees5MICAggNE/TF9B6Bl574rO0DcMcsAwmd2 cNCM6T/0VcPQAeQsjh6oeWWGEPt97R3UDTnWyMwyhKh7Yefw5S/QB22GEHe1 2zlIg5yTaAh3by7InUKGDmBnLrR1cOkGudzAYZHrts9/Q2wdHi+dfUShwMBh Q1HGxLcytg5BO+RaXwsaQN1r6/BdA2jRVn1oeNk6aIEcWq4HcccvWwfTuF2e PEy6UPPtHIC+CH68VBvOP70QaNFeLTg/T6j5wKlELYdPl3yTBCLsIOGkowVx 71tbhycg93zQdAjonZ4ndNgGzgern2ENVw90TZVInhUkfqy1IO65ZQl3L4wP iW99B/NOx4SnEyzh4Q+W32XhcBUc0PoQd7dawM1D568H2cdnCOd/A9nzVc/h I9hdWg4ZoIg6oueQD/Kfoh40nSD4fkDfWpboQOw7oYDBh6mHxIcy3DxYek4A peOfCD7MPTA+zL0yUSnW9/sV4Hxw/DgpQOL7igUkfi8qwsMHAHSDTZ8= "], {{19.051000000000002`, 14.242}, {19.051000000000002`, 27.594}, {23.828, 27.594}, {23.828, 26.543}, {21.426, 26.308999999999997`}, {21.375, 26.258000000000003`}, { 21.375, 24.219}, {21.375, 17.535000000000004`}, {21.375, 15.602}, {21.426, 15.547}, {23.828, 15.315999999999999`}, { 23.828, 14.242}}, {{24.578, 18.75}, {24.578, 23.078000000000003`}, {24.578, 23.539}, {24.953, 23.914}, { 25.418, 23.91}, {29.746, 23.91}, {30.203, 23.91}, {30.578, 23.539}, {30.578, 23.078000000000003`}, {30.578, 18.75}, { 30.581999999999997`, 18.288999999999998`}, {30.207, 17.91}, {29.746, 17.91}, {25.418, 17.91}, {24.953, 17.906}, {24.574, 18.285}, {24.578, 18.75}}, {{31.328, 14.242}, {31.328, 15.315999999999999`}, {33.684, 15.539000000000001`}, {33.789, 15.602}, {33.789, 17.641}, { 33.789, 24.188}, {33.789, 26.227}, {33.684, 26.281}, { 31.328, 26.512000000000004`}, {31.328, 27.586}, {36.113, 27.586}, {36.113, 14.234000000000002`}}}]}}, { ImageSize -> 12, AspectRatio -> Automatic, Background -> None, ImageSize -> {45., 45.}, PlotRange -> {{0., 45.}, {0., 45.}}}], "Wolfram Function Repository Reviewer"}, "PrettyTooltipTemplate"]}}, GridBoxAlignment -> { "Columns" -> {{Automatic}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.25}}}], "Grid"]& )}], Cell[ StyleData["CommentCellLabelTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ TagBox[ GridBox[{{ StyleBox[#, FontSize -> 11]}, { StyleBox[ DynamicBox[ ToBoxes[ DateString[ TimeZoneConvert[ DateObject[#2, TimeZone -> 0]], { "Month", "/", "Day", "/", "Year", " ", "Hour24", ":", "Minute"}], StandardForm], SingleEvaluation -> True], FontSize -> 9]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{Automatic}}, "Rows" -> {{0}}}], "Grid"], "CommentLabel", ShowStringCharacters -> False]& )}], Cell[ StyleData["OrangeButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (FrameBox[ ButtonBox[ StyleBox[#, "Text", FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Condensed", FontSize -> 13, FontColor -> Dynamic[ FEPrivate`If[ CurrentValue[Enabled], GrayLevel[1], RGBColor[0.9568627450980391, 0.8019607843137255, 0.75]], Evaluator -> "System"], StripOnInput -> False], ButtonFunction :> With[{RSNB`nb$ = ButtonNotebook[]}, If[#4, CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ProgressIndicator[Appearance -> "Necklace"]]; With[{RSNB`$cp$ = $ContextPath}, Quiet[ Block[{$ContextPath = RSNB`$cp$, ResourceSystemClient`$AsyncronousResourceInformationUpdates = False, DefinitionNotebookClient`$ButtonCodeID = None}, Internal`WithLocalSettings[ DefinitionNotebookClient`$ButtonsDisabled = True; Once[ ReleaseHold[ CurrentValue[ RSNB`nb$, {TaggingRules, "CompatibilityTest"}]], "KernelSession"]; Needs["DefinitionNotebookClient`"], Annotation[ DefinitionNotebookClient`$ButtonCodeID = 3145484069433207908; DefinitionNotebookClient`CheckForUpdates[RSNB`nb$, ReleaseHold[ DefinitionNotebookClient`$ButtonCode = HoldForm[ #2[]]]], DefinitionNotebookClient`ButtonCodeID[3145484069433207908]], DefinitionNotebookClient`$ButtonsDisabled = False; Null]; Null]]]; CurrentValue[RSNB`nb$, {TaggingRules, "StatusMessage"}] = ""; Null], FrameMargins -> {{5, 5}, {0, 0}}, Appearance -> {"Default" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8CJZ47CsMQUA2qYY8cOe/Zsl82ZQBGQFF gOLEGPI8UOymHTtE1xUkE+BsoCxQDR5DgLJotuNCyOagGQJ3A0EEVInVEKB/ iTQBguDhg2wIZkjiR0D1EI2Q1AiJTbSQxI8gKiHxzgAGlBtCFZdQMUyoFTtU SSfUSrFUyTvUysVULE9IQlQ0BD8gprQHAOYEDp4= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Hover" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoY8DpK86ikKQUA2qYacdhZaZ8CxXJsNGQFF gOLEGHLfX3yHOTeadmQElAWqwWMIUBaPdmSEbA6aIRA3rMCrfQXMPVgNAfqX SGdAEDx8kA3BDEn8CKgeohGSGiGxSZIJEASJdwYwoNwQqriEimFCrdihSjqh VoqlSt6hVi6mYnlCEqKiIfgBMaU9AAiH5q8= "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True], "Pressed" -> Image[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBAkBOaF5xZnpeaopnXklqemqRRRIz UFAcikHs/4QAMWqA4HW4NCWIDoa8zTb72JMMQUA2qYZ8Wdr69/1LNF8DRYDi xBjyvsz115UjEPFvL589PbgNgoBsiCBQFqgGjyFAWYjIpwe3D2YFLNdmQ0ZA EaA4RAGyOWiGQNzw/ubllQY8aCZAEFAcKAtxD1ZDgP6FuAGXCXBzIO6Bhw+y IZCQxPQFJgKqgYQzRCMkNUJiExKSBE2AIEg4Q+KdAQwoN4QqLqFimFArdqiS TqiVYqmSd6iVi6lYnpCEqGgIfkBMaQ8AIISqgg== "], "Byte", ColorSpace -> "RGB", ImageResolution -> 144, Interleaving -> True]}, Background -> RGBColor[0.921569, 0.341176, 0.105882], Method -> "Queued", ImageSize -> {All, 23}, Evaluator -> Automatic], FrameStyle -> Directive[ RGBColor[0.921569, 0.341176, 0.105882], AbsoluteThickness[2]], FrameMargins -> -1, ContentPadding -> False, StripOnInput -> False]& )}], Cell[ StyleData["SuggestionGridTemplate"], TemplateBoxOptions -> {DisplayFunction -> (StyleBox[ FrameBox[ AdjustmentBox[ TagBox[ GridBox[{{ TemplateBox[{#2, #3, {16., 16.}, {{1., 17.}, {1., 17.}}}, "SuggestionIconTemplate"], PaneBox[#, ImageSizeAction -> "ShrinkToFit", BaselinePosition -> Baseline, ImageSize -> Full], RowBox[{ AdjustmentBox[ TemplateBox[{ ActionMenuBox[ TagBox[ PaneSelectorBox[{False -> GraphicsBox[{ EdgeForm[ Directive[ GrayLevel[1, 0], Thickness[0.025]]], FaceForm[#4], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], #5, LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0], True -> GraphicsBox[{ EdgeForm[ Directive[#5, Thickness[0.025]]], FaceForm[#2], RectangleBox[{-1.75, -2}, {1.75, 2}, RoundingRadius -> 0.2], Thickness[0.15], GrayLevel[1], LineBox[{{-0.5, -1.}, {0.5, 0.}, {-0.5, 1.}}]}, ImageSize -> {Automatic, 15}, ImageMargins -> 0]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], MouseAppearanceTag["LinkHand"]], #6, Appearance -> None, Method -> "Queued"], "\"View suggestions\""}, "PrettyTooltipTemplate"], BoxBaselineShift -> -0.5], " "}]}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {Automatic, Automatic, Fit}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{0.4}}}], "Grid"], BoxMargins -> {{0.25, -0.5}, {0.15, -0.15}}], RoundingRadius -> {13, 75}, Background -> #4, FrameStyle -> None, FrameMargins -> {{0, 8}, {0, 0}}, ImageMargins -> {{0, 0}, {5, 5}}, StripOnInput -> False], "Text", FontColor -> #5, FontSize -> 14, FontFamily -> "Source Sans Pro", FontWeight -> "SemiBold", FontTracking -> "Plain", PrivateFontOptions -> {"OperatorSubstitution" -> False}, LineBreakWithin -> False]& )}], Cell[ StyleData["SuggestionIconTemplate"], TemplateBoxOptions -> {DisplayFunction -> (GraphicsBox[{ Thickness[0.05555555555555555], StyleBox[{ FilledCurveBox[{{{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, CompressedData[" 1:eJxTTMoPSmVmYGBgBGJJIGZigIIGAwcIQ8kBxk94ekHp9k9Vh4qXaoYcOfoO m+a+X37stKZDbP+hrxpzdOA0TBymDqYPl7n2pnG7PHlk4PzZRxQ2FGWIwPWD jI3p54WbLxuVYn3fnwluD8S8H/Yo9gD5KPYA+TB7YPph9sDMh9EwcZg6FPdh MRfdXpi7YPph7oaZD/MXzB5c4QCzBwA8nn+Z "]]}, FaceForm[#]], StyleBox[{ FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}, {{1, 4, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}, {1, 3, 3}}}, {{{8.175292500000001, 7.416875}, {7.796855000000001, 11.3084375}, {7.796855000000001, 13.38}, {10.11998, 13.38}, {10.11998, 11.3084375}, { 9.741542500000001, 7.416875}, {8.175292500000001, 7.416875}}, CompressedData[" 1:eJxTTMoPSmViYGCQBGIQ/cTvZcLf/4oOD6tE1rk/5HNQjDzAkqeL4FsusdsW 1KjgwAAGAg7hCSdehX2Xd5BvfR24Q07QwaZCOJPjjZyDHdf1xQW2Qg56LJYa iWlyDv2HvmrEzBeG80GmVbmIwvkvtjT6Sb8Qg+t/BLLPUwJuPti6DEm4/WD7 2qTg7gMZJyIm7QBzP4y/zEVob88lJTi/7+dk7hV1ynD9c3LzfPxZVODmr3ro 0futUwVu/0bpbbqnzqjA3Qfjw9wP48P8B9MP8z/MfFj4wOyHhR/MfbDwRQ9/ ACBxmlc= "]}]}, FaceForm[#2]]}, ImageSize -> #3, PlotRange -> #4, AspectRatio -> Automatic, BaselinePosition -> Scaled[0.1]]& )}], Cell[ StyleData["FormEditValuesButtonTemplate"], TemplateBoxOptions -> {DisplayFunction -> (TemplateBox[{ TagBox[ PaneBox[ PaneSelectorBox[{False -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWHlMVEcYf28XlGM5VlcRapRDDFK0sBaLBWVXUDxTKpe4JgvoQlALAsvV hHIoV4KK6wGiQlUqoqDcKKysDSZtPZJWTTzaxGrV2mqrNtqKB3Qnz8+Zd6Cv tn90vkgyv+/4zc58M9/3dEtIXZoooSgqw8r8Z2l8tjo9PT43wtE8iUrJSE5K 0a1akKLXJenSAxKkZlD58h9y+X+M8Z7a/I3G7V/lHQgKp2kGmzw9rcrQb+j/ ZItPIGBvNywsVVGVJ01DWAqbpBYUFZ1hGsTYvssRqTLHt4nvoIgvbP6ZjM+I Nt9PzUePPdbvcvX+ZwzTQ9vv8yMh6R04fFNY0/ciOkM8wzjXY4+F47xJgiPF cqRuY3kOlnUGLFq4khsv53NPv8zd7NXs/lYsR+158Gm9l1Tu7IYwmq7oJaMd uWMnR7jMMXLd/isYt7UXx4F9Rjtj1NmNXPPsCKyh6S9+AHzUOHEcpR3gMWM+ iQdHrq1kZFkmidvYQS633399ZBf31G21F/ZdLmmvPo0zVcyalCFg33Qr78Ce 7+qv5jdOm8W3e39u9yN+npR3ieHQ5ArlWGwW28pBIXwfilvFcESnC2eyMoS0 ii8UstncZ2XDjiaROihGjbMcyWVJLBP0N2ELC8vm229icHFPKKo+Y3zK3Jj6 q2lV3gFvZpk4BfSqKHwfFC4fLNDml3cVt2IGO7m+5sRzfoSNxglemGVV8dZT yRXqaKeJ5V1gkWIALX5bk8r5u+3x3qEbwvuN3kJ1DN9j5mLQdz60skXIeM9X PoPMnWYzdD4cjoGRMC3XRyI5+CNolyQhJK4A5mWdXGs7Ofs3HP+z9nz16fbf Scz41Muf67c8B7Q7z6L5RiPMAxZxbfU1OFbDtVDNSGtmnb4qQz/W1F1ElYsc 8rG9A6BF8x1fw2zhSnbddHHHJ115kl3rJNI1mzBL6HI2x9SglrugQzHzG7Ft RQ95IglF+DfwqylNb2gRugnWMnNteFWLj/+FsNlLyd3tfoTrTPWZV+vUcBnQ cHbre8HoTzy3ljGYxzT2Cep3MespaibRtZWwGy9vnPmkmXPgjy1fgte7Mxlk fhwZa/8V+9EQTZuPzwg4HBSA1J4XZqCotB1gExTO58hrYOoYM5RzcCcAHHIn QKpPD8eBzx12GHP0PAlfjXPI3C8J7JXlSNjt9vuSYVrKkjbwUs4R2quCwxLU mFJTZpCoaQjXuPqrgPmqhBhs7XH1lTsxmP889su24lOEZuzEyJE7ZJ3Gu23o Z9bDHvitrb2A0Um+NedwxKO/IGzrKZhn15FnRFHeAdh2zSZuXxscCXtpGorR kxqpRWx2zxPQsTk8/bgrxe+MaWj9UXw/be11pZih5VduxzPCqu03kiPFALPM 3VyOCV5kv9P3ovJk6rbkipI2du3n39AwLegO3UBzn0CYH3vMfzHUMeyM4Mu6 7Vwfiqr6BrRxBWhO0/suAxK5jm8fpoX7LszAz4bJStAanylcGCwiFbD9V2ja xk4ZosmNTsc+Xv51F4Xit9yduwJbqaJ0JYEfoT4xaw9YFDaBVuaId93cVb58 MxPLsL/UIlSz2URmft3FGL2tA7YI1UAONF7HOeWnxhb6XULrJFnQsLHz+XDW x6ooZQjcOD4DKXsvkfnu6i1kYxpaVcw/H/5QRQl7L0lk27HfLJCtp8Rw6EqF fDe08F+54MjaC0jX8aDpFtglV4jhCAoH+44HzPvdfFuTy63xMGwd5GMpKq8B fNTRpNZj2vw4RvznkfhoZ7A/fBO9AdzTEhrM70HiNBGj1jJcRY3PJvmSHod+ Ao3Yr2j8HVXeNXMx7Cr7K7HmHOzFZGXWHpytjmPEcXx2kIzWcG15juOYqUHk dz+S2OwRVmFa3DkhaboljgF1R9wc6R3A/RJIz5PWe1wsNlssB0XFZgllI8Qe TrOhxcJSPAfqIjabhOLkNYSvFsL3XlqsG67qv264eqcYuv4gI9V/bz+Kptcf IbETz4ualXP+zf/+WMuWJO08i2J1P0qrYjJTIl2WyXx5NV6PK1C88/bR/7vx N3kqZvY= "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}], True -> GraphicsBox[ TagBox[ RasterBox[CompressedData[" 1:eJzNWG1MU1cY7m1vS4GWttBLy0dLWyhl5aultrT0C2QzM5rMIWgyluDHkMwf YgBF9gc1cWpijDNuRNFsv2Rmuqmb/NjIYIFkG2qyAYnAljidODfdmItu+AHs Xi6n59x7D3LH9mPnRJLzvB/Pue95z3nfat3UWLVFKpFImpX0n6qNrRVNTRvb 1mrpRc225tcbttW/tnJbS31DfZN/k4wGS+b/MSb/jxFvt7QX95R86TytXyMh WEztye1w97v7c97SBAG2tEHIqRpXX/ksnPlnCVIiMTWXz0DMN5rZSGqX4l+u t+wp+wn1z05Lu7ZCiIYfOjoTnf+MQfd8aFLoiZmRR4FbeEl02tQsnkFpCT/E +1lsUtViOezHOJYzhZdSVqVt5vvLe0/ldpzk7mbZN2I5vEPAJnjPdlBpnQOJ 4s9Qb2V3SB0Dk9rM7b4xiJNJ4jigjSINiaAV3TO1FjEgSr+PWRjFcRR+AiyS X0RxqjrnCDtNO1Bcpga5HJp8tud4m/2Yd9g3WvixZxBmqpg96SqBfmDCeXrZ t6XjzjOaMEbvhfADYZ4UdYvhMLfhcsy8k6sl1+PvQ8EFMRymJnwm6ypRLcse nI7rc1kC1xshk+sVRmkcn8V2AGvfi1jKy24vxhBvs+71XI4+Zm9M6XhuR5J/ cZaE54CcqoH3IS49eaWlvai74AJkIHWOE9GnQg/FPQl5kMW6zz2QfSh1nTKr qBto2I8CKXxbbQeF0VYVB27i4828hanrhRYpq4E8dF+WOBcFe8xmZv5OcxhC 9xdiYKexjm9DSP0/AGl6A4NYdoN14SW+NqnjfkPkT++QZzD0G4pFH6u9fDvz LiD1XGHWxT1gnbKKr+s4AX35rxtqpfHsPrXl7n4o8Y4wlQsditTIIyBl1iVf gVXaZm7djLfBk3b1cWsdIcs5DFkMr3A5NKHg3RgH7dN5BsmUT9ETse6F34Cp pkTBedxNkKno2hCrxZG/GIyq4mTKA1hnPJdj+6wVMEiYlzg6PX8mT2UqFlMV cU/Q0cnuJ/8ciuYcAdGYv3H0SbPnIByuL4BVUoBFjBtQX74xeQrwZmmHZwQ4 5PrYmQ7hGSSS3HeADt0XCTicXWwdY4duOewEAIfCEMu/wYU44LmDCEOOyFTG VphDdL+EiZU0DkQ7NEks0FIWXgRWuuW4WOV/QDCNqSTJh6Lls7DGlY4DTFuO YyCTYPVVGFgseQX3Zct6Yy6mxyFSdget0zDa7n52P9wB31rvMERVLs9VxOPP DOYeAOu8d9Ezor/Qj0TwML+vpapBLOlvb0ElBGlujUzF7iCHQ+Xm7xS+M3RN /AjeTzLJth8yBH/hdzxSZfBXlMN+NHZfTvI5EvLQfic67eqzH8s+VHiRW/uF N9RYB2SBm8xaEwTr8EPhi5G6npsRwml/m29Dv4FfA6llNxs+3yhAMrcL9Y11 4L7jGYTZoC6JffmTuHQWy2wEmG+MvvRqXaW5zdSE2Hi9Izj/wbuGV6EWVWN7 U/8S0yc6TsXux1kgJbUw6nRXOf9m2g5Ae4I01Lp60cz3jphaSA3UMNSCHPDf gDmlrYAajk7cPlEWZsjUmjL9y1SNrhLcOCEDOn3X0HxPdOJ0ymet+4TnIxxU Dd46fQtXj/tmgekeEMNh24+zLTgvfOWoau8wIwv9HpgAetmHxHDo1wB92nbu /S67bW7j13gwSI0ila6+XcAmdR0qVRUZN7AzeQWKK9KAfuAW8wbwTws32O9h pjILojIVrKLRJyoXahH4EUjE/oqGv6OKulNWg6hyfyV6roJYqEscp2C2yilx HM73UW/+6+ZdckoTQn/3M9PcKlUa62DnNBerCXEMTHfEz5HII9gvxbCp4D0+ Zm4Vy0H3kjtx2Qh8LyShs1UunoPpIly9OD/OroytONx3La1+oar/rJHotB8N /4F6Kv1Onkz3hx+iWPRp/jm6Y/gX//sjU6U3eK4wvsIPcjvYzCRkph3sLy// DcvuuIyle//vxt/PCE6d "], {{0, 50.}, {50., 0}}, {0, 255}, ColorFunction -> GrayLevel], BoxForm`ImageTag[ "Byte", ColorSpace -> "Grayscale", Interleaving -> False], Selectable -> False], DefaultBaseStyle -> "ImageGraphics", ImageSizeRaw -> {50., 50.}, PlotRange -> {{0, 50.}, {0, 50.}}]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0], ImageSize -> {Automatic, 15}, ImageSizeAction -> "ResizeToFit"], MouseAppearanceTag["LinkHand"]], "\"Edit values\""}, "PrettyTooltipTemplate"]& )}], Cell["Documentation", "Section"], Cell["Usage", "Subsection"], Cell[ StyleData["UsageInputs", StyleDefinitions -> StyleData["Input"]], CellMargins -> {{66, 10}, {0, 8}}, StyleKeyMapping -> {"Tab" -> "UsageDescription"}, Evaluatable -> False, CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell["", "UsageDescription"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoStyles -> False, ShowCodeAssist -> False, CodeAssistOptions -> {"DynamicHighlighting" -> False}, LineSpacing -> {1, 3}, TabSpacings -> {2.5}, CounterIncrements -> "Text", FontFamily -> "Source Sans Pro", FontSize -> 15, FontWeight -> "Plain"], Cell[ StyleData["UsageDescription", StyleDefinitions -> StyleData["Text"]], CellMargins -> {{86, 10}, {7, 0}}, StyleKeyMapping -> {"Backspace" -> "UsageInputs"}, CellGroupingRules -> "OutputGrouping", CellEventActions -> {"ReturnKeyDown" :> With[{RSNB`nb$ = Notebooks[ EvaluationCell[]]}, SelectionMove[ EvaluationCell[], After, Cell]; NotebookWrite[RSNB`nb$, Cell[ BoxData[""], "UsageInputs", FontFamily -> "Source Sans Pro"], All]; SelectionMove[RSNB`nb$, Before, CellContents]], {"KeyDown", "\t"} :> Replace[SelectionMove[ SelectedNotebook[], After, Cell]; NotebookFind[ SelectedNotebook[], "TabNext", Next, CellTags, AutoScroll -> True, WrapAround -> True], Blank[NotebookSelection] :> SelectionMove[ SelectedNotebook[], All, CellContents, AutoScroll -> True]]}, ShowAutoSpellCheck -> False], Cell["Details & Options", "Subsection"], Cell[ StyleData["Notes", StyleDefinitions -> StyleData["Item"]], CellDingbat -> StyleBox["\[FilledVerySmallSquare]", FontColor -> GrayLevel[0.6]], CellMargins -> {{66, 24}, {9, 7}}, ReturnCreatesNewCell -> False, StyleKeyMapping -> {}, DefaultNewCellStyle -> "Notes", ShowAutoSpellCheck -> False, GridBoxOptions -> {BaseStyle -> "TableNotes"}], Cell[ StyleData["TableNotes", StyleDefinitions -> StyleData["Notes"]], CellDingbat -> None, CellFrameColor -> RGBColor[0.749, 0.694, 0.553], StyleMenuListing -> None, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, GridBoxOptions -> { FrameStyle -> GrayLevel[0.906], GridBoxAlignment -> { "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{True}}}, GridDefaultElement -> Cell["\[Placeholder]", "TableText"]}], Cell[ StyleData["TableText"], DefaultInlineFormatType -> "DefaultInputInlineFormatType", AutoQuoteCharacters -> {}, StyleMenuListing -> None], Cell["Examples", "Subsection"], Cell[ StyleData["ExampleDelimiter"], Selectable -> False, ShowCellBracket -> Automatic, CellMargins -> {{66, 14}, {5, 10}}, Evaluatable -> True, CellGroupingRules -> {"SectionGrouping", 58}, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False, CellLabelAutoDelete -> True, TabFilling -> "\[LongDash]\[NegativeThickSpace]", TabSpacings -> {100}, StyleMenuListing -> None, FontFamily -> "Verdana", FontWeight -> Bold, FontSlant -> "Plain", FontColor -> GrayLevel[0.906]], Cell[ StyleData["ExampleText", StyleDefinitions -> StyleData["Text"]]], Cell[ StyleData["PageBreak", StyleDefinitions -> StyleData["ExampleDelimiter"]], Selectable -> False, CellFrame -> {{0, 0}, {1, 0}}, CellMargins -> {{66, 14}, {15, -5}}, CellElementSpacings -> {"CellMinHeight" -> 1}, Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), CellFrameColor -> GrayLevel[ Rational[77, 85]]], Cell[ StyleData["Subsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["Subsubsection"], Evaluatable -> True, CellEvaluationFunction -> (($Line = 0; Null)& ), ShowCellLabel -> False], Cell[ StyleData["ExampleImage"], PageWidth :> 650, CellMargins -> {{66, 66}, {16, 5}}, Evaluatable -> False, ShowCellLabel -> False, MenuSortingValue -> 10000, RasterBoxOptions -> {ImageEditMode -> False}], Cell["Links", "Section"], Cell[ StyleData["Link"], FontFamily -> "Source Sans Pro", FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.855, 0.396, 0.145], RGBColor[0.02, 0.286, 0.651]]]], Cell[ StyleData["StringTypeLink", StyleDefinitions -> StyleData["Link"]], FontColor -> Dynamic[ If[ CurrentValue["MouseOver"], RGBColor[0.969, 0.467, 0.], GrayLevel[0.467]]]], Cell[ StyleData["CharactersRefLink"], ShowSpecialCharacters -> False], Cell["Annotation", "Section"], Cell[ StyleData["Excluded"], CellBracketOptions -> { "Color" -> RGBColor[0.9, 0.4, 0.4], "Thickness" -> 2}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Excluded"}, "Message" -> {"Message", "MSG", "Excluded"}, "Output" -> {"Output", "Excluded"}, "Print" -> {"Print", "Excluded"}, "PrintTemporary" -> {"PrintTemporary", "Excluded"}}, CellFrameMargins -> 4, CellFrameLabels -> {{None, Cell[ BoxData[ TemplateBox[{ StyleBox[ "\"excluded\"", "ExcludedCellLabel", StripOnInput -> False], "\"Excluded cells will not appear anywhere in the published \ resource except for the definition notebook\""}, "PrettyTooltipTemplate"]], "ExcludedCellLabel"]}, {None, None}}, StyleMenuListing -> None, Background -> RGBColor[1, 0.95, 0.95]], Cell[ StyleData["ExcludedCellLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontFamily -> "Source Sans Pro", FontSize -> 9, FontWeight -> Plain, FontSlant -> Italic, FontColor -> RGBColor[0.9, 0.4, 0.4, 0.5], Background -> None], Cell[ StyleData["Comment", StyleDefinitions -> StyleData["Text"]], CellFrame -> {{3, 0}, {0, 0}}, CellMargins -> {{66, 0}, {1, 0}}, CellElementSpacings -> {"ClosedCellHeight" -> 0}, GeneratedCellStyles -> { "Graphics" -> {"Graphics", "Comment"}, "Message" -> {"Message", "MSG", "Comment"}, "Output" -> {"Output", "Comment"}, "Print" -> {"Print", "Comment"}, "PrintTemporary" -> {"PrintTemporary", "Comment"}}, CellFrameColor -> RGBColor[0.880722, 0.611041, 0.142051], CellFrameLabelMargins -> {{0, 10}, {0, 0}}, FontColor -> GrayLevel[0.25], Background -> RGBColor[0.982, 0.942, 0.871]], Cell[ StyleData["AuthorComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "AuthorComment"}, "Message" -> {"Message", "MSG", "AuthorComment"}, "Output" -> {"Output", "AuthorComment"}, "Print" -> {"Print", "AuthorComment"}, "PrintTemporary" -> {"PrintTemporary", "AuthorComment"}}, CellFrameColor -> RGBColor[0.368417, 0.506779, 0.709798], Background -> RGBColor[0.905, 0.926, 0.956]], Cell[ StyleData["ReviewerComment", StyleDefinitions -> StyleData["Comment"]], GeneratedCellStyles -> { "Graphics" -> {"Graphics", "ReviewerComment"}, "Message" -> {"Message", "MSG", "ReviewerComment"}, "Output" -> {"Output", "ReviewerComment"}, "Print" -> {"Print", "ReviewerComment"}, "PrintTemporary" -> {"PrintTemporary", "ReviewerComment"}}, CellFrameColor -> RGBColor[0.560181, 0.691569, 0.194885], Background -> RGBColor[0.934, 0.954, 0.879]], Cell[ StyleData["CommentLabel", StyleDefinitions -> StyleData["Text"]], ShowStringCharacters -> False, FontSlant -> "Italic", FontColor -> GrayLevel[0.5]], Cell["Special Input", "Section"], Cell[ StyleData["FormObjectCell"], CellMargins -> {{66, 66}, {16, 5}}], Cell[ StyleData["LocalFileInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["FileOpen"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell[ StyleData["LocalDirectoryInput", StyleDefinitions -> StyleData["Input"]], CellFrameLabels -> {{None, Cell[ BoxData[ ButtonBox[ "\"Choose\"", FrameMargins -> {{5, 5}, {0, 0}}, BaseStyle -> {"Panel", FontSize -> 12}, Evaluator -> Automatic, Method -> "Queued", ButtonFunction :> With[{RSNB`file = SystemDialogInput["Directory"], RSNB`cell = ParentCell[ EvaluationCell[]]}, If[ RSNB`file =!= $Canceled, SelectionMove[RSNB`cell, All, CellContents]; NotebookWrite[ Notebooks[RSNB`cell], RowBox[{"File", "[", ToBoxes[RSNB`file], "]"}]]]], Appearance :> FEPrivate`FrontEndResource[ "FEExpressions", "GrayButtonNinePatchAppearance"]]]]}, { None, None}}], Cell["Misc", "Section"], Cell[ StyleData["Item"], DefaultNewCellStyle -> "Item"], Cell[ StyleData["ButtonText"], FontFamily -> "Sans Serif", FontSize -> 11, FontWeight -> Bold, FontColor -> RGBColor[0.459, 0.459, 0.459]], Cell[ StyleData["InlineFormula"], HyphenationOptions -> {"HyphenationCharacter" -> "\[Continuation]"}, LanguageCategory -> "Formula", AutoSpacing -> True, ScriptLevel -> 1, SingleLetterItalics -> False, SpanMaxSize -> 1, StyleMenuListing -> None, FontFamily -> "Source Sans Pro", FontSize -> 1. Inherited, ButtonBoxOptions -> {Appearance -> {Automatic, None}}, FractionBoxOptions -> {BaseStyle -> {SpanMaxSize -> Automatic}}, GridBoxOptions -> { GridBoxItemSize -> { "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}}], Cell[ StyleData["DockedCell"], CellFrameColor -> GrayLevel[0.75], Background -> GrayLevel[0.9]]}, Visible -> False, FrontEndVersion -> "13.1 for Linux x86 (64-bit) (June 16, 2022)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Name"->{ Cell[636, 23, 103, 2, 70, "Title",ExpressionUUID->"e50e7252-9dce-4efc-ab3e-942e5ade5525", CellTags->{"Name", "TemplateCell", "Title"}, CellID->393707907]}, "TemplateCell"->{ Cell[636, 23, 103, 2, 70, "Title",ExpressionUUID->"e50e7252-9dce-4efc-ab3e-942e5ade5525", CellTags->{"Name", "TemplateCell", "Title"}, CellID->393707907], Cell[742, 27, 138, 2, 70, "Text",ExpressionUUID->"84171a90-9758-46df-a0fa-00fd1d91d606", CellTags->{"Description", "TemplateCell"}, CellID->797800175]}, "Title"->{ Cell[636, 23, 103, 2, 70, "Title",ExpressionUUID->"e50e7252-9dce-4efc-ab3e-942e5ade5525", CellTags->{"Name", "TemplateCell", "Title"}, CellID->393707907]}, "Description"->{ Cell[742, 27, 138, 2, 70, "Text",ExpressionUUID->"84171a90-9758-46df-a0fa-00fd1d91d606", CellTags->{"Description", "TemplateCell"}, CellID->797800175]}, "Definition"->{ Cell[905, 33, 1206, 29, 70, "Section",ExpressionUUID->"26cb2a55-e6b5-45a3-81a3-2ed6102e2d34", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "Function"->{ Cell[905, 33, 1206, 29, 70, "Section",ExpressionUUID->"26cb2a55-e6b5-45a3-81a3-2ed6102e2d34", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326]}, "TemplateCellGroup"->{ Cell[905, 33, 1206, 29, 70, "Section",ExpressionUUID->"26cb2a55-e6b5-45a3-81a3-2ed6102e2d34", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[15471, 379, 1980, 50, 70, "Subsection",ExpressionUUID->"dca57618-67e9-4dc3-8d39-75cba4e2d723", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[18074, 458, 1429, 32, 70, "Subsection",ExpressionUUID->"c7f976b0-31ba-4cf6-bc75-239e510a131a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[26154, 705, 7029, 152, 70, "Section",ExpressionUUID->"46d17d71-c22e-46b8-905c-daa50a8976d8", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[869423, 20043, 1026, 26, 70, "Subsection",ExpressionUUID->"9f9be7bd-90c6-433b-ac2f-bdb784e8f25e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[870541, 20077, 996, 26, 70, "Subsection",ExpressionUUID->"73327aa8-e78f-4203-9120-784f0e6f3f06", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[871991, 20132, 221, 6, 70, "Subsection",ExpressionUUID->"4a648552-4b55-44ae-97ae-d7628050bd83", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[880649, 20397, 980, 26, 70, "Subsection",ExpressionUUID->"e21788a0-64d3-4cbd-8e21-3880df26316b", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[881880, 20440, 1039, 26, 70, "Subsection",ExpressionUUID->"95c82c8d-e4e3-49c0-ac87-392d2eb60052", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[883164, 20483, 1084, 26, 70, "Subsection",ExpressionUUID->"1825e2c7-c655-4ef0-9200-dd44c05d0a9d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[885902, 20562, 923, 26, 70, "Subsection",ExpressionUUID->"9cc4efae-0da8-4720-a03d-c582f6d7f74e", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[887370, 20603, 1874, 45, 70, "Subsection",ExpressionUUID->"91b83bf3-7700-4369-ac4b-25f47e138e23", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[889601, 20669, 955, 25, 70, "Subsection",ExpressionUUID->"131e1017-7317-432a-b0ca-5a1dd7c5bdce", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[890581, 20698, 1174, 31, 70, "Subsubsection",ExpressionUUID->"8b8594c2-5999-4836-a777-9f613a0dc40d", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[891884, 20738, 1113, 29, 70, "Subsubsection",ExpressionUUID->"ba661284-691a-4cf5-8896-26597218e92a", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[895135, 20836, 1280, 33, 70, "Subsubsection",ExpressionUUID->"f3cff876-2a17-4822-b488-ff70c1d387d4", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[898604, 20939, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b2968abe-b3fe-4963-b9f1-78de55c6212b", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[904543, 21109, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5dbd6b55-3d2c-4a5f-9122-88cbd3e72eff", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[906896, 21181, 1155, 28, 70, "Section",ExpressionUUID->"ffa1275b-0a6a-4ba1-a753-bc86606d2c74", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[908620, 21224, 1033, 26, 70, "Section",ExpressionUUID->"9f024bd7-2c07-467b-9397-2e08a623cd72", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]}, "Documentation"->{ Cell[15251, 370, 195, 5, 70, "Section",ExpressionUUID->"c06bd6e3-88ba-40ab-ad4a-7966bde954ec", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307]}, "TemplateSection"->{ Cell[15251, 370, 195, 5, 70, "Section",ExpressionUUID->"c06bd6e3-88ba-40ab-ad4a-7966bde954ec", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[869149, 20034, 249, 5, 70, "Section",ExpressionUUID->"d9d78cd9-6b09-4dd6-8fdb-2446a2c0fa38", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Usage"->{ Cell[15471, 379, 1980, 50, 70, "Subsection",ExpressionUUID->"dca57618-67e9-4dc3-8d39-75cba4e2d723", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310]}, "Details & Options"->{ Cell[18074, 458, 1429, 32, 70, "Subsection",ExpressionUUID->"c7f976b0-31ba-4cf6-bc75-239e510a131a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "Notes"->{ Cell[18074, 458, 1429, 32, 70, "Subsection",ExpressionUUID->"c7f976b0-31ba-4cf6-bc75-239e510a131a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236]}, "TabNext"->{ Cell[20125, 511, 698, 22, 70, "Notes",ExpressionUUID->"95593012-3f3a-42de-89b8-9e98ad28d549", CellTags->"TabNext", CellID->256333194], Cell[886828, 20590, 505, 8, 70, "Item",ExpressionUUID->"dec4ab92-6eb3-444e-90ca-fc06124bc600", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[908054, 21211, 529, 8, 70, "Text",ExpressionUUID->"94475b17-a479-4c32-b8eb-a0370ea9feb9", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[909656, 21252, 515, 8, 70, "Text",ExpressionUUID->"e937d16a-8e46-4f3a-82b2-bcc6a6751b18", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Examples"->{ Cell[26154, 705, 7029, 152, 70, "Section",ExpressionUUID->"46d17d71-c22e-46b8-905c-daa50a8976d8", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011]}, "ExampleInput"->{ Cell[151228, 3865, 1653, 44, 70, "Input",ExpressionUUID->"dd9cf911-75ec-46ab-8455-dcb4867698c3", CellTags->"ExampleInput", CellID->568823034]}, "Source & Additional Information"->{ Cell[869149, 20034, 249, 5, 70, "Section",ExpressionUUID->"d9d78cd9-6b09-4dd6-8fdb-2446a2c0fa38", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116]}, "Contributed By"->{ Cell[869423, 20043, 1026, 26, 70, "Subsection",ExpressionUUID->"9f9be7bd-90c6-433b-ac2f-bdb784e8f25e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "ContributorInformation"->{ Cell[869423, 20043, 1026, 26, 70, "Subsection",ExpressionUUID->"9f9be7bd-90c6-433b-ac2f-bdb784e8f25e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256]}, "Keywords"->{ Cell[870541, 20077, 996, 26, 70, "Subsection",ExpressionUUID->"73327aa8-e78f-4203-9120-784f0e6f3f06", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425]}, "Categories"->{ Cell[871991, 20132, 221, 6, 70, "Subsection",ExpressionUUID->"4a648552-4b55-44ae-97ae-d7628050bd83", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[872215, 20140, 8397, 252, 70, "Output",ExpressionUUID->"520195f6-2fba-40a1-aa94-e824b2191287", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->178728133]}, "Categories-Checkboxes"->{ Cell[872215, 20140, 8397, 252, 70, "Output",ExpressionUUID->"520195f6-2fba-40a1-aa94-e824b2191287", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->178728133]}, "CheckboxCell"->{ Cell[872215, 20140, 8397, 252, 70, "Output",ExpressionUUID->"520195f6-2fba-40a1-aa94-e824b2191287", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->178728133], Cell[893000, 20769, 2098, 62, 70, "Output",ExpressionUUID->"bec5a5a2-7e90-4f57-a795-dc3522cdf04c", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368], Cell[896418, 20871, 2149, 63, 70, "Output",ExpressionUUID->"92af8a9c-b0dd-4000-a7e8-2ebcdcbfe116", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753], Cell[900520, 20987, 3986, 117, 70, "Output",ExpressionUUID->"e93066bf-b4aa-484d-ae9b-8a12be8c906b", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750], Cell[905617, 21138, 1218, 36, 70, "Output",ExpressionUUID->"e3ef94c7-da90-4d59-be2e-268db4c47a06", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Related Symbols"->{ Cell[880649, 20397, 980, 26, 70, "Subsection",ExpressionUUID->"e21788a0-64d3-4cbd-8e21-3880df26316b", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169]}, "Related Resource Objects"->{ Cell[881880, 20440, 1039, 26, 70, "Subsection",ExpressionUUID->"95c82c8d-e4e3-49c0-ac87-392d2eb60052", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472]}, "Source/Reference Citation"->{ Cell[883164, 20483, 1084, 26, 70, "Subsection",ExpressionUUID->"1825e2c7-c655-4ef0-9200-dd44c05d0a9d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552]}, "Links"->{ Cell[885902, 20562, 923, 26, 70, "Subsection",ExpressionUUID->"9cc4efae-0da8-4720-a03d-c582f6d7f74e", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773]}, "DefaultContent"->{ Cell[886828, 20590, 505, 8, 70, "Item",ExpressionUUID->"dec4ab92-6eb3-444e-90ca-fc06124bc600", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746], Cell[889269, 20652, 158, 5, 70, "Input",ExpressionUUID->"0207fb73-cc0c-42e8-bc08-612c38bc1809", CellTags->"DefaultContent", CellID->946203791], Cell[889430, 20659, 122, 4, 70, "Output",ExpressionUUID->"7dc293d5-1032-49db-a8a4-e2b02e7c8992", CellTags->"DefaultContent", CellID->168370258], Cell[891758, 20731, 89, 2, 70, "Text",ExpressionUUID->"3f772535-edd3-46cc-b2a0-f29b3a4d5066", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768], Cell[908054, 21211, 529, 8, 70, "Text",ExpressionUUID->"94475b17-a479-4c32-b8eb-a0370ea9feb9", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487], Cell[909656, 21252, 515, 8, 70, "Text",ExpressionUUID->"e937d16a-8e46-4f3a-82b2-bcc6a6751b18", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542]}, "Tests"->{ Cell[887370, 20603, 1874, 45, 70, "Subsection",ExpressionUUID->"91b83bf3-7700-4369-ac4b-25f47e138e23", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "VerificationTests"->{ Cell[887370, 20603, 1874, 45, 70, "Subsection",ExpressionUUID->"91b83bf3-7700-4369-ac4b-25f47e138e23", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448]}, "Compatibility"->{ Cell[889601, 20669, 955, 25, 70, "Subsection",ExpressionUUID->"131e1017-7317-432a-b0ca-5a1dd7c5bdce", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822]}, "CompatibilityWolframLanguageVersionRequired"->{ Cell[890581, 20698, 1174, 31, 70, "Subsubsection",ExpressionUUID->"8b8594c2-5999-4836-a777-9f613a0dc40d", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "Wolfram Language Version"->{ Cell[890581, 20698, 1174, 31, 70, "Subsubsection",ExpressionUUID->"8b8594c2-5999-4836-a777-9f613a0dc40d", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016]}, "ScrapeDefault"->{ Cell[891758, 20731, 89, 2, 70, "Text",ExpressionUUID->"3f772535-edd3-46cc-b2a0-f29b3a4d5066", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768]}, "CompatibilityOperatingSystem"->{ Cell[891884, 20738, 1113, 29, 70, "Subsubsection",ExpressionUUID->"ba661284-691a-4cf5-8896-26597218e92a", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[893000, 20769, 2098, 62, 70, "Output",ExpressionUUID->"bec5a5a2-7e90-4f57-a795-dc3522cdf04c", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "Operating System"->{ Cell[891884, 20738, 1113, 29, 70, "Subsubsection",ExpressionUUID->"ba661284-691a-4cf5-8896-26597218e92a", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406]}, "CompatibilityOperatingSystem-Checkboxes"->{ Cell[893000, 20769, 2098, 62, 70, "Output",ExpressionUUID->"bec5a5a2-7e90-4f57-a795-dc3522cdf04c", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368]}, "CompatibilityFeatures"->{ Cell[895135, 20836, 1280, 33, 70, "Subsubsection",ExpressionUUID->"f3cff876-2a17-4822-b488-ff70c1d387d4", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[896418, 20871, 2149, 63, 70, "Output",ExpressionUUID->"92af8a9c-b0dd-4000-a7e8-2ebcdcbfe116", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "Required Features"->{ Cell[895135, 20836, 1280, 33, 70, "Subsubsection",ExpressionUUID->"f3cff876-2a17-4822-b488-ff70c1d387d4", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156]}, "CompatibilityFeatures-Checkboxes"->{ Cell[896418, 20871, 2149, 63, 70, "Output",ExpressionUUID->"92af8a9c-b0dd-4000-a7e8-2ebcdcbfe116", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753]}, "CompatibilityEvaluationEnvironment"->{ Cell[898604, 20939, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b2968abe-b3fe-4963-b9f1-78de55c6212b", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[900520, 20987, 3986, 117, 70, "Output",ExpressionUUID->"e93066bf-b4aa-484d-ae9b-8a12be8c906b", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Environments"->{ Cell[898604, 20939, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b2968abe-b3fe-4963-b9f1-78de55c6212b", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563]}, "CompatibilityEvaluationEnvironment-Checkboxes"->{ Cell[900520, 20987, 3986, 117, 70, "Output",ExpressionUUID->"e93066bf-b4aa-484d-ae9b-8a12be8c906b", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750]}, "Cloud Support"->{ Cell[904543, 21109, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5dbd6b55-3d2c-4a5f-9122-88cbd3e72eff", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371]}, "CompatibilityCloudSupport"->{ Cell[904543, 21109, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5dbd6b55-3d2c-4a5f-9122-88cbd3e72eff", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[905617, 21138, 1218, 36, 70, "Output",ExpressionUUID->"e3ef94c7-da90-4d59-be2e-268db4c47a06", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "CompatibilityCloudSupport-Checkboxes"->{ Cell[905617, 21138, 1218, 36, 70, "Output",ExpressionUUID->"e3ef94c7-da90-4d59-be2e-268db4c47a06", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484]}, "Author Notes"->{ Cell[906896, 21181, 1155, 28, 70, "Section",ExpressionUUID->"ffa1275b-0a6a-4ba1-a753-bc86606d2c74", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591]}, "Submission Notes"->{ Cell[908620, 21224, 1033, 26, 70, "Section",ExpressionUUID->"9f024bd7-2c07-467b-9397-2e08a623cd72", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765]} } *) (*CellTagsIndex CellTagsIndex->{ {"Name", 1033181, 23580}, {"TemplateCell", 1033364, 23584}, {"Title", 1033700, 23591}, {"Description", 1033882, 23595}, {"Definition", 1034060, 23599}, {"Function", 1034256, 23603}, {"TemplateCellGroup", 1034461, 23607}, {"Documentation", 1038331, 23668}, {"TemplateSection", 1038525, 23672}, {"Usage", 1038901, 23679}, {"Details & Options", 1039096, 23683}, {"Notes", 1039300, 23687}, {"TabNext", 1039506, 23691}, {"Examples", 1040157, 23704}, {"ExampleInput", 1040348, 23708}, {"Source & Additional Information", 1040538, 23712}, {"Contributed By", 1040752, 23716}, {"ContributorInformation", 1040989, 23720}, {"Keywords", 1041212, 23724}, {"Categories", 1041405, 23728}, {"Categories-Checkboxes", 1041805, 23735}, {"CheckboxCell", 1042020, 23739}, {"Related Symbols", 1043150, 23755}, {"Related Resource Objects", 1043364, 23759}, {"Source/Reference Citation", 1043589, 23763}, {"Links", 1043795, 23767}, {"DefaultContent", 1043989, 23771}, {"Tests", 1044968, 23790}, {"VerificationTests", 1045187, 23794}, {"Compatibility", 1045402, 23798}, {"CompatibilityWolframLanguageVersionRequired", 1045633, 23802}, {"Wolfram Language Version", 1045907, 23806}, {"ScrapeDefault", 1046170, 23810}, {"CompatibilityOperatingSystem", 1046375, 23814}, {"Operating System", 1046848, 23821}, {"CompatibilityOperatingSystem-Checkboxes", 1047114, 23825}, {"CompatibilityFeatures", 1047373, 23829}, {"Required Features", 1047827, 23836}, {"CompatibilityFeatures-Checkboxes", 1048080, 23840}, {"CompatibilityEvaluationEnvironment", 1048338, 23844}, {"Environments", 1048821, 23851}, {"CompatibilityEvaluationEnvironment-Checkboxes", 1049095, 23855}, {"Cloud Support", 1049358, 23859}, {"CompatibilityCloudSupport", 1049604, 23863}, {"CompatibilityCloudSupport-Checkboxes", 1050085, 23870}, {"Author Notes", 1050329, 23874}, {"Submission Notes", 1050530, 23878} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[636, 23, 103, 2, 70, "Title",ExpressionUUID->"e50e7252-9dce-4efc-ab3e-942e5ade5525", CellTags->{"Name", "TemplateCell", "Title"}, CellID->393707907], Cell[742, 27, 138, 2, 70, "Text",ExpressionUUID->"84171a90-9758-46df-a0fa-00fd1d91d606", CellTags->{"Description", "TemplateCell"}, CellID->797800175], Cell[CellGroupData[{ Cell[905, 33, 1206, 29, 70, "Section",ExpressionUUID->"26cb2a55-e6b5-45a3-81a3-2ed6102e2d34", CellTags->{"Definition", "Function", "TemplateCellGroup"}, CellID->72845326], Cell[2114, 64, 396, 10, 70, "Input",ExpressionUUID->"a69d47a7-2841-45fa-958b-ea41a9291d97", CellID->626053428], Cell[2513, 76, 1805, 32, 70, "Input",ExpressionUUID->"085e179f-3c2e-41d6-a3ee-a1925c85e086", CellID->464303832], Cell[4321, 110, 2432, 57, 70, "Input",ExpressionUUID->"dabc92a0-4b95-4631-b003-ea431f36a23f", CellID->804757398], Cell[6756, 169, 2746, 70, 70, "Input",ExpressionUUID->"5fda9b83-e23f-474d-83ed-6fb40d3847e7", CellID->762119344], Cell[9505, 241, 1521, 31, 70, "Input",ExpressionUUID->"9daeb2d2-322e-459c-a019-50e16c58aba4", CellID->823537076], Cell[11029, 274, 4185, 91, 70, "Input",ExpressionUUID->"30a7a485-5681-40cb-825c-b05446546453", CellID->354867230] }, Open ]], Cell[CellGroupData[{ Cell[15251, 370, 195, 5, 70, "Section",ExpressionUUID->"c06bd6e3-88ba-40ab-ad4a-7966bde954ec", CellTags->{"Documentation", "TemplateSection"}, CellID->429741307], Cell[CellGroupData[{ Cell[15471, 379, 1980, 50, 70, "Subsection",ExpressionUUID->"dca57618-67e9-4dc3-8d39-75cba4e2d723", CellTags->{"TemplateCellGroup", "Usage"}, CellID->542419310], Cell[CellGroupData[{ Cell[17476, 433, 203, 6, 70, "UsageInputs",ExpressionUUID->"d3988c1b-705e-45e7-980d-0f8ef0059db9", CellID->368083331], Cell[17682, 441, 343, 11, 70, "UsageDescription",ExpressionUUID->"3768f4e2-a7eb-48ac-9967-64c4846cecc3", CellID->693246804] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[18074, 458, 1429, 32, 70, "Subsection",ExpressionUUID->"c7f976b0-31ba-4cf6-bc75-239e510a131a", CellTags->{"Details & Options", "Notes", "TemplateCellGroup"}, CellID->908801236], Cell[19506, 492, 203, 5, 70, "Notes",ExpressionUUID->"ff4fe51c-b860-44ba-ad0b-86d0ef9a30e2", CellID->310272339], Cell[19712, 499, 410, 10, 70, "Notes",ExpressionUUID->"3dca3ec2-ad04-4fc9-a66b-febe3d8c9973", CellID->768832785], Cell[20125, 511, 698, 22, 70, "Notes",ExpressionUUID->"95593012-3f3a-42de-89b8-9e98ad28d549", CellTags->"TabNext", CellID->256333194], Cell[20826, 535, 587, 19, 70, "Notes",ExpressionUUID->"dacef468-aa29-4814-ae94-91003daf5447", CellID->247779061], Cell[21416, 556, 2086, 67, 70, "Notes",ExpressionUUID->"ac984b80-3340-471a-b13f-ebd310395745", CellID->830307387], Cell[23505, 625, 256, 6, 70, "Notes",ExpressionUUID->"9819dd04-5ba2-455c-855d-e563f3c514d2", CellID->560284888], Cell[23764, 633, 144, 4, 70, "Notes",ExpressionUUID->"9235e882-1fc3-4a3e-82db-c8d24e6d84ba", CellID->70989574], Cell[23911, 639, 262, 5, 70, "Notes",ExpressionUUID->"2e32837c-de4c-4951-a15a-731ae3f54bdb", CellID->895470882], Cell[24176, 646, 146, 4, 70, "Notes",ExpressionUUID->"81bfed4f-2a4a-4271-ac07-37b7af5847d4", CellID->97077930], Cell[24325, 652, 344, 8, 70, "Notes",ExpressionUUID->"107ca702-733e-4ff2-ae4c-9410c4278284", CellID->472906536], Cell[24672, 662, 283, 7, 70, "Notes",ExpressionUUID->"0658b94a-3ae6-4d88-b908-c9332f44ec4f", CellID->695797799], Cell[24958, 671, 1147, 28, 70, "Notes",ExpressionUUID->"edceab2d-375f-4258-872c-a0302b0c4fb1", CellID->981541505] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26154, 705, 7029, 152, 70, "Section",ExpressionUUID->"46d17d71-c22e-46b8-905c-daa50a8976d8", CellTags->{"Examples", "TemplateCellGroup"}, CellID->530638011], Cell[CellGroupData[{ Cell[33208, 861, 75, 2, 70, "Subsection",ExpressionUUID->"bd73a4f3-edac-4c90-9555-9d79124f5a11", CellID->904125756], Cell[33286, 865, 290, 7, 70, "Text",ExpressionUUID->"48ba11b2-2b5c-417a-a17c-dc193acecff2", CellID->448373921], Cell[CellGroupData[{ Cell[33601, 876, 296, 9, 70, "Input",ExpressionUUID->"d9c15fe2-d3b3-4464-bb81-a92f181682ff", CellID->968427631], Cell[33900, 887, 972, 19, 70, "Output",ExpressionUUID->"8d9ae904-c9a6-4c9d-b8da-390d92f32a39", CellID->559791601] }, Open ]], Cell[CellGroupData[{ Cell[34909, 911, 265, 8, 70, "Input",ExpressionUUID->"6917a589-e730-493a-9c26-1cc1bfff4241", CellID->731810193], Cell[35177, 921, 4739, 119, 70, "Output",ExpressionUUID->"7918290e-81ea-4f6e-a24f-7c4a5bf02194", CellID->906588656] }, Open ]], Cell[39931, 1043, 315, 5, 70, "Text",ExpressionUUID->"e7ae9a17-e9cf-40de-982b-4a20fa0101c2", CellID->658853089], Cell[CellGroupData[{ Cell[40271, 1052, 475, 13, 70, "Input",ExpressionUUID->"4c21dc08-1ed8-40e6-889f-c15a403be2b2", CellID->855053993], Cell[40749, 1067, 560, 12, 70, "Output",ExpressionUUID->"43d94f0e-17e8-4668-99a6-bb0bf69b6201", CellID->633460541] }, Open ]], Cell[41324, 1082, 173, 3, 70, "Text",ExpressionUUID->"e376ee4c-f2b7-40f4-8d9b-4e2e564d2aed", CellID->317476171], Cell[CellGroupData[{ Cell[41522, 1089, 170, 5, 70, "Input",ExpressionUUID->"783cdfab-4e70-4e7f-a25a-1189ddb4c798", CellID->943540020], Cell[41695, 1096, 5282, 152, 70, "Output",ExpressionUUID->"43671ddd-0467-4b0d-bcd1-01b19f42be64", CellID->526113504] }, Open ]], Cell[46992, 1251, 529, 11, 70, "Text",ExpressionUUID->"e97d13de-0703-4f5c-b29d-cbe8738c8da7", CellID->292210186], Cell[CellGroupData[{ Cell[47546, 1266, 301, 7, 70, "Input",ExpressionUUID->"9e4b6fb5-d43c-4043-a3e6-6dd731457328", CellID->226030557], Cell[47850, 1275, 5226, 151, 70, "Output",ExpressionUUID->"58c482e6-2dab-4461-9e93-8234117578cf", CellID->279424955] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[53125, 1432, 74, 2, 70, "Subsection",ExpressionUUID->"4baf9461-e46e-46a9-9d85-19d96c80170a", CellID->461278909], Cell[CellGroupData[{ Cell[53224, 1438, 148, 3, 70, "Subsubsection",ExpressionUUID->"0373c413-b448-4d54-a495-66f33dfa4d2d", CellID->925271820], Cell[53375, 1443, 545, 11, 70, "Text",ExpressionUUID->"eff4bfda-c12a-4e70-9c79-f8c83d40c215", CellID->384138995], Cell[53923, 1456, 286, 7, 70, "Text",ExpressionUUID->"fbfad727-5fcd-42b4-a68f-3ca2eb8279fe", CellID->324515653], Cell[54212, 1465, 1806, 31, 70, "Input",ExpressionUUID->"cf231ae5-9893-484e-94cd-159b39a4ef73", CellID->76512659], Cell[56021, 1498, 17388, 402, 70, "Input",ExpressionUUID->"3f2f26a0-5325-4d89-9625-ba7dd99396e1", CellID->385015616], Cell[73412, 1902, 722, 18, 70, "Text",ExpressionUUID->"c6f337e7-92d9-4b87-9e9c-fb112dd34b11", CellID->69746996], Cell[74137, 1922, 317, 9, 70, "Input",ExpressionUUID->"8dff15d2-8611-41d5-9344-5d4ffab48d1e", CellID->597769104], Cell[CellGroupData[{ Cell[74479, 1935, 651, 16, 70, "Input",ExpressionUUID->"a888dc42-82c9-4087-9be3-1ffc6cf7d59b", CellID->822913452], Cell[75133, 1953, 279, 7, 70, "Output",ExpressionUUID->"5ac03581-61a7-4a9b-8a61-1c98132d1419", CellID->401927165] }, Open ]], Cell[75427, 1963, 197, 4, 70, "Text",ExpressionUUID->"2e52b852-717e-4e59-8560-e44ea1bbefe6", CellID->859249790], Cell[CellGroupData[{ Cell[75649, 1971, 413, 9, 70, "Input",ExpressionUUID->"af38ba11-3924-4e3c-8890-590a8c81af18", CellID->564852337], Cell[76065, 1982, 35872, 892, 70, "Output",ExpressionUUID->"bdf20328-d043-408a-be83-fb4acd45bb4f", CellID->851484851] }, Open ]], Cell[111952, 2877, 212, 4, 70, "Text",ExpressionUUID->"d0b7a01f-04eb-4c19-8b1d-10c05403c81c", CellID->363334525], Cell[CellGroupData[{ Cell[112189, 2885, 638, 12, 70, "Input",ExpressionUUID->"5a75300e-74fc-4a8e-af3b-740e44cd922c", CellID->771934812], Cell[112830, 2899, 35897, 890, 70, "Output",ExpressionUUID->"3b56bd68-d02a-42fa-8f4e-7c4fb00bc469", CellID->360391320] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[148776, 3795, 144, 3, 70, "Subsubsection",ExpressionUUID->"9f9ada10-6379-4a4b-9f3b-2746a2664b51", CellID->853152347], Cell[148923, 3800, 892, 15, 70, "Text",ExpressionUUID->"67e127b3-5039-4800-ad93-f22151319c55", CellID->837665201], Cell[149818, 3817, 419, 13, 70, "Text",ExpressionUUID->"7723a696-0362-4c94-99e2-52da11764ba4", CellID->651623490], Cell[150240, 3832, 736, 23, 70, "Input",ExpressionUUID->"6fb3e2f0-3fe0-4d01-9dc8-ac3d62ca0288", CellID->379341219], Cell[150979, 3857, 246, 6, 70, "Text",ExpressionUUID->"77aa91a2-3400-4fd8-9919-3b6bac817bd7", CellID->754371402], Cell[151228, 3865, 1653, 44, 70, "Input",ExpressionUUID->"dd9cf911-75ec-46ab-8455-dcb4867698c3", CellTags->"ExampleInput", CellID->568823034], Cell[152884, 3911, 191, 5, 70, "Text",ExpressionUUID->"5ea48880-54c0-49df-9096-56dab11a41fc", CellID->37869846], Cell[153078, 3918, 3685, 114, 70, "Input",ExpressionUUID->"f9cc2663-a4f0-4d11-94c4-c0a38ee8448f", CellID->1304433], Cell[156766, 4034, 151, 3, 70, "Text",ExpressionUUID->"ba457869-7d76-4930-9e2c-a9b16554abb8", CellID->34116532], Cell[CellGroupData[{ Cell[156942, 4041, 451, 10, 70, "Input",ExpressionUUID->"0367a50c-8390-4a94-85ed-e4b36da9ea3d", CellID->995648130], Cell[157396, 4053, 338488, 7560, 70, "Output",ExpressionUUID->"de1a2f94-12bb-45d5-8f3c-5d866e2ab952", CellID->854055437] }, Open ]], Cell[495899, 11616, 589, 11, 70, "Text",ExpressionUUID->"9507ed28-c7c4-4908-a2b5-bef3b5288e06", CellID->306021279], Cell[CellGroupData[{ Cell[496513, 11631, 414, 9, 70, "Input",ExpressionUUID->"d4bb185c-fe26-4cd3-8b85-b1d77af455e5", CellID->879509430], Cell[496930, 11642, 341213, 7617, 70, "Output",ExpressionUUID->"56f4937e-9d1a-4ace-b8a1-345d196a7ff4", CellID->328490244] }, Open ]] }, Closed]] }, Closed]], Cell[CellGroupData[{ Cell[838204, 19266, 76, 2, 70, "Subsection",ExpressionUUID->"23e07c22-413f-4492-804d-7ab3b2fd6c95", CellID->158766396], Cell[838283, 19270, 2977, 83, 70, "Text",ExpressionUUID->"0ec2da7b-0b84-4bbe-9a1a-53ee8e2b1a5e", CellID->111092496], Cell[841263, 19355, 4796, 118, 70, "Input",ExpressionUUID->"278a46d9-a7bd-4967-b5e6-96edb2cce599", CellID->402391575], Cell[846062, 19475, 198, 4, 70, "Text",ExpressionUUID->"3249bdf2-33bb-4b66-b99f-09500b9b5912", CellID->914887355], Cell[CellGroupData[{ Cell[846285, 19483, 7492, 194, 70, "Input",ExpressionUUID->"d0e35e61-ae56-42a0-896d-b861abfd9b85", CellID->784881717], Cell[853780, 19679, 191, 6, 70, "Output",ExpressionUUID->"e2582e65-97a1-4be6-861f-31e203e849a4", CellID->492785056] }, Open ]], Cell[853986, 19688, 220, 4, 70, "Text",ExpressionUUID->"251b7be3-ee66-4b33-96e8-18fccb19176a", CellID->840023817], Cell[CellGroupData[{ Cell[854231, 19696, 448, 10, 70, "Input",ExpressionUUID->"85c16198-c363-4b58-9700-495fdb0f7890", CellID->893172442], Cell[854682, 19708, 14406, 319, 70, "Output",ExpressionUUID->"16f9948d-7b19-422d-9837-3f6821ebf52a", CellID->414018022] }, Open ]] }, Closed]] }, Open ]], Cell[CellGroupData[{ Cell[869149, 20034, 249, 5, 70, "Section",ExpressionUUID->"d9d78cd9-6b09-4dd6-8fdb-2446a2c0fa38", CellTags->{"Source & Additional Information", "TemplateSection"}, CellID->611501116], Cell[CellGroupData[{ Cell[869423, 20043, 1026, 26, 70, "Subsection",ExpressionUUID->"9f9be7bd-90c6-433b-ac2f-bdb784e8f25e", CellTags->{"Contributed By", "ContributorInformation", "TemplateCellGroup"}, CellID->86203256], Cell[870452, 20071, 52, 1, 70, "Text",ExpressionUUID->"53108411-a59d-4dd6-bf6a-bb7042b4850e", CellID->110751496] }, Open ]], Cell[CellGroupData[{ Cell[870541, 20077, 996, 26, 70, "Subsection",ExpressionUUID->"73327aa8-e78f-4203-9120-784f0e6f3f06", CellTags->{"Keywords", "TemplateCellGroup"}, CellID->696375425], Cell[871540, 20105, 53, 1, 70, "Item",ExpressionUUID->"12c44549-5eea-4a78-8dec-33db2dda7074", CellID->410426756], Cell[871596, 20108, 46, 1, 70, "Item",ExpressionUUID->"8e23728f-d934-4cae-9882-280fe5822e5e", CellID->800204409], Cell[871645, 20111, 60, 1, 70, "Item",ExpressionUUID->"90493368-12bd-49e8-aced-859e15a393bf", CellID->356067543], Cell[871708, 20114, 58, 1, 70, "Item",ExpressionUUID->"0a31cbfa-0560-44d0-84e7-0feefb4ace34", CellID->124447873], Cell[871769, 20117, 46, 1, 70, "Item",ExpressionUUID->"0ad10ac1-e48a-4163-9893-1738343df366", CellID->160499247], Cell[871818, 20120, 44, 1, 70, "Item",ExpressionUUID->"6f5c82b3-b167-40b6-807d-b8891af804e0", CellID->676446201], Cell[871865, 20123, 43, 1, 70, "Item",ExpressionUUID->"6012defc-8404-442e-b527-f616942cf0da", CellID->367410850], Cell[871911, 20126, 43, 1, 70, "Item",ExpressionUUID->"dee990a8-3bdc-4016-a1fc-714fb1677405", CellID->41664523] }, Open ]], Cell[CellGroupData[{ Cell[871991, 20132, 221, 6, 70, "Subsection",ExpressionUUID->"4a648552-4b55-44ae-97ae-d7628050bd83", CellTags->{"Categories", "TemplateCellGroup"}, CellID->362094786], Cell[872215, 20140, 8397, 252, 70, "Output",ExpressionUUID->"520195f6-2fba-40a1-aa94-e824b2191287", CellTags->{"Categories", "Categories-Checkboxes", "CheckboxCell"}, CellID->178728133] }, Open ]], Cell[CellGroupData[{ Cell[880649, 20397, 980, 26, 70, "Subsection",ExpressionUUID->"e21788a0-64d3-4cbd-8e21-3880df26316b", CellTags->{"Related Symbols", "TemplateCellGroup"}, CellID->659846169], Cell[881632, 20425, 46, 1, 70, "Item",ExpressionUUID->"caa5ac89-6299-47ee-8fcb-1328eb382d7f", CellID->247145880], Cell[881681, 20428, 62, 1, 70, "Item",ExpressionUUID->"450e4d42-a9d5-41f5-af6b-bf4056a31dbc", CellID->687166908], Cell[881746, 20431, 48, 1, 70, "Item",ExpressionUUID->"3ec90d0f-6cda-4d02-a4f9-b7d9c9e2b5c9", CellID->333767198], Cell[881797, 20434, 46, 1, 70, "Item",ExpressionUUID->"54237790-3825-41c7-85f4-4007c36b53c6", CellID->792922396] }, Open ]], Cell[CellGroupData[{ Cell[881880, 20440, 1039, 26, 70, "Subsection",ExpressionUUID->"95c82c8d-e4e3-49c0-ac87-392d2eb60052", CellTags->{"Related Resource Objects", "TemplateCellGroup"}, CellID->465534472], Cell[882922, 20468, 45, 1, 70, "Item",ExpressionUUID->"e8be5a8b-2019-4419-ad15-3f3e6e98d3ba", CellID->194105723], Cell[882970, 20471, 47, 1, 70, "Item",ExpressionUUID->"35e85c0a-5d5a-4d4b-9698-4a886f4b9c01", CellID->109379680], Cell[883020, 20474, 52, 1, 70, "Item",ExpressionUUID->"9410a2ed-d504-4d45-b716-7dfc0c4ed060", CellID->403968250], Cell[883075, 20477, 52, 1, 70, "Item",ExpressionUUID->"7d2b5e43-fe1a-45e1-9735-d14cba0e8ee4", CellID->239453676] }, Open ]], Cell[CellGroupData[{ Cell[883164, 20483, 1084, 26, 70, "Subsection",ExpressionUUID->"1825e2c7-c655-4ef0-9200-dd44c05d0a9d", CellTags->{"Source/Reference Citation", "TemplateCellGroup"}, CellID->515669552], Cell[884251, 20511, 674, 16, 70, "Text",ExpressionUUID->"12f4ab92-9f53-4793-a571-0f5dda4f0a75", CellID->741443047], Cell[884928, 20529, 490, 14, 70, "Text",ExpressionUUID->"b27b2ee6-55dd-4b3c-93a2-2a108dfc62ae", CellID->325024157], Cell[885421, 20545, 230, 5, 70, "Text",ExpressionUUID->"b21eb5ea-0e2b-406b-ab5b-b38c040f46eb", CellID->389147666], Cell[885654, 20552, 211, 5, 70, "Text",ExpressionUUID->"b6359761-dd08-4b39-8d95-34b5140fb5c6", CellID->956603615] }, Open ]], Cell[CellGroupData[{ Cell[885902, 20562, 923, 26, 70, "Subsection",ExpressionUUID->"9cc4efae-0da8-4720-a03d-c582f6d7f74e", CellTags->{"Links", "TemplateCellGroup"}, CellID->571756773], Cell[886828, 20590, 505, 8, 70, "Item",ExpressionUUID->"dec4ab92-6eb3-444e-90ca-fc06124bc600", CellTags->{"DefaultContent", "TabNext"}, CellID->132505746] }, Open ]], Cell[CellGroupData[{ Cell[887370, 20603, 1874, 45, 70, "Subsection",ExpressionUUID->"91b83bf3-7700-4369-ac4b-25f47e138e23", CellTags->{"TemplateCellGroup", "Tests", "VerificationTests"}, CellID->561308448], Cell[CellGroupData[{ Cell[889269, 20652, 158, 5, 70, "Input",ExpressionUUID->"0207fb73-cc0c-42e8-bc08-612c38bc1809", CellTags->"DefaultContent", CellID->946203791], Cell[889430, 20659, 122, 4, 70, "Output",ExpressionUUID->"7dc293d5-1032-49db-a8a4-e2b02e7c8992", CellTags->"DefaultContent", CellID->168370258] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[889601, 20669, 955, 25, 70, "Subsection",ExpressionUUID->"131e1017-7317-432a-b0ca-5a1dd7c5bdce", CellTags->{"Compatibility", "TemplateCellGroup"}, CellID->559974822], Cell[CellGroupData[{ Cell[890581, 20698, 1174, 31, 70, "Subsubsection",ExpressionUUID->"8b8594c2-5999-4836-a777-9f613a0dc40d", CellTags->{"CompatibilityWolframLanguageVersionRequired", "TemplateCellGroup", "Wolfram Language Version"}, CellID->901090016], Cell[891758, 20731, 89, 2, 70, "Text",ExpressionUUID->"3f772535-edd3-46cc-b2a0-f29b3a4d5066", CellTags->{"DefaultContent", "ScrapeDefault"}, CellID->913148768] }, Open ]], Cell[CellGroupData[{ Cell[891884, 20738, 1113, 29, 70, "Subsubsection",ExpressionUUID->"ba661284-691a-4cf5-8896-26597218e92a", CellTags->{"CompatibilityOperatingSystem", "Operating System", "TemplateCellGroup"}, CellID->499582406], Cell[893000, 20769, 2098, 62, 70, "Output",ExpressionUUID->"bec5a5a2-7e90-4f57-a795-dc3522cdf04c", CellTags->{"CheckboxCell", "CompatibilityOperatingSystem", "CompatibilityOperatingSystem-Checkboxes"}, CellID->589765368] }, Closed]], Cell[CellGroupData[{ Cell[895135, 20836, 1280, 33, 70, "Subsubsection",ExpressionUUID->"f3cff876-2a17-4822-b488-ff70c1d387d4", CellTags->{"CompatibilityFeatures", "Required Features", "TemplateCellGroup"}, CellID->989275156], Cell[896418, 20871, 2149, 63, 70, "Output",ExpressionUUID->"92af8a9c-b0dd-4000-a7e8-2ebcdcbfe116", CellTags->{"CheckboxCell", "CompatibilityFeatures", "CompatibilityFeatures-Checkboxes"}, CellID->851691753] }, Closed]], Cell[CellGroupData[{ Cell[898604, 20939, 1913, 46, 70, "Subsubsection",ExpressionUUID->"b2968abe-b3fe-4963-b9f1-78de55c6212b", CellTags->{"CompatibilityEvaluationEnvironment", "Environments", "TemplateCellGroup"}, CellID->605308563], Cell[900520, 20987, 3986, 117, 70, "Output",ExpressionUUID->"e93066bf-b4aa-484d-ae9b-8a12be8c906b", CellTags->{"CheckboxCell", "CompatibilityEvaluationEnvironment", "CompatibilityEvaluationEnvironment-Checkboxes"}, CellID->71422750] }, Closed]], Cell[CellGroupData[{ Cell[904543, 21109, 1071, 27, 70, "Subsubsection",ExpressionUUID->"5dbd6b55-3d2c-4a5f-9122-88cbd3e72eff", CellTags->{"Cloud Support", "CompatibilityCloudSupport", "TemplateCellGroup"}, CellID->129998371], Cell[905617, 21138, 1218, 36, 70, "Output",ExpressionUUID->"e3ef94c7-da90-4d59-be2e-268db4c47a06", CellTags->{"CheckboxCell", "CompatibilityCloudSupport", "CompatibilityCloudSupport-Checkboxes"}, CellID->131115484] }, Closed]] }, Open ]] }, Closed]], Cell[CellGroupData[{ Cell[906896, 21181, 1155, 28, 70, "Section",ExpressionUUID->"ffa1275b-0a6a-4ba1-a753-bc86606d2c74", CellTags->{"Author Notes", "TemplateCellGroup"}, CellID->681870591], Cell[908054, 21211, 529, 8, 70, "Text",ExpressionUUID->"94475b17-a479-4c32-b8eb-a0370ea9feb9", CellTags->{"DefaultContent", "TabNext"}, CellID->958952487] }, Open ]], Cell[CellGroupData[{ Cell[908620, 21224, 1033, 26, 70, "Section",ExpressionUUID->"9f024bd7-2c07-467b-9397-2e08a623cd72", CellTags->{"Submission Notes", "TemplateCellGroup"}, CellID->916799765], Cell[909656, 21252, 515, 8, 70, "Text",ExpressionUUID->"e937d16a-8e46-4f3a-82b2-bcc6a6751b18", CellTags->{"DefaultContent", "TabNext"}, CellID->604291542] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)