(* 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[ 36173, 943] NotebookOptionsPosition[ 34068, 883] NotebookOutlinePosition[ 34691, 906] CellTagsIndexPosition[ 34648, 903] WindowTitle->Examples for Barchester Towers WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"e77477db-ada8-411d-ace1-9d67d9df4765"], 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->"152f1d5b-c693-4c38-bff6-\ 3ba1507ad7b4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}},ExpressionUUID->"0f258c70-e64a-4ce2-ab3d-\ 6ead1e2f6e0d"], 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["\<\"Barchester Towers\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Anthony Trollope's \\\"Barchester \ Towers\\\"\"\>", "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["\<\"Barchester Towers\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Plaintext for Anthony Trollope's \\\"Barchester \ Towers\\\"\"\>", "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[{ ",","\",\"","\"fiction\"","\"text\"","\"novel\"","\"book\""}, "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[ "98e205e5-9ad0-40de-98ba-117d11c43cb3"]; 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["\<\"98e205e5-9ad0-40de-98ba-117d11c43cb3\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"1092.968`","\"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" -> "Barchester Towers", "UUID" -> "98e205e5-9ad0-40de-98ba-117d11c43cb3", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Plaintext for Anthony Trollope's \"Barchester Towers\"", "ContentSize" -> Quantity[1092.968, "Kilobytes"], "ContentElements" -> {"Plaintext"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{ 3.6838947088965282`*^9},ExpressionUUID->"2bbbe6a9-58e5-41e9-8a79-\ e687c6a93c6e"] }, 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->"a076b6d2-a2a4-4710-9791-\ f58e42db3ed2"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{"ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "10", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.683894730889283*^9, 3.683894736620129*^9}, {3.702921598890628*^9, 3.702921602488605*^9}},ExpressionUUID->"142fc41f-e1ae-494e-9b50-\ 93ab5949f08d"], Cell[BoxData["\<\"In the latter days of July in the year 185--, a most \ important\\nquestion was for ten days hourly asked in the cathedral city \ of\\nBarchester, and answered every hour in various ways--Who was to be\\nthe \ new bishop?\"\>"], "Output", CellChangeTimes->{{3.683894710872284*^9, 3.683894757810655*^9}, 3.70292160361796*^9},ExpressionUUID->"51d04df7-47b8-418d-a595-\ 6410b39b02b8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"c0746614-aba8-410b-8298-d344f0f066e3"], Cell["Show the distribution of word lengths:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033641819641*^9}, { 3.683375609032626*^9, 3.6833756106526203`*^9}},ExpressionUUID->"f9419309-7705-4fe6-9b72-\ 18e689a83d17"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"words", "=", RowBox[{"TextWords", "[", RowBox[{"ResourceData", "[", "\"\\"", "]"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{ RowBox[{"(", RowBox[{"StringLength", "/@", "words"}], ")"}], ",", RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.6830333795804577`*^9, 3.683033425254339*^9}, { 3.6830334646198807`*^9, 3.6830335879807243`*^9}, {3.683033646860409*^9, 3.683033691272203*^9}, 3.683035619972542*^9, 3.6838949580055923`*^9},ExpressionUUID->"c89691c9-ccd6-4e94-a05d-\ 67f4d582c618"], Cell[BoxData[ GraphicsBox[{ {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.693], Thickness[Small]}], {}, {RGBColor[0.987148, 0.8073604000000001, 0.49470040000000004`], EdgeForm[{ Opacity[0.693], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1., 0}, {2., 5362}, "RoundingRadius" -> 0]}, ImageSizeCache->{{39.98538831064852, 52.03240370073837}, { 69.44209164587554, 89.44834744030634}}], StatusArea[#, 5362]& , TagBoxNote->"5362"], StyleBox["5362", {}, StripOnInput -> False]], Annotation[#, Style[5362, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{2., 0}, {3., 36695}, "RoundingRadius" -> 0]}, ImageSizeCache->{{51.53240370073837, 63.57941909082821}, {-44.54327068290108, 89.44834744030634}}], StatusArea[#, 36695]& , TagBoxNote->"36695"], StyleBox["36695", {}, StripOnInput -> False]], Annotation[#, Style[36695, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{3., 0}, {4., 51311}, "RoundingRadius" -> 0]}, ImageSizeCache->{{63.07941909082821, 75.12643448091806}, {-97.71437002855579, 89.44834744030634}}], StatusArea[#, 51311]& , TagBoxNote->"51311"], StyleBox["51311", {}, StripOnInput -> False]], Annotation[#, Style[51311, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{4., 0}, {5., 35937}, "RoundingRadius" -> 0]}, ImageSizeCache->{{74.62643448091806, 86.67344987100792}, {-41.78576566757498, 89.44834744030634}}], StatusArea[#, 35937]& , TagBoxNote->"35937"], StyleBox["35937", {}, StripOnInput -> False]], Annotation[#, Style[35937, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5., 0}, {6., 19190}, "RoundingRadius" -> 0]}, ImageSizeCache->{{86.17344987100792, 98.22046526109776}, { 19.137633397947695`, 89.44834744030634}}], StatusArea[#, 19190]& , TagBoxNote->"19190"], StyleBox["19190", {}, StripOnInput -> False]], Annotation[#, Style[19190, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {7., 15570}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.72046526109776, 109.76748065118761`}, { 32.30672067430717, 89.44834744030634}}], StatusArea[#, 15570]& , TagBoxNote->"15570"], StyleBox["15570", {}, StripOnInput -> False]], Annotation[#, Style[15570, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7., 0}, {8., 13370}, "RoundingRadius" -> 0]}, ImageSizeCache->{{109.26748065118761`, 121.31449604127747`}, { 40.310033383696904`, 89.44834744030634}}], StatusArea[#, 13370]& , TagBoxNote->"13370"], StyleBox["13370", {}, StripOnInput -> False]], Annotation[#, Style[13370, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{8., 0}, {9., 7714}, "RoundingRadius" -> 0]}, ImageSizeCache->{{120.81449604127747`, 132.86151143136732`}, { 60.885822785655236`, 89.44834744030634}}], StatusArea[#, 7714]& , TagBoxNote->"7714"], StyleBox["7714", {}, StripOnInput -> False]], Annotation[#, Style[7714, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{9., 0}, {10., 6018}, "RoundingRadius" -> 0]}, ImageSizeCache->{{132.36151143136732`, 144.40852682145717`}, { 67.05564931071206, 89.44834744030634}}], StatusArea[#, 6018]& , TagBoxNote->"6018"], StyleBox["6018", {}, StripOnInput -> False]], Annotation[#, Style[6018, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{10., 0}, {11., 4099}, "RoundingRadius" -> 0]}, ImageSizeCache->{{143.90852682145717`, 155.95554221154703`}, { 74.03672071494792, 89.44834744030634}}], StatusArea[#, 4099]& , TagBoxNote->"4099"], StyleBox["4099", {}, StripOnInput -> False]], Annotation[#, Style[4099, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{11., 0}, {12., 1590}, "RoundingRadius" -> 0]}, ImageSizeCache->{{155.45554221154703`, 167.50255760163685`}, { 83.16413507306558, 89.44834744030634}}], StatusArea[#, 1590]& , TagBoxNote->"1590"], StyleBox["1590", {}, StripOnInput -> False]], Annotation[#, Style[1590, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{12., 0}, {13., 1075}, "RoundingRadius" -> 0]}, ImageSizeCache->{{167.00255760163685`, 179.0495729917267}, { 85.03763782094545, 89.44834744030634}}], StatusArea[#, 1075]& , TagBoxNote->"1075"], StyleBox["1075", {}, StripOnInput -> False]], Annotation[#, Style[1075, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{13., 0}, {14., 473}, "RoundingRadius" -> 0]}, ImageSizeCache->{{178.5495729917267, 190.59658838181656`}, { 87.22763520778754, 89.44834744030634}}], StatusArea[#, 473]& , TagBoxNote->"473"], StyleBox["473", {}, StripOnInput -> False]], Annotation[#, Style[473, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{14., 0}, {15., 195}, "RoundingRadius" -> 0]}, ImageSizeCache->{{190.09658838181656`, 202.1436037719064}, { 88.23896290470134, 89.44834744030634}}], StatusArea[#, 195]& , TagBoxNote->"195"], StyleBox["195", {}, StripOnInput -> False]], Annotation[#, Style[195, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{15., 0}, {16., 81}, "RoundingRadius" -> 0]}, ImageSizeCache->{{201.6436037719064, 213.69061916199627`}, { 88.65368001782426, 89.44834744030634}}], StatusArea[#, 81]& , TagBoxNote->"81"], StyleBox["81", {}, StripOnInput -> False]], Annotation[#, Style[81, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{16., 0}, {17., 27}, "RoundingRadius" -> 0]}, ImageSizeCache->{{213.19061916199627`, 225.23763455208612`}, { 88.85012496614564, 89.44834744030634}}], StatusArea[#, 27]& , TagBoxNote->"27"], StyleBox["27", {}, StripOnInput -> False]], Annotation[#, Style[27, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{17., 0}, {18., 16}, "RoundingRadius" -> 0]}, ImageSizeCache->{{224.73763455208612`, 236.78464994217597`}, { 88.8901415296926, 89.44834744030634}}], StatusArea[#, 16]& , TagBoxNote->"16"], StyleBox["16", {}, StripOnInput -> False]], Annotation[#, Style[16, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{18., 0}, {19., 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{236.28464994217597`, 248.33166533226583`}, { 88.92288235441282, 89.44834744030634}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", {}, StripOnInput -> False]], Annotation[#, Style[7, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{19., 0}, {20., 4}, "RoundingRadius" -> 0]}, ImageSizeCache->{{247.83166533226583`, 259.8786807223557}, { 88.9337959626529, 89.44834744030634}}], StatusArea[#, 4]& , TagBoxNote->"4"], StyleBox["4", {}, StripOnInput -> False]], Annotation[#, Style[4, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{20., 0}, {21., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{259.3786807223557, 271.4256961124455}, { 88.94470957089298, 89.44834744030634}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{27., 0}, {28., 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{340.20778845298463`, 352.25480384307446`}, { 88.94470957089298, 89.44834744030634}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", {}, StripOnInput -> False]], Annotation[#, Style[1, {}], "Tooltip"]& ]}, {}, {}}, {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.45999999999999996`, 0}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{1., 28.}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6838949672356997`*^9},ExpressionUUID->"6a4ca88b-c52a-4db5-b462-\ cf8d0c6f13c0"] }, Open ]], Cell["Show the most frequently used adjectives:", "Text", CellChangeTimes->{{3.6833767760993433`*^9, 3.683376779650175*^9}, { 3.683392737528262*^9, 3.683392747535935*^9}},ExpressionUUID->"8214dcc2-9a40-4477-bee4-\ 809358b2fa47"], 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.683894973769834*^9},ExpressionUUID->"0cf40d13-ab83-4c21-9ea4-\ 0707c6dfaabd"], Cell[BoxData[ RowBox[{"\[LeftAssociation]", RowBox[{ RowBox[{"\<\"such\"\>", "\[Rule]", "437"}], ",", RowBox[{"\<\"own\"\>", "\[Rule]", "398"}], ",", RowBox[{"\<\"little\"\>", "\[Rule]", "290"}], ",", RowBox[{"\<\"much\"\>", "\[Rule]", "262"}], ",", RowBox[{"\<\"other\"\>", "\[Rule]", "256"}], ",", RowBox[{"\<\"good\"\>", "\[Rule]", "226"}], ",", RowBox[{"\<\"old\"\>", "\[Rule]", "219"}], ",", RowBox[{"\<\"great\"\>", "\[Rule]", "209"}], ",", RowBox[{"\<\"more\"\>", "\[Rule]", "170"}], ",", RowBox[{"\<\"new\"\>", "\[Rule]", "167"}], ",", RowBox[{"\<\"young\"\>", "\[Rule]", "152"}], ",", RowBox[{"\<\"last\"\>", "\[Rule]", "148"}], ",", RowBox[{"\<\"first\"\>", "\[Rule]", "120"}], ",", RowBox[{"\<\"same\"\>", "\[Rule]", "113"}], ",", RowBox[{"\<\"present\"\>", "\[Rule]", "110"}], ",", RowBox[{"\<\"many\"\>", "\[Rule]", "107"}], ",", RowBox[{"\<\"sure\"\>", "\[Rule]", "104"}], ",", RowBox[{"\<\"true\"\>", "\[Rule]", "101"}], ",", RowBox[{"\<\"poor\"\>", "\[Rule]", "96"}], ",", RowBox[{"\<\"best\"\>", "\[Rule]", "83"}]}], "\[RightAssociation]"}]], "Output", CellChangeTimes->{ 3.683895020195074*^9},ExpressionUUID->"8da705f7-2650-4ec2-8a8b-\ d89f2904c00e"] }, Open ]] }, Open ]] }, WindowSize->{775, 873}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Barchester Towers", 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[624, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "e77477db-ada8-411d-ace1-9d67d9df4765"], Cell[718, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "152f1d5b-c693-4c38-bff6-3ba1507ad7b4"], Cell[CellGroupData[{ Cell[1015, 33, 274, 5, 70, "Input", "ExpressionUUID" -> \ "0f258c70-e64a-4ce2-ab3d-6ead1e2f6e0d"], Cell[1292, 40, 14375, 321, 70, "Output", "ExpressionUUID" -> \ "2bbbe6a9-58e5-41e9-8a79-e687c6a93c6e"] }, Open ]], Cell[15682, 364, 261, 4, 70, "Text", "ExpressionUUID" -> \ "a076b6d2-a2a4-4710-9791-f58e42db3ed2"], Cell[CellGroupData[{ Cell[15968, 372, 447, 10, 70, "Input", "ExpressionUUID" -> \ "142fc41f-e1ae-494e-9b50-93ab5949f08d"], Cell[16418, 384, 404, 6, 70, "Output", "ExpressionUUID" -> \ "51d04df7-47b8-418d-a595-6410b39b02b8"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[16871, 396, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "c0746614-aba8-410b-8298-d344f0f066e3"], Cell[16964, 398, 231, 4, 70, "Text", "ExpressionUUID" -> \ "f9419309-7705-4fe6-9b72-18e689a83d17"], Cell[CellGroupData[{ Cell[17220, 406, 722, 17, 70, "Input", "ExpressionUUID" -> \ "c89691c9-ccd6-4e94-a05d-67f4d582c618"], Cell[17945, 425, 14082, 404, 70, "Output", "ExpressionUUID" -> \ "6a4ca88b-c52a-4db5-b462-cf8d0c6f13c0"] }, Open ]], Cell[32042, 832, 234, 4, 70, "Text", "ExpressionUUID" -> \ "8214dcc2-9a40-4477-bee4-809358b2fa47"], Cell[CellGroupData[{ Cell[32301, 840, 479, 11, 70, "Input", "ExpressionUUID" -> \ "0cf40d13-ab83-4c21-9ea4-0707c6dfaabd"], Cell[32783, 853, 1257, 26, 70, "Output", "ExpressionUUID" -> \ "8da705f7-2650-4ec2-8a8b-d89f2904c00e"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)