(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 64429, 1605] NotebookOptionsPosition[ 62776, 1564] NotebookOutlinePosition[ 63370, 1587] CellTagsIndexPosition[ 63327, 1584] WindowTitle->Examples for Narrative of the Life of Frederick Douglass WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["View the text:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.886239873898384*^9, 3.8862398744565067`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"TextCases", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "[", RowBox[{"[", "75", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, { 3.683388462306378*^9, 3.68338846814153*^9}, {3.701442802758122*^9, 3.701442812444778*^9}, {3.7029090085737877`*^9, 3.702909017914214*^9}}], Cell[BoxData["\<\"As to my own treatment while I lived on Colonel Lloyd's \ plantation,\\nit was very similar to that of the other slave children. I was \ not old\\nenough to work in the field, and there being little else than field \ work\\nto do, I had a great deal of leisure time. The most I had to do was to\ \\ndrive up the cows at evening, keep the fowls out of the garden, keep \ the\\nfront yard clean, and run of errands for my old master's daughter, Mrs.\ \\nLucretia Auld. The most of my leisure time I spent in helping \ Master\\nDaniel Lloyd in finding his birds, after he had shot them. My \ connection\\nwith Master Daniel was of some advantage to me. He became quite \ attached\\nto me, and was a sort of protector of me. He would not allow the \ older\\nboys to impose upon me, and would divide his cakes with me.\"\>"], \ "Output", CellChangeTimes->{{3.683388447786314*^9, 3.68338847737852*^9}, { 3.701442809738209*^9, 3.70144281397077*^9}, {3.702909009801402*^9, 3.702909018628295*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Generate a WordCloud:", "Text", CellChangeTimes->{{3.6830371504385557`*^9, 3.683037161221654*^9}, { 3.683309174985358*^9, 3.6833091789207516`*^9}, {3.701442599248468*^9, 3.7014426025433817`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"WordCloud", "[", RowBox[{"DeleteStopwords", "[", RowBox[{ "ResourceData", "[", "\"\\"", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{3.701442828958231*^9}], Cell[BoxData[ GraphicsBox[{InsetBox[ StyleBox["\<\"slave\"\>", StripOnInput->False, FontSize->Scaled[0.1773329289252856], FontColor->RGBColor[0.880722, 0.611041, 0.142051]], {0, 0}, Center, Automatic], InsetBox[ StyleBox["\<\"master\"\>", StripOnInput->False, FontSize->Scaled[0.15792134263471844`], FontColor->RGBColor[0.560181, 0.691569, 0.194885]], {7., -36.}, Center, Automatic], InsetBox[ StyleBox["\<\"slaves\"\>", StripOnInput->False, FontSize->Scaled[0.156708118491558], FontColor->RGBColor[0.922526, 0.385626, 0.209179]], {4., 42.}, Center, Automatic], InsetBox[ StyleBox["\<\"Mr.\"\>", StripOnInput->False, FontSize->Scaled[0.2222222222222222], FontColor->RGBColor[0.368417, 0.506779, 0.709798]], {16., 78.}, Center, Automatic], InsetBox[ StyleBox["\<\"time\"\>", StripOnInput->False, FontSize->Scaled[0.15306844606207665`], FontColor->RGBColor[0.528488, 0.470624, 0.701351]], {-1., -76.}, Center, Automatic], InsetBox[ StyleBox["\<\"slavery\"\>", StripOnInput->False, FontSize->Scaled[0.10696592862197957`], FontColor->RGBColor[0.363898, 0.618501, 0.782349]], {-15., -104.}, Center, Automatic], InsetBox[ StyleBox["\<\"MAN\"\>", StripOnInput->False, FontSize->Scaled[0.11909817005358407`], FontColor->RGBColor[0.772079, 0.431554, 0.102387]], {-73., 77.}, Center, Automatic], InsetBox[ StyleBox["\<\"Covey\"\>", StripOnInput->False, FontSize->Scaled[0.08148822161561015], FontColor->RGBColor[1, 0.75, 0]], {-85., -61.}, Center, Automatic], InsetBox[ StyleBox["\<\"SLAVEHOLDERS\"\>", StripOnInput->False, FontSize->Scaled[0.04266504903447579], FontColor->RGBColor[0.5019668524892619, 0.46131988850644284`, 0.85]], {-1., 117.}, Center, Automatic], InsetBox[ StyleBox["\<\"Baltimore\"\>", StripOnInput->False, FontSize->Scaled[0.06086341118188252], FontColor->RGBColor[ 0.28240003484173815`, 0.6090799721266095, 0.7538800418100857]], {86., -64.}, Center, Automatic], InsetBox[ StyleBox["\<\"Colonel\"\>", StripOnInput->False, FontSize->Scaled[0.05965018703872207], FontColor->RGBColor[ 0.6753413537738198, 0.3589675436319385, 0.5991466155654507]], {-97., 2.}, Center, Automatic], InsetBox[ StyleBox["\<\"plantation\"\>", StripOnInput->False, FontSize->Scaled[0.05115761803659893], FontColor->RGBColor[ 0.8878600487784333, 0.33792799024431336`, 0.2577332520359445]], {-98., 20.}, Center, Automatic], InsetBox[ StyleBox["\<\"found\"\>", StripOnInput->False, FontSize->Scaled[0.06450308361136387], FontColor->RGBColor[ 0.5833680111493557, 0.4126186601628758, 0.8290799721266107]], {90., 12.}, Center, Automatic], InsetBox[ StyleBox["\<\"work\"\>", StripOnInput->False, FontSize->Scaled[0.06935598018400566], FontColor->RGBColor[0.736782672705901, 0.358, 0.5030266573755369]], {91., -9.}, Center, Automatic], InsetBox[ StyleBox["\<\"New\"\>", StripOnInput->False, FontSize->Scaled[0.07542210089980791], FontColor->RGBColor[0.915, 0.3325, 0.2125]], {-92., -19.}, Center, Automatic], InsetBox[ StyleBox["\<\"make\"\>", StripOnInput->False, FontSize->Scaled[0.06571630775452432], FontColor->RGBColor[ 0.838355547812947, 0.44746667828057946`, 0.0208888695323676]], {-94., 37.}, Center, Automatic], InsetBox[ StyleBox["\<\"said\"\>", StripOnInput->False, FontSize->Scaled[0.07663532504296836], FontColor->RGBColor[0.571589, 0.586483, 0.]], {98., 32.}, Center, Automatic], InsetBox[ StyleBox["\<\"went\"\>", StripOnInput->False, FontSize->Scaled[0.07056920432716611], FontColor->RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]], {66., 77.}, Center, Automatic], InsetBox[ StyleBox["\<\"great\"\>", StripOnInput->False, FontSize->Scaled[0.06328985946820341], FontColor->RGBColor[0.8996399512215667, 0.7463488834690629, 0.]], {69., -81.}, Center, Automatic], InsetBox[ StyleBox["\<\"white\"\>", StripOnInput->False, FontSize->Scaled[0.06086341118188252], FontColor->RGBColor[ 0.9324333565611593, 0.5282889043741062, 0.0921900209050434]], {101., -41.}, Center, Automatic], InsetBox[ StyleBox["\<\"hands\"\>", StripOnInput->False, FontSize->Scaled[0.05722373875240117], FontColor->RGBColor[0.7748409210981391, 0.358, 0.4444755060028629]], {-95., -38.}, Center, Automatic], InsetBox[ StyleBox["\<\"little\"\>", StripOnInput->False, FontSize->Scaled[0.06935598018400566], FontColor->RGBColor[ 0.9728288904374106, 0.621644452187053, 0.07336199581899142]], {93., 53.}, Center, Automatic], InsetBox[ StyleBox["\<\"thought\"\>", StripOnInput->False, FontSize->Scaled[0.047517945607117584`], FontColor->RGBColor[ 0.9052934053395919, 0.510195603559728, 0.06776406480563275]], {-79., -85.}, Center, Automatic], InsetBox[ StyleBox["\<\"home\"\>", StripOnInput->False, FontSize->Scaled[0.05843696289556162], FontColor->RGBColor[0.47401116530937026`, 0.47809330081437784`, 0.85]], {-96., 55.}, Center, Automatic], InsetBox[ StyleBox["\<\"freedom\"\>", StripOnInput->False, FontSize->Scaled[0.043878273177636234`], FontColor->RGBColor[0.8493197142977551, 0.7407577460330839, 0.]], {-63., 102.}, Center, Automatic], InsetBox[ StyleBox["\<\"gave\"\>", StripOnInput->False, FontSize->Scaled[0.05965018703872207], FontColor->RGBColor[0.5407932311309059, 0.715, 0.09762679674248334]], {61., -101.}, Center, Automatic], InsetBox[ StyleBox["\<\"old\"\>", StripOnInput->False, FontSize->Scaled[0.08148822161561015], FontColor->RGBColor[0.647624, 0.37816, 0.614037]], {68., 96.}, Center, Automatic], InsetBox[ StyleBox["\<\"Come\"\>", StripOnInput->False, FontSize->Scaled[0.05358406632291983], FontColor->RGBColor[ 0.6184987019729621, 0.39212575718243875`, 0.7412532450675947]], {-4., -126.}, Center, Automatic], InsetBox[ StyleBox["\<\"children\"\>", StripOnInput->False, FontSize->Scaled[0.04630472146395714], FontColor->RGBColor[0.6361597700445392, 0.7170733077827265, 0.]], {59., -122.}, Center, Automatic], InsetBox[ StyleBox["\<\"called\"\>", StripOnInput->False, FontSize->Scaled[0.05237084217975938], FontColor->RGBColor[0.7678998606330495, 0.7317110956258943, 0.]], {114., 73.}, Center, Automatic], InsetBox[ StyleBox["\<\"day\"\>", StripOnInput->False, FontSize->Scaled[0.06571630775452432], FontColor->RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]], {-88., -104.}, Center, Automatic], InsetBox[ StyleBox["\<\"condition\"\>", StripOnInput->False, FontSize->Scaled[0.03902537660499444], FontColor->RGBColor[0.38354466123747527`, 0.5323732032575149, 0.85]], {-54., -124.}, Center, Automatic], InsetBox[ StyleBox["\<\"house\"\>", StripOnInput->False, FontSize->Scaled[0.04994439389343848], FontColor->RGBColor[0.37977756485605163`, 0.715, 0.3025558265468435]], {77., 116.}, Center, Automatic], InsetBox[ StyleBox["\<\"came\"\>", StripOnInput->False, FontSize->Scaled[0.06207663532504297], FontColor->RGBColor[ 0.8439466852489265, 0.3467106629502147, 0.3309221912517893]], {-81., 119.}, Center, Automatic], InsetBox[ StyleBox["\<\"slaveholder\"\>", StripOnInput->False, FontSize->Scaled[0.034172480032352646`], FontColor->RGBColor[ 0.3383114092015346, 0.5643508726387724, 0.8209736910418415]], {79., 130.}, Center, Automatic], InsetBox[ StyleBox["\<\"years\"\>", StripOnInput->False, FontSize->Scaled[0.04630472146395714], FontColor->RGBColor[ 0.9038177251280404, 0.3492734123079395, 0.18454431282010084`]], {114., -79.}, Center, Automatic], InsetBox[ StyleBox["\<\"thing\"\>", StripOnInput->False, FontSize->Scaled[0.04994439389343848], FontColor->RGBColor[ 0.8564488486273256, 0.42032672705901153`, 0.06612212156831418]], {102., -98.}, Center, Automatic], InsetBox[ StyleBox["\<\"good\"\>", StripOnInput->False, FontSize->Scaled[0.04994439389343848], FontColor->RGBColor[ 0.9637822400302223, 0.5764112001511111, 0.0977879519184]], {110., 90.}, Center, Automatic], InsetBox[ StyleBox["\<\"colored\"\>", StripOnInput->False, FontSize->Scaled[0.04266504903447579], FontColor->RGBColor[0.47929071933511125`, 0.715, 0.1759027208462221]], {110., -114.}, Center, Automatic], InsetBox[ StyleBox["\<\"place\"\>", StripOnInput->False, FontSize->Scaled[0.047517945607117584`], FontColor->RGBColor[ 0.8168067340273636, 0.3521386531945273, 0.3761554432877274]], {-110., 102.}, Center, Automatic], InsetBox[ StyleBox["\<\"told\"\>", StripOnInput->False, FontSize->Scaled[0.05965018703872207], FontColor->RGBColor[ 0.8857244243136628, 0.3764133635295058, 0.1393110607841571]], {-99., -123.}, Center, Automatic], InsetBox[ StyleBox["\<\"death\"\>", StripOnInput->False, FontSize->Scaled[0.04509149732079668], FontColor->RGBColor[ 0.9784200278733908, 0.649600139366954, 0.058265924741844846`]], {-12., 131.}, Center, Automatic], InsetBox[ StyleBox["\<\"whipped\"\>", StripOnInput->False, FontSize->Scaled[0.034172480032352646`], FontColor->RGBColor[ 0.9603267270590103, 0.5591336352950514, 0.10711783694067224`]], {118., -23.}, Center, Automatic], InsetBox[ StyleBox["\<\"morning\"\>", StripOnInput->False, FontSize->Scaled[0.03659892831867354], FontColor->RGBColor[ 0.26512246998569167`, 0.6229020240114467, 0.73314696398283]], {16., -139.}, Center, Automatic], InsetBox[ StyleBox["\<\"Michael's\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[ 0.8064401951137368, 0.3542119609772526, 0.39343300814377197`]], {29., 139.}, Center, Automatic], InsetBox[ StyleBox["\<\"know\"\>", StripOnInput->False, FontSize->Scaled[0.043878273177636234`], FontColor->RGBColor[ 0.8607200975568693, 0.34335598048862614`, 0.30296650407188447`]], {-49., 132.}, Center, Automatic], InsetBox[ StyleBox["\<\"away\"\>", StripOnInput->False, FontSize->Scaled[0.04509149732079668], FontColor->RGBColor[0.428777913273419, 0.5052332520359486, 0.85]], {-26., -139.}, Center, Automatic], InsetBox[ StyleBox["\<\"Thomas\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[ 0.6453361616656581, 0.37647057236169945`, 0.6741595958358548]], {59., -136.}, Center, Automatic], InsetBox[ StyleBox["\<\"escape\"\>", StripOnInput->False, FontSize->Scaled[0.03659892831867354], FontColor->RGBColor[ 0.8335801463353031, 0.3487839707329394, 0.3481997561078282]], {-127., -77.}, Center, Automatic], InsetBox[ StyleBox["\<\"used\"\>", StripOnInput->False, FontSize->Scaled[0.043878273177636234`], FontColor->RGBColor[0.6897400905885174, 0.358, 0.5753998606330502]], {-130., 71.}, Center, Automatic], InsetBox[ StyleBox["\<\"long\"\>", StripOnInput->False, FontSize->Scaled[0.047517945607117584`], FontColor->RGBColor[0.9810598048862722, 0.7553955338762525, 0.]], {131., -4.}, Center, Automatic], InsetBox[ StyleBox["\<\"left\"\>", StripOnInput->False, FontSize->Scaled[0.05843696289556162], FontColor->RGBColor[ 0.9874666782805795, 0.6948333914028977, 0.033839968642435214`]], {130., 10.}, Center, Automatic], InsetBox[ StyleBox["\<\"lived\"\>", StripOnInput->False, FontSize->Scaled[0.04509149732079668], FontColor->RGBColor[ 0.8342400905885153, 0.4628267270590103, 0.0038160815296638794`]], {130., 50.}, Center, Automatic], InsetBox[ StyleBox["\<\"free\"\>", StripOnInput->False, FontSize->Scaled[0.04994439389343848], FontColor->RGBColor[ 0.35558897405758294`, 0.5505288207539337, 0.8417067688690995]], {-121., -92.}, Center, Automatic], InsetBox[ StyleBox["\<\"life\"\>", StripOnInput->False, FontSize->Scaled[0.05601051460924072], FontColor->RGBColor[ 0.8613800418100862, 0.48092002787339083`, 0.02824203762907758]], {-129., -17.}, Center, Automatic], InsetBox[ StyleBox["\<\"masters\"\>", StripOnInput->False, FontSize->Scaled[0.035385704175513094`], FontColor->RGBColor[0.7658565873730018, 0.358, 0.4582975578876895]], {-65., -137.}, Center, Automatic], InsetBox[ StyleBox["\<\"young\"\>", StripOnInput->False, FontSize->Scaled[0.03781215246183399], FontColor->RGBColor[0.9307395679624266, 0.7498043964402695, 0.]], {-84., 134.}, Center, Automatic], InsetBox[ StyleBox["\<\"week\"\>", StripOnInput->False, FontSize->Scaled[0.04023860074815489], FontColor->RGBColor[0.7175796237092107, 0.7261199581899123, 0.]], {103., 102.}, Center, Automatic], InsetBox[ StyleBox["\<\"took\"\>", StripOnInput->False, FontSize->Scaled[0.047517945607117584`], FontColor->RGBColor[ 0.6536293927965667, 0.37163285420200276`, 0.6534265180085832]], {103., -129.}, Center, Automatic], InsetBox[ StyleBox["\<\"read\"\>", StripOnInput->False, FontSize->Scaled[0.047517945607117584`], FontColor->RGBColor[ 0.23716678280579248`, 0.645266573755366, 0.699600139366951]], {119., 116.}, Center, Automatic], InsetBox[ StyleBox["\<\"blood\"\>", StripOnInput->False, FontSize->Scaled[0.04023860074815489], FontColor->RGBColor[ 0.19193353076984873`, 0.681453175384121, 0.6453202369238185]], {-129., -107.}, Center, Automatic], InsetBox[ StyleBox["\<\"getting\"\>", StripOnInput->False, FontSize->Scaled[0.035385704175513094`], FontColor->RGBColor[ 0.6670481226429111, 0.3638052617916352, 0.6198796933927223]], {-125., 117.}, Center, Automatic], InsetBox[ StyleBox["\<\"men\"\>", StripOnInput->False, FontSize->Scaled[0.05722373875240117], FontColor->RGBColor[ 0.16397784358994957`, 0.7038177251280403, 0.6117734123079395]], {-106., -138.}, Center, Automatic], InsetBox[ StyleBox["\<\"Lloyd's\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[0.529922539669161, 0.44454647619850335`, 0.85]], {-120., 131.}, Center, Automatic], InsetBox[ StyleBox["\<\"LLOYD\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[ 0.8633598745697435, 0.40996018814538476`, 0.08339968642435877]], {72., 140.}, Center, Automatic], InsetBox[ StyleBox["\<\"think\"\>", StripOnInput->False, FontSize->Scaled[0.04023860074815489], FontColor->RGBColor[ 0.6319174318193065, 0.38429816477207124`, 0.7077064204517338]], {125., 129.}, Center, Automatic], InsetBox[ StyleBox["\<\"large\"\>", StripOnInput->False, FontSize->Scaled[0.04145182489131533], FontColor->RGBColor[ 0.7896667828057927, 0.3575666434388414, 0.4213886953236787]], {136., 28.}, Center, Automatic], InsetBox[ StyleBox["\<\"got\"\>", StripOnInput->False, FontSize->Scaled[0.04994439389343848], FontColor->RGBColor[0.7132613816472081, 0.358, 0.5392132590042952]], {-133., -32.}, Center, Automatic], InsetBox[ StyleBox["\<\"Henry\"\>", StripOnInput->False, FontSize->Scaled[0.035385704175513094`], FontColor->RGBColor[0.4567336004533182, 0.4884598397280091, 0.85]], {-137., 36.}, Center, Automatic], InsetBox[ StyleBox["\<\"whip\"\>", StripOnInput->False, FontSize->Scaled[0.04023860074815489], FontColor->RGBColor[ 0.9046334610863751, 0.334573307782725, 0.22977756485604156`]], {-135., 49.}, Center, Automatic], InsetBox[ StyleBox["\<\"just\"\>", StripOnInput->False, FontSize->Scaled[0.04509149732079668], FontColor->RGBColor[0.7513196300394465, 0.358, 0.48066210763162087`]], {-143., 0.}, Center, Automatic], InsetBox[ StyleBox["\<\"night\"\>", StripOnInput->False, FontSize->Scaled[0.03902537660499444], FontColor->RGBColor[0.7277983389807635, 0.358, 0.5168487092603637]], {140., -36.}, Center, Automatic], InsetBox[ StyleBox["\<\"hand\"\>", StripOnInput->False, FontSize->Scaled[0.03902537660499444], FontColor->RGBColor[ 0.969373377466199, 0.6043668873309952, 0.08269188084126262]], {-137., -47.}, Center, Automatic], InsetBox[ StyleBox["\<\"way\"\>", StripOnInput->False, FontSize->Scaled[0.04509149732079668], FontColor->RGBColor[ 0.596786740995709, 0.404791067752503, 0.7955331475107271]], {-19., 146.}, Center, Automatic], InsetBox[ StyleBox["\<\"matter\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[ 0.9986489531525362, 0.7507447657626809, 0.0036478264881522893`]], {140., -51.}, Center, Automatic], InsetBox[ StyleBox["\<\"soon\"\>", StripOnInput->False, FontSize->Scaled[0.04873116975027803], FontColor->RGBColor[0.5472001045252132, 0.43417993728487203`, 0.85]], {-52., 147.}, Center, Automatic], InsetBox[ StyleBox["\<\"heart\"\>", StripOnInput->False, FontSize->Scaled[0.035385704175513094`], FontColor->RGBColor[ 0.8926354502560807, 0.366046824615879, 0.15658862564020168`]], {-138., -60.}, Center, Automatic], InsetBox[ StyleBox["\<\"name\"\>", StripOnInput->False, FontSize->Scaled[0.04266504903447579], FontColor->RGBColor[ 0.8745421494417032, 0.39318677583744527`, 0.11135537360425793`]], {8., -151.}, Center, Automatic], InsetBox[ StyleBox["\<\"year\"\>", StripOnInput->False, FontSize->Scaled[0.03781215246183399], FontColor->RGBColor[ 0.5750747800184488, 0.4174563783225715, 0.8498130499538777]], {141., -61.}, Center, Automatic], InsetBox[ StyleBox["\<\"Let\"\>", StripOnInput->False, FontSize->Scaled[0.043878273177636234`], FontColor->RGBColor[ 0.3103557220216354, 0.5867154223826917, 0.7874268664259625]], {131., -95.}, Center, Automatic], InsetBox[ StyleBox["\<\"like\"\>", StripOnInput->False, FontSize->Scaled[0.04509149732079668], FontColor->RGBColor[0.2187618985811806, 0.715, 0.5074848563512248]], {-131., 84.}, Center, Automatic], InsetBox[ StyleBox["\<\"times\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[0.6672593867853922, 0.7205288207539324, 0.]], {-38., -150.}, Center, Automatic], InsetBox[ StyleBox["\<\"quite\"\>", StripOnInput->False, FontSize->Scaled[0.034172480032352646`], FontColor->RGBColor[ 0.6102054708420535, 0.39696347534213544`, 0.7619863228948663]], {50., -148.}, Center, Automatic], InsetBox[ StyleBox["\<\"head\"\>", StripOnInput->False, FontSize->Scaled[0.035385704175513094`], FontColor->RGBColor[0.5788038738141875, 0.715, 0.049249615145579635`]], {-84., 144.}, Center, Automatic], InsetBox[ StyleBox["\<\"poor\"\>", StripOnInput->False, FontSize->Scaled[0.03659892831867354], FontColor->RGBColor[ 0.922066817647527, 0.5213778784316846, 0.08286013588277422]], {-67., -149.}, Center, Automatic], InsetBox[ StyleBox["\<\"say\"\>", StripOnInput->False, FontSize->Scaled[0.043878273177636234`], FontColor->RGBColor[ 0.9492067688690977, 0.5394711792460651, 0.10728609198218791`]], {77., -147.}, Center, Automatic], InsetBox[ StyleBox["\<\"knew\"\>", StripOnInput->False, FontSize->Scaled[0.034172480032352646`], FontColor->RGBColor[ 0.8510135028964549, 0.47400900193096995`, 0.018912152606809424`]], {28., 150.}, Center, Automatic], InsetBox[ StyleBox["\<\"field\"\>", StripOnInput->False, FontSize->Scaled[0.03781215246183399], FontColor->RGBColor[0.31827505306025683`, 0.715, 0.3808317506505822]], {143., 88.}, Center, Automatic], InsetBox[ StyleBox["\<\"course\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[0.7042770479220728, 0.358, 0.5530353108891188]], {61., 152.}, Center, Automatic], InsetBox[ StyleBox["\<\"mind\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[ 0.2198892179497479, 0.6590886256402017, 0.6788670615396974]], {-142., 98.}, Center, Automatic], InsetBox[ StyleBox["\<\"God\"\>", StripOnInput->False, FontSize->Scaled[0.03781215246183399], FontColor->RGBColor[ 0.845266573755366, 0.437100139366951, 0.03816643438841502]], {143., 101.}, Center, Automatic], InsetBox[ StyleBox["\<\"seen\"\>", StripOnInput->False, FontSize->Scaled[0.04023860074815489], FontColor->RGBColor[ 0.8781534541180211, 0.4921023027453475, 0.04333810870621905]], {104., -141.}, Center, Automatic], InsetBox[ StyleBox["\<\"hold\"\>", StripOnInput->False, FontSize->Scaled[0.035385704175513094`], FontColor->RGBColor[ 0.9840111653093676, 0.677555826546838, 0.04316985366470745]], {145., -77.}, Center, Automatic], InsetBox[ StyleBox["\<\"felt\"\>", StripOnInput->False, FontSize->Scaled[0.04145182489131533], FontColor->RGBColor[ 0.9930578157165594, 0.7227890785827968, 0.01874389756528967]], {-146., 15.}, Center, Automatic], InsetBox[ StyleBox["\<\"soul\"\>", StripOnInput->False, FontSize->Scaled[0.035385704175513094`], FontColor->RGBColor[0.15725938678540247`, 0.715, 0.5857607804549424]], {102., 141.}, Center, Automatic], InsetBox[ StyleBox["\<\"live\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[0.4177882075393331, 0.715, 0.25417864494993975`]], {147., 63.}, Center, Automatic], InsetBox[ StyleBox["\<\"saw\"\>", StripOnInput->False, FontSize->Scaled[0.034172480032352646`], FontColor->RGBColor[ 0.8774935098648088, 0.34000129802703827`, 0.2750108168919853]], {32., 104.}, Center, Automatic], InsetBox[ StyleBox["\<\"St.\"\>", StripOnInput->False, FontSize->Scaled[0.0329592558891922], FontColor->RGBColor[ 0.8949268664259606, 0.5032845776173072, 0.05843417978336459]], {147., -21.}, Center, Automatic], InsetBox[ StyleBox["\<\"run\"\>", StripOnInput->False, FontSize->Scaled[0.034172480032352646`], FontColor->RGBColor[0.7989994773739094, 0.735166608597101, 0.]], {147., 75.}, Center, Automatic], InsetBox[ StyleBox["\<\"eat\"\>", StripOnInput->False, FontSize->Scaled[0.031746031746031744`], FontColor->RGBColor[ 0.9107287510704583, 0.33890687339431275`, 0.20182187767614543`]], {-145., -89.}, Center, Automatic]}, DefaultBaseStyle->{"Graphics", FontFamily -> "Helvetica"}, Method->{ "DefaultBoundaryStyle" -> Automatic, "DefaultPlotStyle" -> Automatic}, PlotRange->{{-157.5, 157.5}, {-157.5, 157.5}}]], "Output", CellChangeTimes->{3.701442835151052*^9}] }, Open ]], Cell["Show the most frequently used verbs:", "Text", CellChangeTimes->{{3.683033608693839*^9, 3.683033616124875*^9}, { 3.6832949032376537`*^9, 3.6832949042537556`*^9}, 3.683385198322204*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{ RowBox[{"TakeLargest", "[", RowBox[{ RowBox[{"Counts", "[", RowBox[{"TextCases", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", "\"\\""}], "]"}], "]"}], ",", "20"}], "]"}], "//", "Reverse"}], ",", RowBox[{"BarOrigin", "\[Rule]", "Left"}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.6832887705512333`*^9, 3.6832888072249002`*^9}, 3.683388529415406*^9}], Cell[BoxData[ GraphicsBox[{ {Opacity[0], PointBox[{0., 0.13851851851851854`}]}, {{}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 0.5370370370370371}, {47., 1.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 51.01612769600398}, { 77.48884134104748, 86.84460894070008}}], StatusArea[#, 47]& , TagBoxNote->"47"], StyleBox["47", {}, StripOnInput -> False]], Annotation[#, Style[47, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 1.5370370370370372`}, {48., 2.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 51.4366836044296}, { 67.92461233342264, 77.28037993307527}}], StatusArea[#, 48]& , TagBoxNote->"48"], StyleBox["48", {}, StripOnInput -> False]], Annotation[#, Style[48, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 2.537037037037037}, {51., 3.4629629629629632`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 52.69835132970645}, { 58.36038332579783, 67.71615092545044}}], StatusArea[#, 51]& , TagBoxNote->"51"], StyleBox["51", {}, StripOnInput -> False]], Annotation[#, Style[51, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 3.537037037037037}, {52., 4.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 53.11890723813207}, { 48.79615431817301, 58.15192191782562}}], StatusArea[#, 52]& , TagBoxNote->"52"], StyleBox["52", {}, StripOnInput -> False]], Annotation[#, Style[52, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 4.537037037037037}, {54., 5.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 53.96001905498329}, { 39.231925310548185`, 48.5876929102008}}], StatusArea[#, 54]& , TagBoxNote->"54"], StyleBox["54", {}, StripOnInput -> False]], Annotation[#, Style[54, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 5.537037037037037}, {57., 6.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 55.22168678026014}, { 29.667696302923368`, 39.023463902575976`}}], StatusArea[#, 57]& , TagBoxNote->"57"], StyleBox["57", {}, StripOnInput -> False]], Annotation[#, Style[57, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 6.537037037037037}, {59., 7.462962962962963}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 56.06279859711138}, { 20.103467295298543`, 29.45923489495116}}], StatusArea[#, 59]& , TagBoxNote->"59"], StyleBox["59", {}, StripOnInput -> False]], Annotation[#, Style[59, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 7.537037037037037}, {61., 8.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 56.903910413962606`}, { 10.539238287673712`, 19.895005887326334`}}], StatusArea[#, 61]& , TagBoxNote->"61"], StyleBox["61", {}, StripOnInput -> False]], Annotation[#, Style[61, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 8.537037037037038}, {67., 9.462962962962964}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 59.42724586451631}, { 0.9750092800488943, 10.330776879701503`}}], StatusArea[#, 67]& , TagBoxNote->"67"], StyleBox["67", {}, StripOnInput -> False]], Annotation[#, Style[67, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 9.537037037037038}, {76., 10.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 63.21224904034686}, {-8.589219727575923, 0.7665478720766856}}], StatusArea[#, 76]& , TagBoxNote->"76"], StyleBox["76", {}, StripOnInput -> False]], Annotation[#, Style[76, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 10.537037037037038`}, {88., 11.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 68.25891994145425}, {-18.15344873520074, -8.797681135548132}}], StatusArea[#, 88]& , TagBoxNote->"88"], StyleBox["88", {}, StripOnInput -> False]], Annotation[#, Style[88, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 11.537037037037038`}, {90., 12.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 69.10003175830549}, {-27.717677742825572`, -18.361910143172963`}}], StatusArea[#, 90]& , TagBoxNote->"90"], StyleBox["90", {}, StripOnInput -> False]], Annotation[#, Style[90, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 12.537037037037038`}, {94., 13.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 70.78225539200795}, {-37.28190675045039, -27.92613915079778}}], StatusArea[#, 94]& , TagBoxNote->"94"], StyleBox["94", {}, StripOnInput -> False]], Annotation[#, Style[94, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 13.537037037037038`}, {154., 14.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 96.01560989754495}, {-46.84613575807521, -37.4903681584226}}], StatusArea[#, 154]& , TagBoxNote->"154"], StyleBox["154", {}, StripOnInput -> False]], Annotation[#, Style[154, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 14.537037037037038`}, {169., 15.462962962962964`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 102.32394852392919`}, {-56.410364765700024`, \ -47.054597166047415`}}], StatusArea[#, 169]& , TagBoxNote->"169"], StyleBox["169", {}, StripOnInput -> False]], Annotation[#, Style[169, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 15.537037037037038`}, {181., 16.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 107.3706194250366}, {-65.97459377332487, -56.61882617367223}}], StatusArea[#, 181]& , TagBoxNote->"181"], StyleBox["181", {}, StripOnInput -> False]], Annotation[#, Style[181, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 16.537037037037038`}, {189., 17.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 110.73506669244152`}, {-75.53882278094969, -66.18305518129705}}], StatusArea[#, 189]& , TagBoxNote->"189"], StyleBox["189", {}, StripOnInput -> False]], Annotation[#, Style[189, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 17.537037037037038`}, {254., 18.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 138.0712007401066}, {-85.1030517885745, -75.7472841889219}}], StatusArea[#, 254]& , TagBoxNote->"254"], StyleBox["254", {}, StripOnInput -> False]], Annotation[#, Style[254, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 18.537037037037038`}, {265., 19.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 142.69731573278838`}, {-94.66728079619932, -85.31151319654671}}], StatusArea[#, 265]& , TagBoxNote->"265"], StyleBox["265", {}, StripOnInput -> False]], Annotation[#, Style[265, {}], "Tooltip"]& ]}, {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.5599999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0., 19.537037037037038`}, {739., 20.462962962962965`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{30.750000000000004`, 342.0408163265306}, {-104.23150980382414`, -94.87574220417153}}], StatusArea[#, 739]& , TagBoxNote->"739"], StyleBox["739", {}, StripOnInput -> False]], Annotation[#, Style[739, {}], "Tooltip"]& ]}}, {}, {}}, {}, {}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.13851851851851854`}, {0., 20.869451851851853`}}], StyleBox[{}, "GraphicsLabel", StripOnInput->False]}, StyleBox[{ {Thickness[Tiny], LineBox[{{0., 0.5370370370370371}, Offset[{-6., 0.}, {0., 0.5370370370370371}]}], LineBox[{{0., 20.462962962962965`}, Offset[{-6., 0.}, {0., 20.462962962962965`}]}], {{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \ {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, { LineBox[{{0., 1.462962962962963}, Offset[{-4., 0.}, {0., 1.462962962962963}]}], LineBox[{{0., 1.5370370370370372`}, Offset[{-4., 0.}, {0., 1.5370370370370372`}]}], LineBox[{{0., 2.4629629629629632`}, Offset[{-4., 0.}, {0., 2.4629629629629632`}]}], LineBox[{{0., 2.537037037037037}, Offset[{-4., 0.}, {0., 2.537037037037037}]}], LineBox[{{0., 3.4629629629629632`}, Offset[{-4., 0.}, {0., 3.4629629629629632`}]}], LineBox[{{0., 3.537037037037037}, Offset[{-4., 0.}, {0., 3.537037037037037}]}], LineBox[{{0., 4.462962962962963}, Offset[{-4., 0.}, {0., 4.462962962962963}]}], LineBox[{{0., 4.537037037037036}, Offset[{-4., 0.}, {0., 4.537037037037036}]}], LineBox[{{0., 5.462962962962963}, Offset[{-4., 0.}, {0., 5.462962962962963}]}], LineBox[{{0., 5.537037037037037}, Offset[{-4., 0.}, {0., 5.537037037037037}]}], LineBox[{{0., 6.462962962962963}, Offset[{-4., 0.}, {0., 6.462962962962963}]}], LineBox[{{0., 6.537037037037037}, Offset[{-4., 0.}, {0., 6.537037037037037}]}], LineBox[{{0., 7.462962962962963}, Offset[{-4., 0.}, {0., 7.462962962962963}]}], LineBox[{{0., 7.537037037037037}, Offset[{-4., 0.}, {0., 7.537037037037037}]}], LineBox[{{0., 8.462962962962964}, Offset[{-4., 0.}, {0., 8.462962962962964}]}], LineBox[{{0., 8.537037037037036}, Offset[{-4., 0.}, {0., 8.537037037037036}]}], LineBox[{{0., 9.462962962962962}, Offset[{-4., 0.}, {0., 9.462962962962962}]}], LineBox[{{0., 9.537037037037036}, Offset[{-4., 0.}, {0., 9.537037037037036}]}], LineBox[{{0., 10.462962962962962`}, Offset[{-4., 0.}, {0., 10.462962962962962`}]}], LineBox[{{0., 10.537037037037036`}, Offset[{-4., 0.}, {0., 10.537037037037036`}]}], LineBox[{{0., 11.462962962962962`}, Offset[{-4., 0.}, {0., 11.462962962962962`}]}], LineBox[{{0., 11.537037037037036`}, Offset[{-4., 0.}, {0., 11.537037037037036`}]}], LineBox[{{0., 12.462962962962962`}, Offset[{-4., 0.}, {0., 12.462962962962962`}]}], LineBox[{{0., 12.537037037037036`}, Offset[{-4., 0.}, {0., 12.537037037037036`}]}], LineBox[{{0., 13.462962962962962`}, Offset[{-4., 0.}, {0., 13.462962962962962`}]}], LineBox[{{0., 13.537037037037036`}, Offset[{-4., 0.}, {0., 13.537037037037036`}]}], LineBox[{{0., 14.462962962962962`}, Offset[{-4., 0.}, {0., 14.462962962962962`}]}], LineBox[{{0., 14.537037037037036`}, Offset[{-4., 0.}, {0., 14.537037037037036`}]}], LineBox[{{0., 15.462962962962962`}, Offset[{-4., 0.}, {0., 15.462962962962962`}]}], LineBox[{{0., 15.537037037037036`}, Offset[{-4., 0.}, {0., 15.537037037037036`}]}], LineBox[{{0., 16.462962962962965`}, Offset[{-4., 0.}, {0., 16.462962962962965`}]}], LineBox[{{0., 16.537037037037038`}, Offset[{-4., 0.}, {0., 16.537037037037038`}]}], LineBox[{{0., 17.462962962962965`}, Offset[{-4., 0.}, {0., 17.462962962962965`}]}], LineBox[{{0., 17.537037037037038`}, Offset[{-4., 0.}, {0., 17.537037037037038`}]}], LineBox[{{0., 18.462962962962965`}, Offset[{-4., 0.}, {0., 18.462962962962965`}]}], LineBox[{{0., 18.537037037037038`}, Offset[{-4., 0.}, {0., 18.537037037037038`}]}], LineBox[{{0., 19.462962962962965`}, Offset[{-4., 0.}, {0., 19.462962962962965`}]}], LineBox[{{0., 19.537037037037038`}, Offset[{-4., 0.}, {0., 19.537037037037038`}]}]}, {}}}, StyleBox[ {Thickness[Tiny], InsetBox["\<\"found\"\>", Offset[{-2., 0.}, {0., 1.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"go\"\>", Offset[{-2., 0.}, {0., 2.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"get\"\>", Offset[{-2., 0.}, {0., 3.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"went\"\>", Offset[{-2., 0.}, {0., 4.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"should\"\>", Offset[{-2., 0.}, {0., 5.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"said\"\>", Offset[{-2., 0.}, {0., 6.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"made\"\>", Offset[{-2., 0.}, {0., 7.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"being\"\>", Offset[{-2., 0.}, {0., 8.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"did\"\>", Offset[{-2., 0.}, {0., 8.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"are\"\>", Offset[{-2., 0.}, {0., 9.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"been\"\>", Offset[{-2., 0.}, {0., 10.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"do\"\>", Offset[{-2., 0.}, {0., 11.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"could\"\>", Offset[{-2., 0.}, {0., 12.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"have\"\>", Offset[{-2., 0.}, {0., 13.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"is\"\>", Offset[{-2., 0.}, {0., 14.999999999999998}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"would\"\>", Offset[{-2., 0.}, {0., 16.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"were\"\>", Offset[{-2., 0.}, {0., 17.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"had\"\>", Offset[{-2., 0.}, {0., 18.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"be\"\>", Offset[{-2., 0.}, {0., 19.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}], InsetBox["\<\"was\"\>", Offset[{-2., 0.}, {0., 20.}], ImageScaled[{1, 1/2}], Automatic, {1, 0}]}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, "GraphicsAxes", StripOnInput->False, Antialiasing->False]}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, False}, AxesLabel->{None, None}, AxesOrigin->{0., 0.13851851851851854`}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {1., FormBox["\"found\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox["\"go\"", TraditionalForm], 0}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox["\"get\"", TraditionalForm], 0}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox["\"went\"", TraditionalForm], 0}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox["\"should\"", TraditionalForm], 0}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox["\"said\"", TraditionalForm], 0}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox["\"made\"", TraditionalForm], 0}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox["\"being\"", TraditionalForm], 0}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox["\"did\"", TraditionalForm], 0}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox["\"are\"", TraditionalForm], 0}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox["\"been\"", TraditionalForm], 0}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox["\"do\"", TraditionalForm], 0}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox["\"could\"", TraditionalForm], 0}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox["\"have\"", TraditionalForm], 0}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox["\"is\"", TraditionalForm], 0}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox["\"would\"", TraditionalForm], 0}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox["\"were\"", TraditionalForm], 0}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox["\"had\"", TraditionalForm], 0}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox["\"be\"", TraditionalForm], 0}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox["\"was\"", TraditionalForm], 0}}, {{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {3., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {4., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {5., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {6., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {7., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {8., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {9., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {10., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {11., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {12., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {13., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {14., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {15., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {16., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {17., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {18., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {19., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}, {20., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0]], TraditionalForm], {0.004, 0}}}}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.05]}, { Scaled[0.02], Scaled[0.02]}}, Ticks->{Automatic, None}]], "Output", CellChangeTimes->{3.683388542623391*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{1158, 880}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Narrative of the Life of Frederick Douglass", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"13.2 for Mac OS X x86 (64-bit) (November 18, 2022)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[650, 23, 36, 0, 70, "Subsection",ExpressionUUID->"993af635-3519-48fd-b853-e87e5711cdc5"], Cell[689, 25, 252, 3, 70, "Text",ExpressionUUID->"06a16dff-12ef-46c5-be74-969ef1a7cf56"], Cell[CellGroupData[{ Cell[966, 32, 474, 11, 70, "Input",ExpressionUUID->"cb357fe5-a656-46e5-913e-be7057aa070b"], Cell[1443, 45, 1012, 14, 70, "Output",ExpressionUUID->"b6b3ed39-a567-43ee-8e6f-2fbf00c60716"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[2504, 65, 35, 0, 70, "Subsection",ExpressionUUID->"691718ef-6864-4e08-84f5-87213637c68b"], Cell[2542, 67, 207, 3, 70, "Text",ExpressionUUID->"a3a6b001-999e-4078-b745-26210a51f294"], Cell[CellGroupData[{ Cell[2774, 74, 245, 6, 70, "Input",ExpressionUUID->"e4b35179-9350-43af-a640-4139a2fa8c67"], Cell[3022, 82, 23523, 561, 70, "Output",ExpressionUUID->"d4b7775f-67ad-40e0-9331-f820bdb3edf2"] }, Open ]], Cell[26560, 646, 194, 2, 70, "Text",ExpressionUUID->"91eb5ba7-0548-476f-9980-686b9a6306f8"], Cell[CellGroupData[{ Cell[26779, 652, 627, 17, 70, "Input",ExpressionUUID->"70473887-e74a-4aa7-9d2c-0461eb84c401"], Cell[27409, 671, 35339, 889, 70, "Output",ExpressionUUID->"00c0a301-a899-4e28-b689-422b5c3c4239"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)