(* 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[ 65111, 1347] NotebookOptionsPosition[ 63451, 1306] NotebookOutlinePosition[ 64039, 1329] CellTagsIndexPosition[ 63996, 1326] WindowTitle->Examples for Female Heights And Weights Sample Data WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", StyleBox["\"\\"", ShowStringCharacters->True, NumberMarks->True], "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}, 3.696184341620957*^9}], 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[ TemplateBox[{ "\"Sample Data: Female Heights And Weights\"", "\" \"", TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Female heights and weights data\"\>", "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[ TemplateBox[{ "\"Sample Data: Female Heights And Weights\"", "\" \"", TagBox[ ButtonBox[ PaneSelectorBox[{ False -> "\"\[RightGuillemet]\"", True -> StyleBox["\"\[RightGuillemet]\"", {"HyperlinkActive"}]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle -> {"Hyperlink"}, FrameMargins -> 0, ImageSize -> Automatic], BaseStyle -> "Hyperlink", ButtonData -> { URL[ "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Female heights and weights data\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Medicine\"", "\"Statistics\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"ContentTypes: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",", "\",\"", "\"Numerical Data\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Keywords: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"medicine\"", "\"statistics\"", "\"ExampleData\"", "\"height\"", "\"weight\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Documentation: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"https://datarepository.wolframcloud.com/\ resources/Female-Heights-And-Weights-Sample-Data\"\>", True-> StyleBox["\<\"https://datarepository.wolframcloud.com/\ resources/Female-Heights-And-Weights-Sample-Data\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], None}, ButtonNote-> "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Female-\ Heights-And-Weights-Sample-Data"], "Hyperlink"]& ], "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[ "ae85c70a-e5b1-4195-8d38-23fd9b913f70"]; 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["\<\"ae85c70a-e5b1-4195-8d38-23fd9b913f70\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ RowBox[{"\\[LeftAssociation]", RowBox[{"\<\"Content\"\>", "\[Rule]", "9992"}], "\\[RightAssociation]"}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{ ",", "\",\"", "\"ColumnDescriptions\"", "\"ColumnTypes\"", "\"Content\"", "\"DataType\"", "\"Dimensions\"", "\"ObservationCount\"", "\"RawData\"", "\"Source\""}, "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[<| "Name" -> "Sample Data: Female Heights And Weights", "UUID" -> "ae85c70a-e5b1-4195-8d38-23fd9b913f70", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Female heights and weights data", "ContentSize" -> <|"Content" -> 9992|>, "ContentElements" -> { "ColumnDescriptions", "ColumnTypes", "Content", "DataType", "Dimensions", "ObservationCount", "RawData", "Source"}|>], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.684253996096393*^9, 3.6961843425758963`*^9}] }, 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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", StyleBox["\"\\"", ShowStringCharacters->True, NumberMarks->True], "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, 3.696184344257161*^9}], Cell[BoxData[ TemplateBox[{ TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 15, "Length" -> 15, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{"Height", "Weight"}, { TypeSystem`Atom[ Quantity[1, "Inches"]], TypeSystem`Atom[ Quantity[1, "Pounds"]]}], 15], "Shape" -> TypeSystem`PackageScope`HeaderShape[<|{All, "Height"} -> 1, {All, "Weight"} -> 1|>, TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[<| "Height" -> TypeSystem`PackageScope`AtomShape[75], "Weight" -> TypeSystem`PackageScope`AtomShape[75]|>]], 15, {}]], "InitialData" -> TypeSystem`PackageScope`CacheHandle[916973411], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{"Height", "Weight"}, { TypeSystem`Atom[ Quantity[1, "Inches"]], TypeSystem`Atom[ Quantity[1, "Pounds"]]}], 15], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[916973411]], TypeSystem`NestedGrid`PackagePrivate`$path$$ = {}, TypeSystem`NestedGrid`PackagePrivate`$pos$$ = 1, TypeSystem`NestedGrid`PackagePrivate`$grid$$ = DynamicModule[{ TypeSystem`NestedGrid`PackagePrivate`renderedGrid = Deploy[ Style[ Grid[{{ Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Height\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Height\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2033658804][{All, "Height"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[All, "Height"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Weight\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Weight\"", FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], {{20, Full}, 15}], FontColor -> RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], "LinkHand"], {"MouseClicked", 1} :> TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2033658804][{All, "Weight"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[All, "Weight"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"58", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[1, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"115", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[1, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"59", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[2, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"117", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[2, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"60", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[3, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"120", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[3, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"61", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[4, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"123", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[4, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"62", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[5, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"126", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[5, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"63", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[6, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"129", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[6, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"64", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[7, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"132", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[7, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"65", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[8, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"135", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[8, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"66", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[9, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"139", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[9, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"67", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[10, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"142", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[10, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"68", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[11, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"146", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[11, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"69", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[12, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"150", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[12, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"70", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[13, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"154", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[13, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"71", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[14, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"159", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[14, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"72", "\"in\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[15, Key["Height"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"164", "\"lb\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ GeneralUtilities`Slice[15, Key["Weight"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}}, BaseStyle -> {ContextMenu -> { MenuItem["Copy position to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], MenuItem["Copy data to clipboard", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`copyClip]], MenuEvaluator -> Automatic], Delimiter, MenuItem["Paste position in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentPosition[ TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic], MenuItem["Paste data in new cell", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`toCurrentData[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`cellPaste]], MenuEvaluator -> Automatic]}, FontFamily -> "Verdana", FontSize -> 12}, Alignment -> Left, RowMinHeight -> 1.5, Dividers -> All, FrameStyle -> GrayLevel[0.85], BaseStyle -> {FontFamily -> "Verdana", FontSize -> 12}], LineBreakWithin -> False, ContextMenu -> {}, NumberMarks -> False, ShowAutoStyles -> False]], TypeSystem`NestedGrid`PackagePrivate`initialQ = True, TypeSystem`NestedGrid`PackagePrivate`self = $Failed}, Dynamic[ TypeSystem`NestedGrid`PackagePrivate`setupViewPath[ TypeSystem`NestedGrid`PackagePrivate`$path$$, If[ Not[TypeSystem`NestedGrid`PackagePrivate`initialQ], Module[{TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = $Failed, TypeSystem`NestedGrid`PackagePrivate`tmpData$ = TypeSystem`NestedGrid`PackagePrivate`LookupCacheValue[ TypeSystem`NestedGrid`PackagePrivate`$state$$["Data"]]}, TypeSystem`NestedGrid`PackagePrivate`tmpGrid$ = If[TypeSystem`NestedGrid`PackagePrivate`tmpData$ === TypeSystem`NestedGrid`PackagePrivate`$NotCached, TypeSystem`NestedGrid`PackagePrivate`renderedGrid, TypeSystem`NestedGrid`PackagePrivate`renderGrid[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2033658804][ TypeSystem`NestedGrid`PackagePrivate`tmpData$]]; If[ Not[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]], TypeSystem`NestedGrid`PackagePrivate`renderedGrid = TypeSystem`NestedGrid`PackagePrivate`tmpGrid$]; Null]]; TypeSystem`NestedGrid`PackagePrivate`initialQ = False; TypeSystem`NestedGrid`PackagePrivate`$pos$$; If[ FailureQ[TypeSystem`NestedGrid`PackagePrivate`renderedGrid], TypeSystem`SparseGrid[ TypeSystem`H["(data no longer present)"]], If[GeneralUtilities`$DebugMode, Row[{TypeSystem`NestedGrid`PackagePrivate`renderedGrid, " ", TypeSystem`NestedGrid`PackagePrivate`formatState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]}], TypeSystem`NestedGrid`PackagePrivate`renderedGrid]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$pos$$}], Initialization :> If[ Not[$CloudEvaluation], TypeSystem`NestedGrid`PackagePrivate`attachScrollbar[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$]], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`makeFramedBar[ TypeSystem`PackageScope`Pathbar[ TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`updateState[ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 2033658804]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[2033658804][ Pattern[TypeSystem`NestedGrid`PackagePrivate`path, Blank[]]] :> ( TypeSystem`NestedGrid`PackagePrivate`$lastPath = TypeSystem`NestedGrid`PackagePrivate`path; TypeSystem`NestedGrid`PackagePrivate`makePathTrail[ TypeSystem`NestedGrid`PackagePrivate`path, TypeSystem`NestedGrid`PackagePrivate`makePathElements]), Null :> Spacer[10], Blank[] :> Spacer[10]}], TrackedSymbols :> {}], FrameStyle -> None, ImageMargins -> 0, FrameMargins -> 0, Alignment -> Top, ImageSize -> {Automatic, 14}]}, DynamicBox[ ToBoxes[ Column[ If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, TypeSystem`NestedGrid`PackagePrivate`shiftRight[{ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]}, TypeSystem`NestedGrid`PackagePrivate`$state$$], TypeSystem`NestedGrid`PackagePrivate`shiftRight[{ TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]}, TypeSystem`NestedGrid`PackagePrivate`$state$$]], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {162., {197.634033203125, 203.365966796875}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], Deinitialization :> TypeSystem`NestedGrid`PackagePrivate`deleteState[ TypeSystem`NestedGrid`PackagePrivate`$state$$], DynamicModuleValues :> {}, Initialization :> Block[{$ContextPath = $ContextPath}, Needs["TypeSystem`"]]], Deploy, DefaultBaseStyle -> "Deploy"]}, "CopyTag", DisplayFunction->(#& ), InterpretationFunction->("Dataset[<>]"& )]], "Output", CellChangeTimes->{3.684253996245743*^9, 3.696184345730624*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection"], Cell["Compare various heights and weights of females:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.683647758332714*^9, 3.683647828411282*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{ RowBox[{"ResourceData", "[", StyleBox["\"\\"", ShowStringCharacters->True, NumberMarks->True], "]"}], "[", RowBox[{"All", ",", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], "]"}], ",", RowBox[{"Frame", "\[Rule]", "True"}], ",", RowBox[{"FrameLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.683647716365492*^9, 3.683647743494357*^9}, { 3.684254015099524*^9, 3.68425403705197*^9}, {3.684254204000005*^9, 3.684254243352296*^9}, 3.6961843484975557`*^9}], Cell[BoxData[ GraphicsBox[{{}, {{}, {}, {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.019444444444444445`], AbsoluteThickness[1.6], LineBox[{{58., 115.}, {59., 117.}, {60., 120.}, {61., 123.}, {62., 126.}, {63., 129.}, {64., 132.}, {65., 135.}, {66., 139.}, {67., 142.}, {68., 146.}, {69., 150.}, {70., 154.}, {71., 159.}, {72., 164.}}]}}, {}, {}, {{}, {}}}, BoxID -> "{\"type\":\"Image\",\"message\":\"RasterizedDueToUnsupportedContent\",\"\ imageData\":{\"imageSource\":\"data:image/png;base64,\ iVBORw0KGgoAAAANSUhEUgAAAWgAAADnCAYAAAAzdMxsAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAA\ AOxAAADsQBlSsOGwAAIABJREFUeJzt3Xt8FfWdN/\ DP9zcnOQmgcqyuoLbeelmt26f7VKvdp1u1rrUmAa+hCrkASSaCoo23igiTAa/\ 1Qt1YK3MSkAQsBdcLhIjVrdqntmuxrd2taHe3tXWjoMUbJCGXM/PdP0hsDAnXk8ycnM/\ 79eL1MjPn8klkPhnmfGcGICKiSJKwA+yJbdsadgYiIhrEUAW9L8XNx2beY8N+\ fz42Mx8b9vun87EZsXNq27YOFjQjwvfDvMMnk7ICzDucMikrsGvevr4bqvciJyNCEhGlmW3basIOQU\ REg2NBExFFFAuaiCiiWNBERBHFgiYiCkGpu/\ YrpbXNc3b3mIw5UcXzvMhnJSLaG6W168pFjAdgWypXP/vw3KL3gV2n1mKhpNtHLGciGg2KV6+\ 28jaNvUME1wG6yQowqbG3nIGPd51t25oRBU1ElOmmOS0HW68GP4SgQBXrAzVTG92Cbbt7DguaiGiYl\ S1qOQFBsBaQkwDc1XlS+9w1U6b4e3oeC5qIaBiVuc1naRA8IpBxqsH0ptpJy/f2uZziICIaJqXu+\ ssB/FiAlMI/c1/KGeAeNBFR2tlLXsrp3Pz29wDMVsjLCPzzm9zJb+\ zr67CgiYjSqMLZcGjnli1rIPJ1AI/qmFjZiusL2/\ fntTKioG3bVo7aEVHUTXfWFfSY1HJADgN00XHBxlr3ejfY2+\ cPnIOOfOmxnIkoE5S5689T1bUiiGmAK5rcogcO5PV4uVEiogOlKmW1zTUKNENkqx+g9EDLuU/\ aD3FUVlYeLSIbk8nkxL5l5eXlefF4/J9V9RIReVdVK5PJ5PO2bZ+mqqtE5CgAr6nqnGQy+\ Xy6MxERDYc597XEP3TXPwCRmVDdmKOpC5a6F7yVrtdP6x50ZWXlhcaY50RkQv/\ l8Xj8JgBbReRoEZkrIvUAoKpzReTuVCr1CQCrROSadOYhIhouJc5Tf/PhB8EzEJmpwA87D+\ o4I53lDKR5D1pEbN/3J1mWtan/clW9WFXL6uvrOwA80vsHAE6Jx+\ Nlnudtr6ioaLAsqzqdeYiIhkOZ0/IFSGotIMcAmNe0oOB2iKT99nxpLehkMnkeANi2/\ bHlInK8iJxfVVX1EwBvqGppfX39yyJyeF1d3XYA2LZt29ZEIjFx11clIoqOUrf5fGiwEgCCQC5c4RY\ +Dmd43mukxuxyVPXdcePGTWhvbz8dQBLAqQB6HMcR13X7fvMM+huo/+\ gJJzqIKBSqUua23AjVWyHyP4EEk1csKPptul5+sBtkj0hBq+qWvLy8ZYsXL95h2/\ bPROTk3lVbWltbxwN4L5FIJAC8M9jzWcpEFKZy59m8YOH6eohMU8ULGsQuWuGeO2hf7a+\ BPTdiY3Yi8mRnZ+\ dltm3niMiZqvqr3lUvGmOm1tTU5KvqNAAvjUQeIqK9Ne2WJycGpuN5gUxT6LLxCXN2ust5KCOyB93V\ 1XV9PB6vV9W7VfUPxpipACAiSQBNbW1ti0XkLQCXjkQeIqK9Ub6w+\ UtBKngCgokKXNu0oHDxcHwYOJTIHzrgmYREFIZSt7lYVJZDtEcDc1mTW9Ayku/\ PO6oQEQ3gOI55Xb7sAFig0D8EgZm80i3YtMcnDgMWNBFRr5K7nhr7x/\ ae5SK4WBXPIre7eOVNF70bVp7IHzrgXb2JaCRMX7Thk37grxXgiwr9Qf6ECVd71af0jGQGXs2OiGiA\ UnftV0StxwAcpqJXNTnpudjRgeDV7Igo65XWNpcKrOcA5IrIuVEo5z48Bk1EWal49Wor79WxtwrwHQ\ VeU7Umraj95n+Hnas/FjQRZZ2Zdz5+UGpTbCUEkxTYkB/\ PvdS78ZwPw841EAuaiLJKyaInjkt1xtZCcDJU7+08qeOGpimFfti5BsOCJqKsUeY0fw2+\ PKrQgwUys7G2aFnYmXYnIwqakxxEdKBKa9dXQfQBVX0far7e6Bb8LOxMAw0cs8uIgmY5E9H+\ OsN5NvYp6bhHBFcp8O++hckPzy/4c9i5BtO/63iqNxGNalNvb07Eutp/\ BJFzAH28MxhbusY5qy3sXHuLc9BENCqVOus/G+vGv+0sZ9x6XLDx4jVu5pQzkCGHOIiI9kWJu/\ 4cAKsVyINgWtOCwofDzrQ/uAdNRKOHqpS56680iidFdYcF87VMLWeAe9BENErMua8l/oG7/\ n6IVEL0JVh6wUM3F7wZdq4DEfnpCF7Njoj2pHxh85eCAMtE5O+\ gWLXjoPaZa66dsiPsXPuKY3ZENGrMua8l/sEHgaOB3CDQToVe0eQU/\ mAkb0uVTgPH7HgMmogyUpmz7ssffhD8WiBzIfq8qHVyk1P0QKaW82AyYg+aiKhP8T2r8/\ PbxroKXAtFuzFavXx+YXI0FXMf7kETUcYocZr/IX/7mN8AuB7QZ6D+\ ycsXFHmjsZwB7kETUQawnbVjOsUsAlADwfZAtXKFU7h0tBZzH+5BE1GkTXPX/WOnMb+FyDUKbPAD8/\ kVtUUNo72cAe5BE1FEldz11FhpT90mqnMU2KZGZ6xYULg8G4q5T+\ TH1zgHTZR9yp11ZwbGNAhwPKDNsPTyxpsnZfRJJ3uDc9BEFFnFzrPj8qXjThXMFsX7MFraOL9wZbbs\ NXMOmogiqdxtOTtfOn4HwWwonvBj5vONC4pWZEs5Dybte9CVlZVHi8jGZDI5sW9ZdXX1sar6ev/\ HeZ4ntm2fpqqrROQoAK+\ p6pxkMvl8ujMRUXRNc1oONqJ3KdRW0fdEMbXRKVyVzcXcJ60FXVlZeaEx5i4AE/ov933/\ TBFpTCaT5f2Xq+\ pcEbk7lUo1xmKxOSJyDQAWNFGWKHXXnQsNkiLySQCP9sT82avmnf82asNOFg1pLWgRsX3fn2RZ1qb+\ y40xZ6rqM4M85ZR4PF7med72ioqKBsuyqtOZh4iiqdx5bLxKzj2AzIRgK0S/1Ti/\ cA33mj8urQWdTCbPAwDbtgeuOhPAcVVVVQ+IyO9835/Z0NDwqogcXldXtx0Atm3btjWRSEwc+\ EQiGl1KnZaCQNQTwVGqWB3LkSuXzSv8CxaEnSx6RmSKw/\ O8YwHAcRzz5ptvnmhZ1nIAXwbQ4ziOuK7b91tz0N+e/UdPONFBlJmm3t6ciHXLYkDLAX1HIJc01hb+\ S9i5omLgiB0wwmN2rusGjuO8unnz5pN6F21pbW0dD+C9RCKRAPDOYM9jKRNlthK3ZZLpCpZAMBGqD/\ docPUP3clbw84VJQN7bsTu6m3b9u9FpPS99977VWtr6+\ cty3qhd9WLxpipNTU1DW1tbdNE5KWRyENEI6PC2XBot/\ j3CbQEkLeDABeucIseDztXphiRgg6CoNwYk0wkEieo6s+\ DIJgJACKSBNDU1ta2WETeAnDpSOQhouFX4qy/oEf8B0VwBICmHLW+3eB+\ 872wc2WSyB86sG1beYiDKHNc5qw9LGasfxbgMgXeQoDqJrewOexcmYZnEhJRWpU6zRflGPPKznLWZS\ bo/jzLef9lxLU4iCjaZtzacniqR+\ 8XwRRAWyXQ8xrdog1h58p0kT90wKvZEUVbqdtcLJAHABwGaDIvHr/eu/\ GcD8POlYl4NTsiSotLb33iiJwe6/sCuRjAGwHwjRVO0dNh58pkvJodER0YVSlZuO7S3J7YKyJysUJ/\ EMvrOXmFU8hyTrOM2IMmomgod5onBG7LAyLmQgCvA1rc5BQ9G3au0Yp70ES0Z6pSXtsyLTB4RQQXAq\ jboWO+0MhyHlbcgyai3ZrpPH5kyl3/oIpMguIPUL2w0S36adi5sgH3oIlocKpStnB9WY/\ JeQVAERTfy9fgCyznkRP56QiO2RGNvLJb1h0FXzxACgD9T4HMXO4UvrDnZ9KBGDhmF/\ nS46neRCNIVUoXPTkDQXAvRA6C4t7Og9oXrLl2yo6wo2WbEbuaHRFFX6mz9lPitngQnKsir5lAvrnc\ Lfi3sHNlMx6DJsp2qlK+sNmGWL9TwTlQ3GGCMX/Pcg4f96CJsli58+Sxgbu+\ XkXOBvQVC2bGQ7UFG8PORTuxoImykOM45o/m1MtV/e8KJA/AreMTZlHd1QVdYWejv2JBE2WZskUtJ/\ wx0HoBzlTofxijM5YvKPpV2LloVyxooizhOI75o5x6hQZ6h0BzobKwUztuXbNgSnfY2Whwu4yvDRxr\ s237MAB/9jxv7Igm65cH4Bw00YGYvnDdZ4LANEDwj1D8VlSnL3eLXg47F33ckJcbtW27GUDhwAepai\ Aiod4RgeVMtH+KV6+28jeNuSoI5FaFxgA4+RMn3O5Vn9ITdjba1cDLjcb6rSjqW8hCJMp80xY++\ TlrU7AMgq8A+LUEZkZjbcG/\ h52L9t4ux6CDILjItu1uADn9l7O0iTJD8erVVt6mMdcg8BdBRADMy5twxF3ca848uxS0MeZHQRB8q7\ 6+/rEwAhHR/pvmtJxkXtVlIviyqm6EmBmNC857JexctH8Gm+J4PT8//\ 19HPAkR7bcznGdjx0jH9RCtVVUFcOMbOvae5xeclQo7G+2/\ XQpaRG7t6uqaW1NTs3Dx4sW8QApRhDmOY/6IUy8Q034nIJ+\ G4kUYzGhcUPRq2NnowH3sE8PdPTCsY9AcsyPaleM45nWcdpFKsEBE/g6K91VwS+\ eJ7fetmTLFDzsf7R9ebpQogzmOY163Tr0EKvMBnKzQ9wRyjx/I/\ Svdgm1h56P0GfRyo4PtSavqDgCvBEFQ0dDQwDEdohFWvHq1FX8tv/\ h1lflQOQmKd1V0bk5e6vtLv3PB9rDz0fDYpaBV9QoROc6yrNt837cAPGGMWayq4y3L8gCcPvIxibJT\ 74kmU7BJ5kNwIoCtUL1xh479/pras9rCzkfDa7ApDieVSn3a87ztADBr1qxS3/d/AuAzqnr/\ nl6wsrLyaBHZmEwmJw5cZ9v2JABr+w5Z2LZ9mqquEpGjALymqnOSyeTzB/YtEWW+\ 4tWrrTGbxl0avKo3Q/C3qvoXKG7o1LE/WOOymLPFYFMcr8disett274HAFKp1AwR+\ aPneT1VVVUdu3uxysrKC40xdwGYMHBdeXl5HoDb+y9T1bkicncqlWqMxWJzROQaACxoylpnOM/\ GPiXtl8mruFlFPyvQd1TlOh2b8+CK689tDzsfjaxd7qiSSqW+papfUNVWAH8Skc+\ lUqkSABCR3Z68IiK27/uTBluXm5t7o6r+cMDiU+LxeNPSpUu3+77fAOCL+/\ l9EGW0M5xnY6W168qPMe2vikijQg6G6jV5QXBcU23hPSzn7LTLHvTSpUv/\ DOCCwR7seV7F7l4smUyeBwC2bX9s+axZs473ff+ieDx+\ aldX1y19y0Xk8Lq6uu0AsG3btq2JRGKXwyK9r/\ fRB5ec6KDRxF7yUk7n5rdLFO3zRMwJUN0M4NudB7V7vFFrdhlsQKP/1ezU8zwZah76QIrR9/\ 37ANxQV1fXNaC8exzHEdd1+94z7e9NFEX2kpdyOjZvKdux5e2bRHA8IG+\ p6lWdB3XUs5iz08CeG3g1OxnsQWlSBKCor5z7zTZvaW1tHQ/gvUQikQDwzjC8N1FkFDurc/\ OtsWU7tmyZZ0SOVcWbAXClpWMalrtndYadj6Jll0Mc1dXVnwmC4AcicrrneeOqqqp+3jv/vN+\ njg68xmm/r180xkytqalpaGtrmyYiL+3vexBFXamz/\ hQxWAbFyQK0KvSK8QnTwPsA0lAGu9zoMmPM91X1bABQ1WXGmEYAp6b7zUUkCaCpra1tsYi8BeDSdL8\ HUdjKnWfzAtO+QBQ3ALoDihsPSZjvsZhpTwYbs/tibm7uo11dO//\ ufPjhh8sTicTifXnR3R0m6b9uyZIlzwH45L68NlEmKXGbT1PtWCaQEyF4RgKrarl73p/\ CzkWZYbAzCX/e1dU1GQBmzJhxeE5OznUAfjHiyYgyWPE9q/Pz28a6ClyrQDsUdpNTUA+R3V6UjKi/\ XQra9/3plmXdJyLv5eTk/Jeq/jQWi80MI1wfXjCJMkmJ0/wPpg3LAHxWFE+p+naTO/\ kN1IadjKJuyKvZ2bb9JwDPBUHwnGVZzy1ZsuRPI5xtUCxnyhS2s3bMDmPdIqrfVmCbQGoanYKHuNdM\ ++NjY3ZBEHzVsqzTjTGnq2qFbdufAPDLqBU2URSVOc1f6zRoEODTClkvsaC68eaiN7nXTAfio4Kur6\ 9vBfBI7x84jhPbvHnzbGPMMlXtBhAPKSNRZJXc9dRY05G6HcAcKN5XaFmTU7iCe82UDrscgy4pKRk7\ ZsyYos2bN09V1U+KSE1OTk5TGOGIoqzMbT4L7akGCI6D4gk/\ ZmatvPm8zdxrpnT5qKCrqqouFpEpAL6qqmsB3JJMJjeGF40ommbe+\ fhBPZ2xOwGZBeBdqE5tdApXca+Z0u2jghaRRwCsBHBSMpn8MLxIRNFV6jT/U2qH1IvgGACPduekZq+\ ad/7b3Gum4dD/EMelAL4F4HdVVVWPWZa17MEHH/\ xNSLmIImWa03KwZYK7AakCsBWi32qcX7iGe800nHYZX5s9e/\ a4VCo1WVWnADhKRFb29PSsXLZs2V9CyMe7elPoSt1150IlKSKfVMXqWI5cuWxeQSjbA41ue31Xb9u2\ cwDYAO4H0ON5Xu4wZxsqB+\ egKRTlzmPjA5Nzr0BmAPqOBpjV5BY9GnYuyg4fm4OurKw82rKs01X1dFU9HcAnALwYBMEMy7KeCy0l\ 0QgrXr3aytuUX6IwdwpwBFQf1tzuq5puuujdsLNRdvmooI0xP1PVvjMJ7+\ eJKZRtBt5BW4EtEgTnN7qT1oadjbJT/\ wv2HxtiDqLQDLyDNj66UWvswSbeC5BCtMuJKkTZYpc7aCveBvSaPA2WeO7k3d7BnmgksKAp6+\ ws5rZpIu03A/JpBbYAQU2+qsdipiiJ/HQEx+\ woXf56B22dJyInQHWzCO7oGNeR5I1aKQr2eswuKjhmRweq7w7aInKTAMer4k0R3CHBmHreqJWi6mNj\ dkSjzcA7aAPaGqjsvIN2LYuZoo8FTaNOsbM6d4w1ZroGchMUx0DxP4DMPiQhS3mjVsokLGgaNebc1x\ L/4AOdIcBcVXwKgjegevn4hHmIxUyZiAVNGW9nMQcVH34QzBXI0VD8WYxWd/\ gdD61xp3SHnY9of7GgKWOVO8/mqemo/PCD4DsCOVqhfxJB1Y6gvXHNAhYzZb6MKGhOclB/xfeszh/\ TNqYqQMd3BDgSKq+rkYr8I45o8qpP6Qk7H9H+\ GjhmlxEFzXImYGcx528fa2O7fkdFJkL1D4DMzJt4xAoWM40G/\ buOY3aUEWxn7ZhOMdXaJjdAMAHAf6sG09/QcSufd89KhZ2PaLiwoCmySu56aqy0py7vBK6H4AiB/\ qcqbnhDx/6QxUzZIO0FXVlZebSIbEwmkxP7Lfu8MaYewBcB/\ BeAqz3Pe9a27dNUdZWIHAXgNVWdk0wmn093JsosO4u5Zzbae64XkcOh+\ ntRc23HSe2r1kyZ4oedj2ikpLWgKysrLzTG3AVgQv/lxpgVAO6Jx+\ NrduzYcY6IPAxgoqrOFZG7U6lUYywWmyMi1wBgQWepYufZcfnSfgU6UtdB5DAoXoXq1TtO6ljNYqZs\ lNaCFhHb9/1JlmVt6r/c87y/B4Di4uLcRCIxHsCW3lWnxOPxMs/ztldUVDRYllWdzjyUGWbe+\ fhBqR05VwId10LkE4BuUpUrO09qf4TFTNksrQWdTCbPAwDbtndZN3PmzIMsy2oFcJCqlgOAiBxeV1e\ 3HQC2bdu2NZFITNzlifj46AknOkaPaU7LwUaCOT2duEYEh6rqKwBmHR9s/\ BfXdYOw8xGNpIEjdsAIfki4dOnS7QAOqaysnGaM+\ S6AJgA9juOI67p9wQa9hT1LeXSx73j6kM6urjlQvQYiCVX9D6hUH49fPurWspgpOw3suVDG7HJzc5/\ o6elJ9n65pbW1dTyA9xKJRALAOyOdh0ZO712yr9rR1V0jkPEAfquBVh6PjY9zj5loVyNS0FVVVa+\ JSOX777//S9/3v4m/fhD4ojFmak1NTUNbW9s0EXlpJPLQyNpZzLnfDlS/LZBDFHg5COCegF+\ uZTETDW1ECtoYUxYEgZdIJD6tqi+\ oagUAiEgSQFNbW9tiEXkLwKUjkYdGxtTbmxOxbtQocLUAB0Pk1wgCt6m2aB1EBj2cRUR/\ Fflju7wOR+apcDYc2i1+jYheBcjBgL6kgbhNtQXrWcxEe4enelNald726CfQnXtNN/\ w5IjhIFRuhUttUW/AkRBRu2AmJMgsLmg7YZc7aw3LEuhY9eiVExkHxIgC3ySncwGIm2n+\ RP3TAu3pH14xbWw73e4LrAFwBkbFQ/\ EIlcJsWFP2YhzKI9h3v6k0HrMR56m9EUtdDMFuAMar6goq4KxYUPMNiJkoPHoOmfVLuNE9QwfVAahY\ E+VD8fxFxG52Cn0BE4YSdkGh0YUHTHpU7zRMCIzeo4vKdxazPA3AbncLnWMxEw4cFTUOa6Tx+ZI+\ J3RAA1QLkqeA5EwTucnfScwDAYiYaXixo2kXZLeuOgm++06NqCyQO6E8QqNvkFv007GxE2YQFTR+\ Z5rQcbZngRk2hUgRxEXlGA3Gb3MKfhZ2NKBtFfjqCY3bDb/qiDZ8MfP9GCCoB5Cr0xwaycLlT+\ ELY2YiyCcfs6CPTF234pB+k5gqkAkCuAhsAf2GTM/\ kXYWcjynYcs8tSpc7aT4mYub6fqhCRHFV9UgXuCqfoxbCzEdFfsaCzyNRFzcdYvtwE6AyI5ECxHkGw\ sMmd9MuwsxHRrljQWaDcefJYNf5N6mO6CHKgWKcBFja5hbz+NlGEsaBHsZJFTxwnvnWTij8dkJgAT/\ iBv3ClO/nXYWcjoj1jQY9CM5zm433BPAQog0hMFY8Z1YXL3aKXw85GRHsv8tMRHLPbe2WLWk7QIJgn\ KmUQWKr6L2p00YoFk34bdjYi2jOO2Y1CJc6GTxvx5wEohcBS6CMSmEWNbsG/h52NiPYPx+\ wy3PSF6z4TqJkH9UsANQpZo0GwaIU76XdhZyOiA8eCzkClzvrPisHNvmKaqAogP/\ LVLFrpFmwKOxsRpQ8LOoOUO2v/\ NjDmZgCXKQBRXaUGtzQtKHw17GxElH4s6AxQurD5RKjMV9VLAVEoHg6MuWWlc97vw85GRMOHBR1hZQ\ uf/DzUn48AU1SgEFmBALc0uYX/GXY2Ihp+kZ+OyMYxuxJn3ckiZr5Ai1VEobrCMnrLQwsm/\ VfY2Yho+HDMLsKmL1z/d77qAoFcAoUPoClQ69YV7jf/O+xsRDSyOGYXESUL1/\ 0fo2ZBoLhIVHwVXSaWubVxfsEfws5GROFhQYeodGHL34sGC6ByAaApQBos1duW1Rb9MexsRBS+\ tBd0ZWXl0SKyMZlMTuxbZtv2VwA8oKqfA/CaiNie571k2/ZpqrpKRI4C8Jqqzkkmk8+nO1PUTHPW/\ l9jLEdUJwNIqWq9Wv5tK+af/3rY2YgoOtJa0JWVlRcaY+\ 4CMGHAqocAXNfd3f10PB6f3vv1yao6V0TuTqVSjbFYbI6IXANg1BZ0qbP+\ FDHqAFIEaEpVPKPW7Y3ueX8KOxsRRU9aC1pEbN/3J1mW9bEz2jzP+1zff9fU1Cxvb2+/vffLU+\ LxeJnnedsrKioaLMuqTmeeqJjutpzqqzoiKFRFDwRLfIPbH55f+OewsxFRdKW1oJPJ5HkAYNv2kI/\ p6Oj4KoAnAEBEDq+rq9sOANu2bduaSCQmDvac/qMnmTTRUeI2nyYKJ4CeB2iPAj+ABnc01U5+I+\ xsRBQtA0fsgBH+kLCiouLQIAjmiEhp76Iex3HEdd2+\ YLsEBDKrlAGg1F37FVHLAXAuBN1QPGBZsTsemv/N/\ wk7GxFF08CeG9Exu9mzZ09IpVL3pFKpOUuXLv2wd/GW1tbW8QDeSyQSCQDvjFSe4VDurv9/\ quoAco5Cu6C4P1Bz50q3oDXsbESUeUakoCsrK89NpVLzfN8vXrp06dv9Vr1ojJlaU1PT0NbWNk1EMv\ IeedPcdf9oVBwFzlagS4A6iemdjTdPejPsbESUuUakoI0xHoBPWZa1pe/\ 4tOd5IiJJAE1tbW2LReQtAJeORJ50KXVbzoCqI8BZKtqp0PtyNPXdpbUXvBV2NiLKfJE/\ thvFU73LnXVnqkgtRM6AYocKHgwsc9fKm8/\ bHHY2IhodeKr3vlCVktqWs8TAUeBrUOyA6r2iuKuxtmhL2PGIaPRhQe+\ JqpTWrj9bFq53YOSrCnSo4u6enNTdq+ad//aeX4CIaP9E6tDBYEK73KiqlNU+eQ6MOgD+\ AartAL4faM49K9xzM3rahIiiiZcb3RNVKV3Y/A1AagVyOlTbVeT+\ WEzuWTav4C8jloOIshqPQfczzWk52BK9WN2WK0TMlwBtU+jtKQ3u/\ WHt5K1h5yOi7JPVBW3f8fQhnd1dk1SlGBqcC5G4qLar4jbkdt/\ bdNNF74adkYiyV9YVdLnz2Hi1cidDtbizq/sbgOQC6ADkCYU+\ omNzWlZcf2572DmJiLKioKfe3pwwPThfArkkgH5DFDlQtEP0MYGsyQv8Jz13ckfYOYmI+\ hu1BV3hbDi0R/\ zzFVqMLvyTiORAtE0hjwDBmh0H7diw5topO8LOSUQ0lIyY4gD2bsyu9LZHP6HduRcYSDFEzwYkport\ EF2rgTzSdXD7UyxlIoqqUTdmd5mz9rCYWBdC9BJRORsCC9BtqrJWNFgjGPfj5e5ZnSOZmYjoQGXsmN\ 2MW1sOD/zgwp3TFzgLAksVHyp0JQJZM/5Q83Td1QVdYeckIjoQGVnQfiqoBmSRAh+IYIVA1xySMM+\ wlIloNMnIgjYmttxPBb/\ uRNsza9wp3WHnISIaDhlZ0L23juLto4hoVDNhByAiosFlxBQHkHk3jiUi2leD3dk70jIuMBFRGti2r\ TzEQUQUURlb0Jm2Z828wyeTsgLMO5wyKSuw57wZW9D7Yl/+pw3XY/cF82ZW1n197L5g3n1/\ bNjvn86sWVHQRESZKPKTEZkw/oRXAAAGIklEQVT2TxYiIiIiIiIiIiIiIiKiqIv8h4TV1dXHqurr/\ Zd5nifV1dVnqup9qvoZEfm9iFy5ZMmSF8LK2ae8vDwvHo//\ s6peIiLvqmplMpl83rbt01R1lYgcBeA1VZ2TTCafj3DerwB4QFU/B+\ A1EbE9z3spiln71tu2PQnA2qhcFmCovHv6PqKWN4rb2iDDA77nebGobme7ybvb7SzyV7Pzff9MEWlM\ JpPl/ZcHQbDCGHMRgN8AOEVVVwE4JpSQ/cTj8ZsAbBWRo0WkAEA9gM+\ o6lwRuTuVSjXGYrE5InINgND/4gyVF8BDAK7r7u5+Oh6PT+/9+uSwcgK7zYry8vI8ALeHmW+\ gofLu7vsI01C5orit9f8lXFVVVS0i4wEgqtvZUHmxh+0s8gVtjDlTVZ8ZuFxEdgRBoEceeaS++\ eab3caYSFwXWlUvVtWy+\ vr6DgCP9P4BgFPi8XiZ53nbKyoqGizLqg4x5keGyut53uf6HlNTU7O8vb099PLbzc8Wubm5N6rqD0X\ klvASftxQeXf3fYRpqFxR3dYAwLbtv1XV0okTJ36td1Ekt7M+A/PuaTuLfEEDOBPAcVVVVQ+\ IyO9835/Z0NDwqqpWisjPNm/enGuM6QmC4OywgwKAiBwvIudXVVX9BMAbqlpaX1//\ sogcXldXtx0Atm3btjWRSEwMOSqAofP2f0xHR8dXATwRTsK/GirrrFmzjvd9/\ 6J4PH5qV1dXZAp6N38X9vgzj1LeqG5rve4WEcd13QAAorqd9fOxvP0Ntp1F/kxCz/\ OOTSaTZxx55JGHBEFQaVnWcgAQkbtU9YJ4PJ4nIsXGmNvCztorR1XfHTdu3AQRuUpEkr3LexzH6X9s\ NCon4AyVFwBQUVFxaBAEcwBcHVK+/gbN6vv+fQBuqKuri9otz4b62e72Zx6iQXNFdVu7/\ PLLT1bVoz3P+9d+i6O6nQ2VF8DQ21nkC7qP67rBUUcd9SqAkwBAVU888sgjn66rq+tqb29/RlW/\ FHJEAICqbsnLy1u2ePHiHQB+JiJ9x5O2tLa2jgeARCKRAPBOaCH72U1ezJ49e4JlWXW+78/xPO/\ DEGMC2G3WIgBP9n0QE5WzT4fKu7ufeZh2kzeS25rv+yUAfjRgcSS3M2DIvLvdziJf0LZt/\ 766uvrLxcXFVmtr68kAXgAAEdm4efPm02tqavLz8/O/JiK/CTkqAEBEnuzs7LzMtu0cETlTVX/Vu+\ pFY8zUmpqafFWdBiDUiYg+Q+WtrKw8N5VKrfZ9/5qlS5f+OeycwNBZPc+\ Tvj99X4ebdKeh8u7m70iodpM3qtva140xvxiwOJLbGTB43j1tZ5E/\ Bh0EQbkxJplIJE5Q1Z8HQTATAIwxs4IgWNre3v5FEXnZGDMz7KwA0NXVdX08Hq9X1btV9Q/\ GmKkA0PvPxaa2trbFIvIWgEvDTbrTUHmNMR6AT1mWtcW2bQDhF99QWaNqqLxR/\ T5283chktuaqp7Y09PzSv9lUd3OgMHzRnE7IyIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiIiLKLINdl2N\ P1+rY3/W2bTfvWzqi3Yv8tTiIRtoBnGpbmNYglPUify0OouEyc+bMIy3LegjAV3ovADTD87w/\ 2LatnufJzJkzj4nFYj8CcKyqLhSR7/\ eVd3V1dVkQBDeJyPFBEHzLGPMosHPvmtdSoHRhQdOoN9QhCcuy7gOwtLu7e3JeXt6FqvoggHMGrH8m\ Ho9/t6ura37/5wZBcLKInBYEwdeNMT/\ yPE9YzpRuLGga9QaWZl9hi8jXAVwSj8ehqgDQPuCpZwMor6ur2zZr1qzbfN+/rm/\ FuHHjnN7rJj9m23bO8H4HlK1Y0JTNrJ6enr9ZtmzZXwZbKSKpvv/2fd/qv663nImGFT8kpKylqj/\ Nycm5rqamJr+qqqq6qqrq5wMe8rSqXjdr1qzjsRf3ZFTV4IorrvjE8KSlbMSCpqzl+/\ 4cAKe0t7dvFRHbGFPZf30qlfo2gK/6vv8TAN9T1T3tNW/\ o6el5Y7jyUvbhBxpEe9B7jLkcwOWe550Sdh7KHjwGTTQE27YbVPVCAGMB/\ DYIgso9PYeIiIiIiIjC8r91h4MbbkvLTgAAAABJRU5ErkJggg==\",\"boundingBox\":{\"\ width\":360,\"height\":231,\"baseline\":118}},\"plotRange\":[58.0,72.0,115.0,\ 164.0],\"requestedImageSize\":[\"Automatic\",\"Automatic\"]}", AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{57.78125000000001, 112.55000000000001`}, DisplayFunction->Identity, Frame->{{True, True}, {True, True}}, FrameLabel->{{ FormBox["\"Weight\"", TraditionalForm], None}, { FormBox["\"Height\"", TraditionalForm], None}}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], ImagePadding->All, Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[ Part[#, 1]], (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[ Part[#, 2]]}& )}}, PlotRange->{{58., 72.}, {115., 164.}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.6836477440802193`*^9, {3.6842542353396597`*^9, 3.684254244185499*^9}, 3.696184349135406*^9}] }, Open ]] }, Open ]] }, ClosingSaveDialog->False, WindowSize->{775, 687}, WindowMargins->{{Automatic, 0}, {Automatic, 0}}, WindowTitle->"Examples for Female Heights And Weights Sample Data", 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[645, 23, 36, 0, 70, "Subsection",ExpressionUUID->"978d565b-7d9a-4d2b-a62f-e30cd955927c"], Cell[684, 25, 215, 3, 70, "Text",ExpressionUUID->"709bdf26-d5b4-4e2b-bba8-b4b2b1e1f972"], Cell[CellGroupData[{ Cell[924, 32, 325, 6, 70, "Input",ExpressionUUID->"4e516d10-d76a-42b2-9be3-3ea72c4c1065"], Cell[1252, 40, 18047, 398, 70, "Output",ExpressionUUID->"9e897ce9-36df-45e6-bae9-ec51c2a01e68"] }, Open ]], Cell[19314, 441, 204, 3, 70, "Text",ExpressionUUID->"75154bf1-bb05-412e-911e-235adcfabb14"], Cell[CellGroupData[{ Cell[19543, 448, 271, 6, 70, "Input",ExpressionUUID->"50e994e2-31a5-4dcf-8456-774c9f08e49e"], Cell[19817, 456, 26819, 552, 70, "Output",ExpressionUUID->"c0606394-2f4c-4f7a-8825-d187175aa9fa"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46685, 1014, 35, 0, 70, "Subsection",ExpressionUUID->"afcc960a-fb25-4673-a229-4a6eccb63655"], Cell[46723, 1016, 283, 3, 70, "Text",ExpressionUUID->"a610f0f1-6426-4a50-b51e-d90a941692a9"], Cell[CellGroupData[{ Cell[47031, 1023, 744, 19, 70, "Input",ExpressionUUID->"34136e2b-dcad-4628-858d-352b20cb7187"], Cell[47778, 1044, 15645, 258, 70, "Output",ExpressionUUID->"5012c6f0-e815-4294-beb8-4829bbb24094"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)