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

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

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      8323,        232]
NotebookOptionsPosition[      6971,        197]
NotebookOutlinePosition[      7400,        214]
CellTagsIndexPosition[      7357,        211]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Label:", "Subsubsection",
 CellChangeTimes->{{3.862652708976969*^9, 
  3.8626527107941256`*^9}},ExpressionUUID->"e7469cc4-bea4-4b65-ba46-\
2185078c9721"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<Anti Vaxxination\>\"", "->", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Pro Vaccination\>\"", "->", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<Neutral\>\"", "->", "3"}], "}"}]}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.862652740928854*^9, 3.8626527540811396`*^9}, {
  3.8626532459561048`*^9, 3.8626532534179935`*^9}, {3.862653325782469*^9, 
  3.862653328771179*^9}, {3.8626533731640687`*^9, 3.862653373794326*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"0acc5a18-f8c4-445c-9144-e5e4e4e95840"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\<\"Anti Vaxxination\"\>", "\[Rule]", "1"}]},
    {
     RowBox[{"\<\"Pro Vaccination\"\>", "\[Rule]", "2"}]},
    {
     RowBox[{"\<\"Neutral\"\>", "\[Rule]", "3"}]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Right}}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8626527329335303`*^9, 3.8626527544811883`*^9}, 
   3.8626532538218946`*^9, 3.862653329173007*^9, 3.8626533741557784`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"ecf91b37-e648-426b-a031-ab45a808e11b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Subcategories:", "Subsubsection",
 CellChangeTimes->{{3.86265275639952*^9, 
  3.8626527635753465`*^9}},ExpressionUUID->"e7e27090-cf30-4658-bd3a-\
92acc166adba"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", "#1", "}"}], "&"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\"\<Anti Vaxxination\>\"", "\[Rule]", "1"}], ",", 
       RowBox[{"\"\<Pro Vaccination\>\"", "\[Rule]", "2"}], ",", 
       RowBox[{"\"\<Neutral, AltHealth\>\"", "\[Rule]", "3"}], ",", 
       RowBox[{"\"\<Neutral, Illness\>\"", "\[Rule]", "4"}], ",", 
       RowBox[{"\"\<Neutral, Movement\>\"", "\[Rule]", "5"}], ",", 
       RowBox[{"\"\<Neutral, Pet\>\"", "\[Rule]", "6"}], ",", 
       RowBox[{"\"\<Neutral, Parent\>\"", "\[Rule]", "7"}], ",", 
       RowBox[{"\"\<Neutral, Health\>\"", "\[Rule]", "8"}], ",", 
       RowBox[{"\"\<Neutral, X\>\"", "\[Rule]", "9"}], ",", 
       RowBox[{"\"\<Neutral, Organic\>\"", "\[Rule]", "10"}], ",", 
       RowBox[{"\"\<Neutral, Conspiracy\>\"", "\[Rule]", "11"}], ",", 
       RowBox[{"\"\<Neutral, GMO\>\"", "\[Rule]", "12"}], ",", 
       RowBox[{"\"\<Neutral, Other\>\"", "\[Rule]", "13"}], ",", 
       RowBox[{"\"\<Neutral, Organization\>\"", "\[Rule]", "14"}]}], "}"}]}], 
    "]"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8626527871872625`*^9, 3.862652821338521*^9}, {
  3.862653257336224*^9, 3.8626532646563497`*^9}, {3.862653334641753*^9, 
  3.862653366488923*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"775aba4a-0994-4489-bead-af5a5e634677"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\<\"Anti Vaxxination\"\>", "\[Rule]", "1"}]},
    {
     RowBox[{"\<\"Pro Vaccination\"\>", "\[Rule]", "2"}]},
    {
     RowBox[{"\<\"Neutral, AltHealth\"\>", "\[Rule]", "3"}]},
    {
     RowBox[{"\<\"Neutral, Illness\"\>", "\[Rule]", "4"}]},
    {
     RowBox[{"\<\"Neutral, Movement\"\>", "\[Rule]", "5"}]},
    {
     RowBox[{"\<\"Neutral, Pet\"\>", "\[Rule]", "6"}]},
    {
     RowBox[{"\<\"Neutral, Parent\"\>", "\[Rule]", "7"}]},
    {
     RowBox[{"\<\"Neutral, Health\"\>", "\[Rule]", "8"}]},
    {
     RowBox[{"\<\"Neutral, X\"\>", "\[Rule]", "9"}]},
    {
     RowBox[{"\<\"Neutral, Organic\"\>", "\[Rule]", "10"}]},
    {
     RowBox[{"\<\"Neutral, Conspiracy\"\>", "\[Rule]", "11"}]},
    {
     RowBox[{"\<\"Neutral, GMO\"\>", "\[Rule]", "12"}]},
    {
     RowBox[{"\<\"Neutral, Other\"\>", "\[Rule]", "13"}]},
    {
     RowBox[{"\<\"Neutral, Organization\"\>", "\[Rule]", "14"}]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Right}}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8626527895003033`*^9, 3.862652821699604*^9}, 
   3.8626532651403227`*^9, 3.862653336614395*^9, 3.862653366972266*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"ec9667c2-6c50-434e-ad6f-37a8dd85855c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Online/Banner:", "Subsubsection",
 CellChangeTimes->{{3.8626531747532663`*^9, 
  3.862653185413366*^9}},ExpressionUUID->"996892f6-97c2-40b3-aa77-\
2afe388b2e66"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\"\<online\>\"", "->", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<removed\>\"", "->", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"\"\<self-removed\>\"", "->", "2"}], "}"}]}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"Alignment", "\[Rule]", "Right"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8626531883905244`*^9, 3.8626532115714173`*^9}, {
  3.862653268615045*^9, 3.862653273983045*^9}, {3.862653340231392*^9, 
  3.862653412738212*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"1fb479d1-a3d1-4967-a93c-2510800948c3"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{"\<\"online\"\>", "\[Rule]", "0"}]},
    {
     RowBox[{"\<\"removed\"\>", "\[Rule]", "1"}]},
    {
     RowBox[{"\<\"self-removed\"\>", "\[Rule]", "2"}]}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Right}}},
   GridBoxFrame->{"ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> True}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.862653212073637*^9, 3.862653274359131*^9, {3.8626533419339037`*^9, 
   3.8626533636950254`*^9}, 3.8626534130408764`*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"b12a96c3-a04f-4f56-ad64-ab6212fb86a8"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1950, 2018},
WindowMargins->{{704, Automatic}, {Automatic, 0}},
Magnification:>1.25 Inherited,
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"4452189f-e4a6-4cc3-a93f-89cd9a17cf40"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 159, 3, 56, "Subsubsection",ExpressionUUID->"e7469cc4-bea4-4b65-ba46-2185078c9721"],
Cell[CellGroupData[{
Cell[764, 29, 746, 16, 37, "Input",ExpressionUUID->"0acc5a18-f8c4-445c-9144-e5e4e4e95840"],
Cell[1513, 47, 683, 16, 93, "Output",ExpressionUUID->"ecf91b37-e648-426b-a031-ab45a808e11b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[2245, 69, 166, 3, 56, "Subsubsection",ExpressionUUID->"e7e27090-cf30-4658-bd3a-92acc166adba"],
Cell[CellGroupData[{
Cell[2436, 76, 1494, 29, 90, "Input",ExpressionUUID->"775aba4a-0994-4489-bead-af5a5e634677"],
Cell[3933, 107, 1412, 38, 347, "Output",ExpressionUUID->"ec9667c2-6c50-434e-ad6f-37a8dd85855c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5394, 151, 167, 3, 56, "Subsubsection",ExpressionUUID->"996892f6-97c2-40b3-aa77-2afe388b2e66"],
Cell[CellGroupData[{
Cell[5586, 158, 683, 16, 37, "Input",ExpressionUUID->"1fb479d1-a3d1-4967-a93c-2510800948c3"],
Cell[6272, 176, 671, 17, 93, "Output",ExpressionUUID->"b12a96c3-a04f-4f56-ad64-ab6212fb86a8"]
}, Open  ]]
}, Open  ]]
}
]
*)