covid.nb

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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     29717,        705]
NotebookOptionsPosition[     28343,        672]
NotebookOutlinePosition[     28738,        688]
CellTagsIndexPosition[     28695,        685]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Convert Covid-19 Cases", "Subtitle",
 CellChangeTimes->{{3.840190526594713*^9, 
  3.840190535297077*^9}},ExpressionUUID->"33916de9-416c-4c86-8146-\
e865aff2729d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"path0", "=", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coviddata", "=", 
   RowBox[{"Import", "[", 
    RowBox[{
     RowBox[{"path0", "<>", "\"\<covid.csv\>\""}], ",", "\"\<CSV\>\""}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"days", "=", 
  RowBox[{"DayCount", "[", 
   RowBox[{
    RowBox[{"coviddata", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", "4"}], "]"}], "]"}], ",", 
    RowBox[{"coviddata", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "4"}], "]"}], "]"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cases", "=", 
   RowBox[{"coviddata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"death", "=", 
   RowBox[{"coviddata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "9"}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.839452911358242*^9, 3.8394529990778923`*^9}, {
   3.8394532225944977`*^9, 3.839453223762692*^9}, {3.8394539955353317`*^9, 
   3.83945400109415*^9}, {3.839494708043544*^9, 3.8394947142965*^9}, 
   3.839494786094784*^9, {3.840041965455536*^9, 3.840041972488079*^9}, 
   3.84244959014469*^9, {3.8424498206144648`*^9, 3.842449823140953*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"7f71f65b-97dc-47c9-b9aa-91b7de3b4b64"],

Cell[BoxData["697"], "Output",
 CellChangeTimes->{
  3.8394540016083193`*^9, 3.8394946595355387`*^9, 3.83949471499851*^9, 
   3.840041246906692*^9, 3.840041973226656*^9, 3.840042026715205*^9, {
   3.842449583467409*^9, 3.842449597229665*^9}, 3.842449717594349*^9, 
   3.842449829342017*^9, 3.8424499201301117`*^9, 3.8473823582815533`*^9, 
   3.847385811865279*^9, 3.849058680177774*^9, 3.849058773043873*^9, 
   3.8492155688814993`*^9, 3.849218660845976*^9, 3.8497283675583067`*^9, 
   3.8575532480718603`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"1ee36a72-470a-4d0f-ae94-71e1abdad05c"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"avgcase", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"t1", "=", 
       RowBox[{"Round", "[", 
        RowBox[{"5.3", "*", "i"}], "]"}]}], ";", 
      RowBox[{"t2", "=", 
       RowBox[{"Round", "[", 
        RowBox[{"5.3", "*", 
         RowBox[{"(", 
          RowBox[{"i", "+", "1"}], ")"}]}], "]"}]}], ";", 
      RowBox[{"Round", "[", 
       RowBox[{"Plus", "@@", 
        RowBox[{"cases", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"t1", "+", "1"}], ";;", "t2"}], "]"}], "]"}]}], "]"}]}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Floor", "[", 
         RowBox[{"days", "/", "5.3"}], "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"avgdeath", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"t1", "=", 
       RowBox[{"Round", "[", 
        RowBox[{"5.3", "*", "i"}], "]"}]}], ";", 
      RowBox[{"t2", "=", 
       RowBox[{"Round", "[", 
        RowBox[{"5.3", "*", 
         RowBox[{"(", 
          RowBox[{"i", "+", "1"}], ")"}]}], "]"}]}], ";", 
      RowBox[{"Round", "[", 
       RowBox[{"Plus", "@@", 
        RowBox[{"death", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"t1", "+", "1"}], ";;", "t2"}], "]"}], "]"}]}], "]"}]}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", 
       RowBox[{
        RowBox[{"Floor", "[", 
         RowBox[{"days", "/", "5.3"}], "]"}], "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"path0", "<>", "\"\<cases.csv\>\""}], ",", 
    RowBox[{"{", "avgcase", "}"}], ",", "\"\<CSV\>\""}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
    RowBox[{"path0", "<>", "\"\<casesD.csv\>\""}], ",", 
    RowBox[{"{", 
     RowBox[{"avgdeath", "*", 
      FractionBox["1", "0.0037"]}], "}"}], ",", "\"\<CSV\>\""}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.839453318263682*^9, 3.839453364411592*^9}, {
   3.839453400389963*^9, 3.839453503560252*^9}, {3.839453562558146*^9, 
   3.839453577407481*^9}, {3.83945361113704*^9, 3.83945377343335*^9}, {
   3.839453928282836*^9, 3.839453939377531*^9}, {3.839453972204617*^9, 
   3.839453986918208*^9}, 3.839454058831802*^9, {3.839494880583729*^9, 
   3.8394948856110773`*^9}, {3.839494947958704*^9, 3.839494952976169*^9}, {
   3.8394949930158253`*^9, 3.8394949942632103`*^9}, {3.839495037712976*^9, 
   3.8394950808663387`*^9}, 3.839495131764122*^9, {3.8394951693510723`*^9, 
   3.839495172982006*^9}, 3.8394952277610903`*^9, {3.8394952985116158`*^9, 
   3.839495316263143*^9}, {3.840041391058194*^9, 3.840041397120922*^9}, {
   3.840041487709963*^9, 3.840041491400518*^9}, {3.8400415637980433`*^9, 
   3.840041582681341*^9}, {3.840041638698605*^9, 3.840041657624423*^9}, {
   3.840042032556087*^9, 3.8400420399579163`*^9}, {3.840042141260016*^9, 
   3.8400421666890783`*^9}, {3.842449612819222*^9, 3.8424496680106697`*^9}, {
   3.842449898528531*^9, 3.842449930411057*^9}, {3.84905871881317*^9, 
   3.84905874560373*^9}, {3.849059016029584*^9, 3.849059017864538*^9}, {
   3.849215586279188*^9, 3.849215591017528*^9}, {3.8492186568735447`*^9, 
   3.84921865845833*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"b1943374-1b46-4442-b0de-8339c3ba8f9c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"avgdeath", "*", 
    FractionBox["1", "0.0037"]}], ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.849215614734949*^9, 3.849215622644669*^9}, 
   3.849218686490892*^9},
 CellLabel->"In[18]:=",ExpressionUUID->"d5c61d97-4ca6-4151-98fc-40d5601524ad"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw1VX1M1HUcvqAX0kDZzmYdfyBz2tGtKKgTVPzAASIvAnfcwb1xJyHYG0gC
Gwu2X6M/yMrqryS3/KPpnMPVpK1Blie+zBbLrLzZVs61M1HGxm5rDpyu3z33
fG5jt4fP9/m8PJ/n+70NnX3uvRkWi2XM/Et9pz9LO8oXHvckNl8V/kNsDZ9d
mRlOEmdJPPv45Z5D94jXSo4J//asEFvFebjg6OCPWRVpvD6N/8okzpMnPImp
3s/1fL6kyk2VLBMXiJktenB2Lc9vlFnr8uSR8gLiTejn5PkS4uckVX5+oZ64
UE6ZB1ZvaSV2oF6hs4P4Bektqi6/fX8vcZEk/c7D+3M6iV9CPweq9xC/jPxZ
j0WJi5FvfELPl2C+i8kg8Suy5+BI/Bmbn/hV6JN7M0zsxHz/bAwQb0G+nJ+1
31L017fGR1wmy5O2htHZEPFWOWfq0Ter+bdhH+ddmm+7fGsmuFEbIS6Xfaac
1vw24h1itpcdv6vnRVLrsZdyPkMktR7rsMYrML8lwv6NCtS76HqN8UrEb4wr
vxL1V5ZUbxfy21azH8MlJhz770PlV4lZrujatMarMO+6BzpvtXxvDnx9Pfdh
VEOf+l6N10jKLokH2l8N6v92S/vfiX7PObS/nWKOfzyvW/m1Ysppk36tXwv+
SFz3vwvxpwaot7EL9b/7U/l1MmZP+qvLOI9Rh/yOdvVLPfZ7eh39YtSLSV/4
ctvrjDfAf4dCxEaDBExD5V7dx3gj/HP7PY03Yv+fJHsZ3w2/T/v6GN8NPw5f
e5PxJuh9Z6Kf8SbovVj3FuPN8GNinliake/eUc3XDP+UWcmPNUOfNU/uJ78F
/U28OEB+C+avDAyR35K+D5eV34J+aq4o3439Dv2gfDfqTd9l3HBD36+mqEfM
Lan3aebm2+R7ZNA8sH0z9RFP2m/2N8j3iFnOPv8F73vMA30fsak+rejH/oHy
W+GX+49SD6MV+xpqYj+xVuh7dlz344We7xZwPvGiP9c32r8X/BPjB8j34n2x
LOn8PuhZcEv5Pkk9t6V9g+T7kL/Hq/V9YsrhXOnifixt0L921Tvkt6Xv95zu
rw3++vRrzhdrwz5G81S/dvjbUaz7b0e/8Y84n9GOfhYedpHfjvdh5mmd34/7
2j9K/4sf8cQG6m34UW/rGa3vh96NR/T9DaBeoZVYAvDjQLf6PYD9HvuF/cYC
yH89V+sH0f+/DmIJQv9fLTp/EPm7VnG+WBB+y5jvIT+E98vYpPOHsP87J7rJ
D0HvC1btP4T+Hs7p/Q3DD8WLvN8Shv8vZOp7EEb+Mz+pfmEx7T1y6TSxpQPz
XKrieyEd6G9gWd+7Dvjl40X2G+uAn9+f0Pcpgvncc8QSgV/Odul7E4Hf7b8r
P4J6GZP6+xWFf563kJ8fxbzPRlXPKO5T5h+cJxpFP8eyOyv+B4pgRbI=
      
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 131.}, {0, 2.3438378378378376`*^7}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.849215618820939*^9, 3.849215623112043*^9}, {
   3.849218666420064*^9, 3.849218687371889*^9}, 3.857553254316663*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"2ffc18cc-dd30-400f-886c-8a18b5724f28"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"path0", "=", 
   RowBox[{"NotebookDirectory", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cases", "=", 
   RowBox[{
    RowBox[{"Import", "[", 
     RowBox[{
      RowBox[{"path0", "<>", "\"\<casesD.csv\>\""}], ",", "\"\<CSV\>\""}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{
       RowBox[{"RandomVariate", "[", 
        RowBox[{
         RowBox[{"BinomialDistribution", "[", 
          RowBox[{
           RowBox[{"Floor", "@", 
            RowBox[{"cases", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ",", 
           RowBox[{"5", "*", 
            SuperscriptBox["10", 
             RowBox[{"-", "7"}]]}]}], "]"}], ",", "1"}], "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "cases", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Select", "[", 
    RowBox[{"%", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ">", "0"}], "&"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"data", ",", 
   RowBox[{"Joined", "\[Rule]", "True"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8473824283185253`*^9, 3.8473825810033903`*^9}, {
  3.8473828489358397`*^9, 3.847382872615726*^9}, {3.847385747141119*^9, 
  3.84738578277414*^9}, {3.847385876091227*^9, 3.847385889998505*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"41985b98-4e23-4639-8ecb-4d38342b98e1"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.009166666666666668], 
     AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxdlLlOgzEQhC0qSgoKCgqIEEIIIW6EOGIIRwhXCFc4AgiJmo7aj+ZH4hEA
Zb5iJ1I0+rRrz3q9/qc/vnqfIyml77//vw5/c3moP82hzhsviJN0UTopXbL8
ZfGodEU6Ll2VTkjXLH9dOibdsPim1bNl+2/b+h3jXemUdM/2a0o5T47+xTjt
R/8C058DaUNxGL+WVP0oLYsfmj/MeY8sDnPe43ieYpxOrH6Y+tuxntKO+ek0
+hWY/nSkM4p3Yn46szjM+nOrD6a+C/OHZ6WXtj/M/F1JG4rDzH03+uWu5cOq
t8LM13X0z7DeXYH1jqrlp56th1kPq75q+ekm1pNh5sW4wvT3NnKGuQ+LV+N0
Z+th7gPWfVSLp/vIGVa/Cow/TP8fpA2thzUfxeLV4qlv/v2YXyxeYeb3MXKG
VW+B1c8KM59PkTPM/cGahwrzvp4jZ5j7M64w9/di/jD+sPpdYfwHMT8PYrzA
+MOc/1Wq70+GWW9cYfr/Zv4w31uLV4un98hTMO8JVr/e4Z/mL7IVki0=
      
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 131.}, {0, 16.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.849215595747078*^9, 3.849218672741529*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"f9b1d27d-732f-4ba5-a583-a7c077e93279"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"avgcase", ",", 
     RowBox[{
      FractionBox["1", "0.0037"], "*", "avgdeath"}]}], "}"}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Confirmed Case\>\"", ",", "\"\<Death (Death rate=0.37%)\>\""}], 
     "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.840042045447629*^9, 3.840042128787273*^9}, {
   3.8424496800054207`*^9, 3.842449680476295*^9}, 3.842449842674233*^9},
 CellLabel->"In[39]:=",ExpressionUUID->"2dd86c2a-465f-4242-9c1e-f2e3dd9a24e1"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        PointBox[CompressedData["
1:eJw101lIVVEUBuBDGkhgSVhe0xxCNEzM8Trruc7X2etUlqJSD5GmRJEQyQ4s
pHxplgw07UF6CA31oYQOpWCJUZA5FfZS1kuk9BCRUf7r34IsvvvvdfbZ65wT
3NTqOr7FMIyz//83q/z9yEDpHDD5g9SdM7SH1Ni3tJfUsCnaG9VsWqZtUsvG
aX+pe0bpIKkvdf8+6U+Yp0NQ+y9+pUNR207/pvejTkd4OcTh8FCdNx0BN0f5
0JFw16o/HQVP1PvR0XDlVhsdA7f3acfCqeu6Pw6OC/Wl42U/P207bD8VRCfA
D64E0onwn8IAOgk+9iKYToa7fUPpFLj+YAidCg+PaKfBl+ci6HT4Z3s4nSHn
7YmkTXjBihErcfnuKOYO+Pq1aObitfsJzDNh1RjHXHymn9czsmCPjljm4oby
RObZsFubzsXxQ7o/R9YHcL0S13nGM8+FV+f0/uJum87z4LyBZObi1G925vnw
4i1aiZ92pDF3yvUf6v3Fzo+pzAs2raJispnDxmRoJvNC5LWeOoeNrHNO5kXw
7bE85rByD8hlXgx3LeUwh413fQXMS5D3HuD1FGyMZPN6Rim8Y6mIuXjFPZ95
GazWuZ8Jq6DH+n7Ezhvst2R9y69C9pfD4720Sc/SClZXK3l+S/KV5iz2u5Bv
bOP5TNh4HZfBfnH1pyT2y/refpP9FcjTN9LZL342x+enxAWfaQtWk8t6/0o4
8BFtwsbeGT1vycu6OG9LnNnG3KjC+qlRfX5YvR8sZr/kgzUu9jOvKGF/Nbw4
Vsp+2Jxv5HpVLefp0fuLW136+dbADXbmJqwcQfp9k9xnifOyJP8Q5mD/IeQn
Cvk+m+KFHD0/8XhfCvthNfxGz/8w8qZlrjfFNa94fSWejeT9WrCy/dXfRy3c
Osz7NcVrbnw/FWx8v8t5WpJPb9fnP4K8qpbrTfHN53r+4onzfD6WuGWX7j8K
d97R84PVySd6fpJ/sfH7sMReF/T3WYf1I/c4D1PccMl0/AOyJRrk
         "]]}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        PointBox[CompressedData["
1:eJw1VH9o1HUYHialC91WF1mLdGOoLbMzt6Zzznfezqk75+7ndj9mus3d/NFW
zQnC0b4wQTQqBdGjEu0HFbUgU6IS1nczY1Q2CloZTgLXHyWyPIo4V9Hn+9zz
HhzHc+/neT/P+77P+ylp7w3snJWXl9dvvs5v7vPHutobdwanlnwn/EOKfcfG
PzuQIZ4jE/PeHku+9Ddxocw3cDJ4m9glVenS0/3Dc+pyeEEOX72D+CG5Kzh1
rueknl8kznXnKrLEpWKybT8yWsjzZTLqyg69WltKvFi6Tfi10QripdD3ynQj
cbnclx0qXlodIl4mjryfKrcRL8f58n92ErvFawp+bH478QrZcSQ14anfQfyE
mHS+d+ZuJ14JncNpPV8hTnn3/xknrhSnXZ8uiBI/KR+YCz+/1kZchfyHl8WI
VyF+6CvVu1pSpsGziyLE1RIzDRy/mCBeAz2XxjR/DeZx0aP51oqRM3ip8Sni
WjHXzcsvayFeB/1fTOl5ESN3ZNsq1mcJ8sWf13idmLBrpIP6rTq5MOLKfrKm
g/H10uv21hadUP56Od/j9g7f1n570O/FD1KP5cH9Dw8qv16ccf8ypvF6+GFg
Ruv1Yt7VLs7D8oq5fsjTqfEN8NfcPI1vwP3f/6r6G6D3fJnqa0B9b3Ypf6OY
dMWppN6/EfM4+4POf5NkolXpnw+w39Ym+HfisvI3i5GX+r2S9VibxbjbnQyr
Xxrhhyv30i9WI/KvrtnFuA/781eY2PJJ/+Ajmeh4N+NbgEsGNL4F9b+c6WG8
Cf0dDvUy3oT8j17Zw/hW7M/J9LOMbxUzrhtvBPcy3gw/vfgbsTRj/2a/q/ma
4Y8zS8i3m+Gng4XPkO9H/j3V+8j3oz+H9+4n34/6f7SV78e+FEwpP4D+Fryl
/IA478/yDONWAH6YeZ/9sAOo7/XrT5MfhJ6KIvZHgtDvW7ub/CDmcesU990O
wh+Fj2t/QmK6XfVlUvkh5PvQxX5YIXF+vm2iHjskzvP1zVGdTxjvS80i1idh
1C9nVX8Y79H0oT7yc+e7p7X+CPSMTyo/gvl+3NVPfgTzHwjo/RHsY18n55PX
gvp25z9Hfg63Xdb5tUDP8Wus126B/6/P0v61Yh4PNOj8W8EvOcj6rFx88t9O
8lsxnxP5Wn8U8YUp+l+iuX652W8riv377yP2147C7zfT+v7GUJ//HmKJ4f6O
PvV7TJx1iH5NvXYMfrhQoPfHcX7hCmKJw6/vzXA/rLiYdmWP38367Dj6vW8y
SX4CftlfrvUn4Ieao13kJ7AfN2+p/xKo/+pp3d82vOe7XuB+Sxv0rrTb6/4H
xMsFIQ==
         "]]}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{0., 117.}, {0, 2.3513243243243244`*^7}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"Confirmed Case\"", "\"Death (Death rate=0.37%)\""}, 
      "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                    ImageSize -> {10, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"False", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.84004204775644*^9, 3.840042081411048*^9}, {
   3.84004211494865*^9, 3.840042129222789*^9}, 3.842449604446578*^9, {
   3.842449674528041*^9, 3.842449681606596*^9}, {3.842449837599337*^9, 
   3.842449843818557*^9}, 3.842449942081242*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"cee31c64-fe24-4dc1-9470-30396366c62a"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{Full, Full},
WindowMargins->{{Automatic, -37}, {Automatic, 54}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"52a92cfd-ce4c-4ef0-8e1d-8593edb57516"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 168, 3, 67, "Subtitle",ExpressionUUID->"33916de9-416c-4c86-8146-e865aff2729d"],
Cell[CellGroupData[{
Cell[773, 29, 1438, 39, 142, "Input",ExpressionUUID->"7f71f65b-97dc-47c9-b9aa-91b7de3b4b64"],
Cell[2214, 70, 589, 9, 42, "Output",ExpressionUUID->"1ee36a72-470a-4d0f-ae94-71e1abdad05c"]
}, Open  ]],
Cell[2818, 82, 3412, 85, 137, "Input",ExpressionUUID->"b1943374-1b46-4442-b0de-8339c3ba8f9c"],
Cell[CellGroupData[{
Cell[6255, 171, 352, 8, 57, "Input",ExpressionUUID->"d5c61d97-4ca6-4151-98fc-40d5601524ad"],
Cell[6610, 181, 2848, 62, 286, "Output",ExpressionUUID->"2ffc18cc-dd30-400f-886c-8a18b5724f28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9495, 248, 1712, 48, 145, "Input",ExpressionUUID->"41985b98-4e23-4639-8ecb-4d38342b98e1"],
Cell[11210, 298, 1838, 46, 308, "Output",ExpressionUUID->"f9b1d27d-732f-4ba5-a583-a7c077e93279"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13085, 349, 576, 14, 57, "Input",ExpressionUUID->"2dd86c2a-465f-4242-9c1e-f2e3dd9a24e1"],
Cell[13664, 365, 14651, 303, 288, "Output",ExpressionUUID->"cee31c64-fe24-4dc1-9470-30396366c62a"]
}, Open  ]]
}, Open  ]]
}
]
*)