(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 45738, 1094] NotebookOptionsPosition[ 43628, 1034] NotebookOutlinePosition[ 44255, 1057] CellTagsIndexPosition[ 44212, 1054] WindowTitle->Examples for Love and Mr. Lewisham WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"a65bb3f8-1c25-44df-9885-b8e1e1d93351"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}},ExpressionUUID->"5f195287-ddb2-49e9-9836-\ 99fedf04cece"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"bc9e7370-3368-47a5-845d-\ d91d2b793b13"], Cell[BoxData[ InterpretationBox[ RowBox[{ TagBox["ResourceObject", "SummaryHead"], "[", DynamicModuleBox[{Typeset`open$$ = False}, PanelBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquarePlusIconMedium"], ImageSizeCache->{12., {0., 12.}}], Appearance->None, ButtonFunction:>(Typeset`open$$ = True), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Love and Mr. Lewisham\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for H. G. Wells' \\\"Love and Mr. Lewisham\ \\\"\"\>", "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], True-> GridBox[{ { PaneBox[ ButtonBox[ DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "SquareMinusIconMedium"]], Appearance->None, ButtonFunction:>(Typeset`open$$ = False), Evaluator->Automatic, Method->"Preemptive"], Alignment->{Center, Center}, ImageSize-> Dynamic[{ Automatic, (3.5 CurrentValue["FontCapHeight"])/ AbsoluteCurrentValue[Magnification]}]], GraphicsBox[ {Thickness[0.011111111111111112`], {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{3.789, 7.266}, {86.20700000000001, 7.266}, {86.20700000000001, 3.266}, { 3.789, 3.266}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{14.129, 54.07}, {19.878999999999998`, 54.07}, {19.878999999999998`, 15.57}, {14.129, 15.57}}}]}, {FaceForm[{RGBColor[0.274612, 0.618881, 0.810913], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{24.129, 41.82}, {29.879, 41.82}, {29.879, 15.57}, {24.129, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 33.160000000000004`, 54.07}, {38.910000000000004`, 54.07}, { 38.910000000000004`, 15.57}, {33.160000000000004`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{42.191, 31.781}, {47.941, 31.781}, {47.941, 15.569999999999997`}, { 42.191, 15.569999999999997`}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 51.223000000000006`, 46.875}, {56.973000000000006`, 46.875}, { 56.973000000000006`, 15.57}, {51.223000000000006`, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{60.254, 37.707}, {66.00399999999999, 37.707}, {66.00399999999999, 15.569999999999997`}, {60.254, 15.569999999999997`}}}]}, {FaceForm[{RGBColor[0.648987, 0.648987, 0.648987], Opacity[1.]}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 70.12899999999999, 54.07}, {75.87899999999999, 54.07}, { 75.87899999999999, 15.57}, {70.12899999999999, 15.57}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 9.879000000000001, 60.547}, {24.129, 60.547}, {24.129, 56.547}, { 9.879000000000001, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{9.871, 13.097999999999999`}, {80.121, 13.097999999999999`}, {80.121, 9.097999999999999}, {9.871, 9.097999999999999}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 65.87899999999999, 60.547}, {80.12899999999999, 60.547}, { 80.12899999999999, 56.547}, {65.87899999999999, 56.547}}}], FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}}, {{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{11.469000000000001`, 66.54700000000001}, {45., 82.418}, {78.398, 66.54700000000001}}, {{45., 86.73400000000001}, { 2.2230000000000003`, 66.54700000000001}, {2.2230000000000003`, 62.547}, {87.777, 62.547}, {87.777, 66.54700000000001}}}]}}, AspectRatio->1, Axes->False, Background->None, Frame->None, FrameTicks->None, ImageSize->{Automatic, Dynamic[(3.5 CurrentValue["FontCapHeight"])/AbsoluteCurrentValue[ Magnification], ImageSizeCache -> {45., {0., 9.}}]}], GridBox[{ { RowBox[{ TagBox["\<\"Name: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Love and Mr. Lewisham\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for H. G. Wells' \\\"Love and Mr. Lewisham\ \\\"\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Textual Data\"","\"Literature\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Text\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"text\"","\"novel\"","\"fiction\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{DataResource`Private`typesetstorage$$ = DataResource`Private`typesetstorageLocation, DataResource`Private`info$$}, DynamicBox[ToBoxes[ DataResource`Private`info$$ = DataResource`Private`resourceInfo[ "8d72f13a-6518-4def-8919-00a6040c0e29"]; If[ AssociationQ[DataResource`Private`info$$], DataResource`Private`typesetstorage$$[ Lookup[ DataResource`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues:>{}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"UUID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"8d72f13a-6518-4def-8919-00a6040c0e29\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"377.736`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Plaintext\""}, "RowWithSeparators"], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[ "Name" -> "Love and Mr. Lewisham", "UUID" -> "8d72f13a-6518-4def-8919-00a6040c0e29", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for H. G. Wells' \"Love and Mr. Lewisham\"", "ContentSize" -> Quantity[377.736, "Kilobytes"], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.6836456523433104`*^9},ExpressionUUID->"7d1ffb2c-0483-44a9-bcd4-\ 5d71bc69dea3"] }, Open ]], Cell["View the data:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}},ExpressionUUID->"bbc4ac71-4523-4fc7-bd6f-\ 8c52343bb39f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "20", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.6836456683012543`*^9, 3.6836456726672163`*^9}, {3.702924038047682*^9, 3.702924045639189*^9}},ExpressionUUID->"f4fd7b59-5cd7-4d02-8aff-\ 6254e70bef5a"], Cell[BoxData["\<\"\\\"Did ever man have such a bother with himself as me?\\\" \ he asked vaguely\\nbut vehemently. \\\"It's self-indulgence does it--sitting \ down's the\\nbeginning of laziness.\\\"\"\>"], "Output", CellChangeTimes->{{3.683645654715928*^9, 3.68364567381071*^9}, { 3.702924040955699*^9, 3.702924046069503*^9}},ExpressionUUID->"857dc305-c809-4458-84bb-\ c1c5b96abcdc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"6432ae41-b5fb-43f7-b1c0-a981113e360e"], Cell["Generate a WordCloud:", "Text", CellChangeTimes->{{3.6830348500302467`*^9, 3.683034859734131*^9}, { 3.6833756137501287`*^9, 3.683375617260816*^9}, {3.7029240528768063`*^9, 3.702924055901417*^9}},ExpressionUUID->"27c91c7e-4359-47df-9cfe-\ b6c6217f3f39"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.683033945828113*^9, 3.683034015624926*^9}, { 3.6830348076341476`*^9, 3.6830348407195807`*^9}, 3.683035540973732*^9, { 3.683035579770043*^9, 3.683035601172921*^9}, 3.683645747076016*^9, { 3.7029240591408978`*^9, 3.702924063124504*^9}},ExpressionUUID->"ed0a5cf6-3c99-488d-8e75-\ 0c16ed9bc0a9"], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"LEWISHAM\"\>", StripOnInput->False, FontSize->Scaled[0.18953059315675333`], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.20648967551622419`], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {6.5, -52.5}, Center, Automatic], InsetBox[ StyleBox["\<\"things\"\>", StripOnInput->False, FontSize->Scaled[0.06773354712055338], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {8.5, 43.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Chaffery\"\>", StripOnInput->False, FontSize->Scaled[0.05478297513695744], FontColor->RGBColor[0.571589, 0.586483, 0.]], {-0.5, 62.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Lewisham's\"\>", StripOnInput->False, FontSize->Scaled[0.04399083181729415], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {-63.5, 37.5}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.06465007760064959], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {67.5, 39.5}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.07667560872827438], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {-0.5, 82.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Ethel\"\>", StripOnInput->False, FontSize->Scaled[0.06557511845662072], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-63.5, 53.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Suddenly\"\>", StripOnInput->False, FontSize->Scaled[0.042449097057342254`], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {-0.5, -83.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Heydinger\"\>", StripOnInput->False, FontSize->Scaled[0.03782389277748656], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {-80.5, -26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Smithers\"\>", StripOnInput->False, FontSize->Scaled[0.039365627537438455`], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {63.5, 58.5}, Center, Automatic], InsetBox[ StyleBox["\<\"face\"\>", StripOnInput->False, FontSize->Scaled[0.05755809770487085], FontColor->RGBColor[1, 0.75, 0]], {44.5, 77.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.06865858797652452], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {-74.5, -48.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Lagune\"\>", StripOnInput->False, FontSize->Scaled[0.041832403153361494`], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {-49.5, 78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.04830768914515947], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {87.5, -28.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.03782389277748656], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {54.5, -81.5}, Center, Automatic], InsetBox[ StyleBox["\<\"looked\"\>", StripOnInput->False, FontSize->Scaled[0.04214075010535188], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {-1.5, -99.5}, Center, Automatic], InsetBox[ StyleBox["\<\"eyes\"\>", StripOnInput->False, FontSize->Scaled[0.048616036097149845`], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {86.5, -42.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Kensington\"\>", StripOnInput->False, FontSize->Scaled[0.029498525073746312`], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {-58.5, -80.5}, Center, Automatic], InsetBox[ StyleBox["\<\"presently\"\>", StripOnInput->False, FontSize->Scaled[0.03196530068966935], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {11.5, 101.5}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.056016362944918956`], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {-82.5, -64.5}, Center, Automatic], InsetBox[ StyleBox["\<\"CHAPTER\"\>", StripOnInput->False, FontSize->Scaled[0.029498525073746312`], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-49.5, 92.5}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.045532566577246046`], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {-42.5, -97.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Dunkerley\"\>", StripOnInput->False, FontSize->Scaled[0.029498525073746312`], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {57.5, 89.5}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.0492327300011306], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {85.5, -58.5}, Center, Automatic], InsetBox[ StyleBox["\<\"mind\"\>", StripOnInput->False, FontSize->Scaled[0.04738264828918833], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {39.5, -99.5}, Center, Automatic], InsetBox[ StyleBox["\<\"suppose\"\>", StripOnInput->False, FontSize->Scaled[0.032581994593650104`], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {-12.5, 110.5}, Center, Automatic], InsetBox[ StyleBox["\<\"moment\"\>", StripOnInput->False, FontSize->Scaled[0.03659050496952504], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-0.5, -112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"people\"\>", StripOnInput->False, FontSize->Scaled[0.03659050496952504], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {84.5, 74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"turned\"\>", StripOnInput->False, FontSize->Scaled[0.03751554582549618], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {56.5, 102.5}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.047999342193169085`], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-108.5, -40.5}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.039982321441419215`], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-94.5, 73.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Looking\"\>", StripOnInput->False, FontSize->Scaled[0.03227364764165973], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {31.5, 114.5}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.04645760743321719], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {-54.5, 106.5}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.042449097057342254`], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-106.5, 50.5}, Center, Automatic], InsetBox[ StyleBox["\<\"began\"\>", StripOnInput->False, FontSize->Scaled[0.03628215801753466], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {113.5, 37.5}, Center, Automatic], InsetBox[ StyleBox["\<\"come\"\>", StripOnInput->False, FontSize->Scaled[0.04738264828918833], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {44.5, -112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"towards\"\>", StripOnInput->False, FontSize->Scaled[0.030423565929717452`], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {97.5, -73.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Miss\"\>", StripOnInput->False, FontSize->Scaled[0.0433741379133134], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {108.5, 52.5}, Center, Automatic], InsetBox[ StyleBox["\<\"passed\"\>", StripOnInput->False, FontSize->Scaled[0.03104025983369821], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {76.5, -94.5}, Center, Automatic], InsetBox[ StyleBox["\<\"stopped\"\>", StripOnInput->False, FontSize->Scaled[0.03011521897772707], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {-43.5, -114.5}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.03474042325758277], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-77.5, -90.5}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.039982321441419215`], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {122.5, -26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"London\"\>", StripOnInput->False, FontSize->Scaled[0.029498525073746312`], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-93.5, 84.5}, Center, Automatic], InsetBox[ StyleBox["\<\"asked\"\>", StripOnInput->False, FontSize->Scaled[0.03597381106554429], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {123.5, -39.5}, Center, Automatic], InsetBox[ StyleBox["\<\"certain\"\>", StripOnInput->False, FontSize->Scaled[0.029806872025736692`], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {-17.5, -24.5}, Center, Automatic], InsetBox[ StyleBox["\<\"School\"\>", StripOnInput->False, FontSize->Scaled[0.030423565929717452`], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {-56.5, 118.5}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.03535711716156352], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-79.5, -105.5}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.04584091352923643], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {114.5, -59.5}, Center, Automatic], InsetBox[ StyleBox["\<\"man\"\>", StripOnInput->False, FontSize->Scaled[0.04830768914515947], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {100.5, 88.5}, Center, Automatic], InsetBox[ StyleBox["\<\"white\"\>", StripOnInput->False, FontSize->Scaled[0.03350703544962125], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {-90.5, 96.5}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.033815382401611624`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {-101.5, -78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"world\"\>", StripOnInput->False, FontSize->Scaled[0.03227364764165973], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {-121.5, -54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"stood\"\>", StripOnInput->False, FontSize->Scaled[0.033815382401611624`], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {67.5, 115.5}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.03782389277748656], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {80.5, -108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"indeed\"\>", StripOnInput->False, FontSize->Scaled[0.03165695373767897], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {93.5, 100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"going\"\>", StripOnInput->False, FontSize->Scaled[0.032581994593650104`], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {120.5, 67.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.03011521897772707], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {-133.5, 36.5}, Center, Automatic], InsetBox[ StyleBox["\<\"really\"\>", StripOnInput->False, FontSize->Scaled[0.03196530068966935], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {109.5, -85.5}, Center, Automatic], InsetBox[ StyleBox["\<\"knew\"\>", StripOnInput->False, FontSize->Scaled[0.03289034154564049], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-88.5, 108.5}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.034432076305592384`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {-138.5, -26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"work\"\>", StripOnInput->False, FontSize->Scaled[0.03597381106554429], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-106.5, -91.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Mrs.\"\>", StripOnInput->False, FontSize->Scaled[0.03844058668146732], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {-127.5, 63.5}, Center, Automatic], InsetBox[ StyleBox["\<\"matter\"\>", StripOnInput->False, FontSize->Scaled[0.03104025983369821], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-79.5, -118.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Street\"\>", StripOnInput->False, FontSize->Scaled[0.031348606785688585`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {140.5, 47.5}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.03196530068966935], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {-140.5, -41.5}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.03196530068966935], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-131.5, -67.5}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.03597381106554429], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {107.5, -98.5}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.0387489336334577], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {-126.5, 78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.03844058668146732], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {94.5, 112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Love\"\>", StripOnInput->False, FontSize->Scaled[0.032581994593650104`], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-137.5, 48.5}, Center, Automatic], InsetBox[ StyleBox["\<\"right\"\>", StripOnInput->False, FontSize->Scaled[0.033815382401611624`], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {140.5, -53.5}, Center, Automatic], InsetBox[ StyleBox["\<\"course\"\>", StripOnInput->False, FontSize->Scaled[0.03196530068966935], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {83.5, -119.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Yes\"\>", StripOnInput->False, FontSize->Scaled[0.03813223972947694], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {129.5, -74.5}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.041215709249380734`], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-109.5, -103.5}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.030731912881707832`], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {131.5, 78.5}, Center, Automatic], InsetBox[ StyleBox["\<\"voice\"\>", StripOnInput->False, FontSize->Scaled[0.03165695373767897], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-120.5, 96.5}, Center, Automatic], InsetBox[ StyleBox["\<\"Life\"\>", StripOnInput->False, FontSize->Scaled[0.0387489336334577], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {152.5, -26.5}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.029806872025736692`], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {-116.5, 107.5}, Center, Automatic], InsetBox[ StyleBox["\<\"days\"\>", StripOnInput->False, FontSize->Scaled[0.03011521897772707], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {-134.5, -82.5}, Center, Automatic], InsetBox[ StyleBox["\<\"dear\"\>", StripOnInput->False, FontSize->Scaled[0.035048770209573143`], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {154.5, -38.5}, Center, Automatic], InsetBox[ StyleBox["\<\"room\"\>", StripOnInput->False, FontSize->Scaled[0.03659050496952504], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-111.5, -116.5}, Center, Automatic], InsetBox[ StyleBox["\<\"table\"\>", StripOnInput->False, FontSize->Scaled[0.03104025983369821], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {131.5, 89.5}, Center, Automatic], InsetBox[ StyleBox["\<\"book\"\>", StripOnInput->False, FontSize->Scaled[0.03165695373767897], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {123.5, 100.5}, Center, Automatic], InsetBox[ StyleBox["\<\"letter\"\>", StripOnInput->False, FontSize->Scaled[0.030423565929717452`], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {148.5, 58.5}, Center, Automatic], InsetBox[ StyleBox["\<\"paper\"\>", StripOnInput->False, FontSize->Scaled[0.029498525073746312`], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-151.5, -54.5}, Center, Automatic], InsetBox[ StyleBox["\<\"door\"\>", StripOnInput->False, FontSize->Scaled[0.03165695373767897], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {113.5, -113.5}, Center, Automatic], InsetBox[ StyleBox["\<\"read\"\>", StripOnInput->False, FontSize->Scaled[0.03196530068966935], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {41.5, -23.5}, Center, Automatic], InsetBox[ StyleBox["\<\"hard\"\>", StripOnInput->False, FontSize->Scaled[0.029806872025736692`], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {135.5, -87.5}, Center, Automatic], InsetBox[ StyleBox["\<\"end\"\>", StripOnInput->False, FontSize->Scaled[0.035048770209573143`], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {118.5, 112.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sort\"\>", StripOnInput->False, FontSize->Scaled[0.03535711716156352], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-133.5, -95.5}, Center, Automatic], InsetBox[ StyleBox["\<\"shall\"\>", StripOnInput->False, FontSize->Scaled[0.030731912881707832`], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {132.5, -99.5}, Center, Automatic], InsetBox[ StyleBox["\<\"light\"\>", StripOnInput->False, FontSize->Scaled[0.03011521897772707], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {-145.5, 0.5}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.0356654641135539], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-154.5, 60.5}, Center, Automatic], InsetBox[ StyleBox["\<\"look\"\>", StripOnInput->False, FontSize->Scaled[0.03165695373767897], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {153.5, -67.5}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.03474042325758277], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-143.5, 13.5}, Center, Automatic], InsetBox[ StyleBox["\<\"roses\"\>", StripOnInput->False, FontSize->Scaled[0.029806872025736692`], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {-3.5, 120.5}, Center, Automatic], InsetBox[ StyleBox["\<\"sat\"\>", StripOnInput->False, FontSize->Scaled[0.033815382401611624`], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {-84.5, 118.5}, Center, Automatic], InsetBox[ StyleBox["\<\"new\"\>", StripOnInput->False, FontSize->Scaled[0.03196530068966935], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-104.5, 119.5}, Center, Automatic], InsetBox[ StyleBox["\<\"tell\"\>", StripOnInput->False, FontSize->Scaled[0.031348606785688585`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {50.5, -4.5}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-170., 169.}, {-126., 126.}}]], "Output", CellChangeTimes->{{3.683645754032979*^9, 3.683645758653607*^9}, 3.7029240746111107`*^9},ExpressionUUID->"b93a8d32-8445-4b19-b757-\ ec38e5e536f0"] }, Open ]], Cell["Show the most frequently used adjectives:", "Text", CellChangeTimes->{{3.6833767760993433`*^9, 3.683376779650175*^9}, { 3.683392737528262*^9, 3.683392747535935*^9}},ExpressionUUID->"3039d985-b9c7-4966-a1e3-\ d8f91a3e0ae5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "]"}], ",", "20"}], "]"}]], "Input", CellChangeTimes->{{3.683288613378517*^9, 3.683288613382518*^9}, { 3.6832886994881277`*^9, 3.6832887138925676`*^9}, 3.6836457660688066`*^9},ExpressionUUID->"464c3667-9cac-47f4-9cb7-\ aa0e35576389"], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"little\"\>", "\[Rule]", "172"}], ",", RowBox[{"\<\"other\"\>", "\[Rule]", "68"}], ",", RowBox[{"\<\"young\"\>", "\[Rule]", "68"}], ",", RowBox[{"\<\"last\"\>", "\[Rule]", "61"}], ",", RowBox[{"\<\"first\"\>", "\[Rule]", "58"}], ",", RowBox[{"\<\"more\"\>", "\[Rule]", "46"}], ",", RowBox[{"\<\"white\"\>", "\[Rule]", "44"}], ",", RowBox[{"\<\"good\"\>", "\[Rule]", "44"}], ",", RowBox[{"\<\"new\"\>", "\[Rule]", "41"}], ",", RowBox[{"\<\"long\"\>", "\[Rule]", "40"}], ",", RowBox[{"\<\"such\"\>", "\[Rule]", "39"}], ",", RowBox[{"\<\"great\"\>", "\[Rule]", "38"}], ",", RowBox[{"\<\"own\"\>", "\[Rule]", "37"}], ",", RowBox[{"\<\"much\"\>", "\[Rule]", "34"}], ",", RowBox[{"\<\"full\"\>", "\[Rule]", "33"}], ",", RowBox[{"\<\"certain\"\>", "\[Rule]", "32"}], ",", RowBox[{"\<\"black\"\>", "\[Rule]", "30"}], ",", RowBox[{"\<\"old\"\>", "\[Rule]", "28"}], ",", RowBox[{"\<\"hard\"\>", "\[Rule]", "28"}], ",", RowBox[{"\<\"vague\"\>", "\[Rule]", "23"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.683645784898242*^9},ExpressionUUID->"56bf99d2-367f-4197-850c-\ db093b2ee692"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Love and Mr. Lewisham", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.1 for Linux x86 (64-bit) (April 18, 2017)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "CreateDataResourceStyleSheet.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[628, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "a65bb3f8-1c25-44df-9885-b8e1e1d93351"], Cell[722, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "5f195287-ddb2-49e9-9836-99fedf04cece"], Cell[CellGroupData[{ Cell[1019, 33, 281, 6, 70, "Input", "ExpressionUUID" -> \ "bc9e7370-3368-47a5-845d-d91d2b793b13"], Cell[1303, 41, 14346, 319, 70, "Output", "ExpressionUUID" -> \ "7d1ffb2c-0483-44a9-bcd4-5d71bc69dea3"] }, Open ]], Cell[15664, 363, 261, 4, 70, "Text", "ExpressionUUID" -> \ "bbc4ac71-4523-4fc7-bd6f-8c52343bb39f"], Cell[CellGroupData[{ Cell[15950, 371, 455, 10, 70, "Input", "ExpressionUUID" -> \ "f4fd7b59-5cd7-4d02-8aff-6254e70bef5a"], Cell[16408, 383, 389, 6, 70, "Output", "ExpressionUUID" -> \ "857dc305-c809-4458-84bb-c1c5b96abcdc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16846, 395, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "6432ae41-b5fb-43f7-b1c0-a981113e360e"], Cell[16939, 397, 264, 4, 70, "Text", "ExpressionUUID" -> \ "27c91c7e-4359-47df-9cfe-b6c6217f3f39"], Cell[CellGroupData[{ Cell[17228, 405, 502, 10, 70, "Input", "ExpressionUUID" -> \ "ed0a5cf6-3c99-488d-8e75-0c16ed9bc0a9"], Cell[17733, 417, 23862, 563, 70, "Output", "ExpressionUUID" -> \ "b93a8d32-8445-4b19-b757-ec38e5e536f0"] }, Open ]], Cell[41610, 983, 234, 4, 70, "Text", "ExpressionUUID" -> \ "3039d985-b9c7-4966-a1e3-d8f91a3e0ae5"], Cell[CellGroupData[{ Cell[41869, 991, 485, 11, 70, "Input", "ExpressionUUID" -> \ "464c3667-9cac-47f4-9cb7-aa0e35576389"], Cell[42357, 1004, 1243, 26, 70, "Output", "ExpressionUUID" -> \ "56bf99d2-367f-4197-850c-db093b2ee692"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)