(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 121762, 2611] NotebookOptionsPosition[ 119976, 2559] NotebookOutlinePosition[ 120608, 2582] CellTagsIndexPosition[ 120565, 2579] WindowTitle->Examples for Lymphoma Marrow Transplants WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Basic Examples", "Subsection",ExpressionUUID->"c02bb95f-07da-4a30-af05-08ba8ba57c1a"], Cell["Retrieve the ResourceObject:", "Text", CellChangeTimes->{{3.6821849447840075`*^9, 3.682184951647694*^9}, { 3.6821850182913575`*^9, 3.6821850462121496`*^9}, {3.6821850885233803`*^9, 3.68218509051958*^9}},ExpressionUUID->"8db71b71-3b59-40bc-9795-\ 5e22e79b29b4"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceObject", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804517731799183`*^9, 3.6804517885604563`*^9}, { 3.6804527318597765`*^9, 3.6804527390684977`*^9}, {3.702223362604237*^9, 3.702223365226701*^9}},ExpressionUUID->"decf7a3f-628d-420b-a149-\ 5aed9c26eeca"], 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: Lymphoma Marrow Transplants\"","\" \"",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/\ Lymphoma-Marrow-Transplants"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/Lymphoma-\ Marrow-Transplants"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Lymphoma-\ Marrow-Transplants"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Bone marrow transplants for Hodgkin's and \ non-Hodgkin's lymphoma\"\>", "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: Lymphoma Marrow Transplants\"","\" \"",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/\ Lymphoma-Marrow-Transplants"], None}, ButtonNote -> "https://datarepository.wolframcloud.com/resources/Lymphoma-\ Marrow-Transplants"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Lymphoma-\ Marrow-Transplants"], "Hyperlink"]& ]}, "RowDefault"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Type: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"DataResource\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Description: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"Bone marrow transplants for Hodgkin's and \ non-Hodgkin's lymphoma\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Categories: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ TemplateBox[{",","\",\"","\"Medicine\""}, "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\"","\"oncology\"","\"lymphoma\"", "\"chemotherapy\"","\"bone marrow\""}, "RowWithSeparators"], Short], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Documentation: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ ButtonBox[ PaneSelectorBox[{ False->"\<\"https://datarepository.wolframcloud.com/\ resources/Lymphoma-Marrow-Transplants\"\>", True-> StyleBox["\<\"https://datarepository.wolframcloud.com/\ resources/Lymphoma-Marrow-Transplants\"\>", "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], BaseStyle->{"Hyperlink"}, FrameMargins->0, ImageSize->Automatic], BaseStyle->"Hyperlink", ButtonData->{ URL[ "https://datarepository.wolframcloud.com/resources/Lymphoma-\ Marrow-Transplants"], None}, ButtonNote-> "https://datarepository.wolframcloud.com/resources/Lymphoma-\ Marrow-Transplants"], Annotation[#, URL[ "https://datarepository.wolframcloud.com/resources/Lymphoma-\ Marrow-Transplants"], "Hyperlink"]& ], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Data Location: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ DynamicModuleBox[{ ResourceSystemClient`Private`typesetstorage$$ = ResourceSystemClient`Private`typesetstorageLocation, ResourceSystemClient`Private`info$$}, DynamicBox[ToBoxes[ ResourceSystemClient`Private`info$$ = ResourceSystemClient`Private`resourceInfo[ "95757a26-c6b5-4930-9c8c-fea075d13f38"]; If[ AssociationQ[ResourceSystemClient`Private`info$$], ResourceSystemClient`Private`typesetstorage$$[ Lookup[ ResourceSystemClient`Private`info$$, "ContentElementLocations", None]], Missing["NotAvailable"]], StandardForm]], DynamicModuleValues:>{}], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"UUID: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"95757a26-c6b5-4930-9c8c-fea075d13f38\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Version: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox["\<\"1.0.0\"\>", "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Size: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TemplateBox[{"53.688`","\"kB\"","kilobytes","\"Kilobytes\""}, "Quantity"], "SummaryItem"]}]}, { RowBox[{ TagBox["\<\"Elements: \"\>", "SummaryItemAnnotation"], "\[InvisibleSpace]", TagBox[ TagBox[ RowBox[{"\<\"ColumnDescriptions\"\>", ",", "\<\"ColumnHeadings\"\>", ",", "\<\"ColumnTypes\"\>", ",", "\<\"Content\"\>", ",", "\<\"DataType\"\>", ",", RowBox[{"\<\"\"\>", "\[Ellipsis]", "\<\"\"\>"}], ",", "\<\"Name\"\>", ",", "\<\"ObservationCount\"\>", ",", "\<\"RawData\"\>", ",", "\<\"Source\"\>"}], Short[#, 2]& ], "SummaryItem"]}]} }, AutoDelete->False, BaseStyle->{ ShowStringCharacters -> False, NumberMarks -> False, PrintPrecision -> 3, ShowSyntaxStyles -> False}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}, "Rows" -> {{Automatic}}}]} }, AutoDelete->False, BaselinePosition->{1, 1}, GridBoxAlignment->{"Rows" -> {{Top}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open$$], ImageSize->Automatic], BaselinePosition->Baseline], DynamicModuleValues:>{}], "]"}], ResourceObject[ Association[ "Name" -> "Sample Data: Lymphoma Marrow Transplants", "UUID" -> "95757a26-c6b5-4930-9c8c-fea075d13f38", "ResourceType" -> "DataResource", "Version" -> "1.0.0", "Description" -> "Bone marrow transplants for Hodgkin's and non-Hodgkin's lymphoma", "ContentSize" -> Quantity[53.688, "Kilobytes"], "ContentElements" -> { "ColumnDescriptions", "ColumnHeadings", "ColumnTypes", "Content", "DataType", "Dimensions", "Name", "ObservationCount", "RawData", "Source"}]], Editable->False, SelectWithContents->True, Selectable->False]], "Output", CellChangeTimes->{3.68425789236335*^9, 3.702223366261427*^9, 3.702223410390978*^9},ExpressionUUID->"c6dbdf71-d4d5-465a-a9ea-\ f1b7497a6169"] }, Open ]], Cell["View the data:", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}},ExpressionUUID->"6bd68dc1-95ca-4cd8-9066-\ 7d8a05c925e7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ResourceData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.6804518239459944`*^9, 3.680451854651065*^9}, 3.702223414411721*^9},ExpressionUUID->"1704e1fe-d0cd-44de-8f0a-\ 252b9fdb3d27"], Cell[BoxData[ TemplateBox[{TagBox[ DynamicModuleBox[{ TypeSystem`NestedGrid`PackagePrivate`$state$$ = Data`UnorderedAssociation[ "RowCount" -> 20, "Length" -> 43, "InitialType" -> TypeSystem`Vector[ TypeSystem`Struct[{ "GraftType", "DiseaseType", "Time", "Delta", "KarnofskyScore", "WaitingTime"}, { TypeSystem`Atom[Integer], TypeSystem`Atom[ TypeSystem`Enumeration[ "Hodgkin's disease", "non-Hodgkin's lymphoma"]], TypeSystem`Atom[ Quantity[1, "Days"]], TypeSystem`Atom[ TypeSystem`Enumeration["alive", "dead"]], TypeSystem`Atom[Integer], TypeSystem`Atom[ Quantity[1, "Months"]]}], 43], "Shape" -> TypeSystem`PackageScope`HeaderShape[ Association[{All, "GraftType"} -> 1, {All, "DiseaseType"} -> 1, {All, "Time"} -> 1, {All, "Delta"} -> 1, {All, "KarnofskyScore"} -> 1, {All, "WaitingTime"} -> 1], TypeSystem`PackageScope`Limited[ TypeSystem`PackageScope`ColumnShape[ TypeSystem`PackageScope`RowShape[ Association[ "GraftType" -> TypeSystem`PackageScope`AtomShape[34], "DiseaseType" -> TypeSystem`PackageScope`AtomShape[198.], "Time" -> TypeSystem`PackageScope`AtomShape[75], "Delta" -> TypeSystem`PackageScope`AtomShape[45.], "KarnofskyScore" -> TypeSystem`PackageScope`AtomShape[34], "WaitingTime" -> TypeSystem`PackageScope`AtomShape[75]]]], 20, {}]], "InitialData" -> TypeSystem`PackageScope`CacheHandle[2123074932], "Type" -> TypeSystem`Vector[ TypeSystem`Struct[{ "GraftType", "DiseaseType", "Time", "Delta", "KarnofskyScore", "WaitingTime"}, { TypeSystem`Atom[Integer], TypeSystem`Atom[ TypeSystem`Enumeration[ "Hodgkin's disease", "non-Hodgkin's lymphoma"]], TypeSystem`Atom[ Quantity[1, "Days"]], TypeSystem`Atom[ TypeSystem`Enumeration["alive", "dead"]], TypeSystem`Atom[Integer], TypeSystem`Atom[ Quantity[1, "Months"]]}], 43], "HandleQ" -> True, "RowTarget" -> 20, "Data" -> TypeSystem`PackageScope`CacheHandle[2123074932]], 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[ "\"GraftType\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"GraftType\"", 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$$, 1420260174][{All, "GraftType"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[All, "GraftType"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox[ "\"DiseaseType\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"DiseaseType\"", 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$$, 1420260174][{All, "DiseaseType"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[All, "DiseaseType"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Time\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Time\"", 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$$, 1420260174][{All, "Time"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[All, "Time"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox["\"Delta\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"Delta\"", 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$$, 1420260174][{All, "Delta"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[All, "Delta"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox[ "\"KarnofskyScore\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"KarnofskyScore\"", 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$$, 1420260174][{All, "KarnofskyScore"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[All, "KarnofskyScore"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}], Item[ Annotation[ EventHandler[ MouseAppearance[ Mouseover[ Pane[ RawBoxes[ StyleBox[ "\"WaitingTime\"", FontColor -> GrayLevel[0.4]]], {{ 20, Full}, 15}], Style[ Pane[ RawBoxes[ StyleBox[ "\"WaitingTime\"", 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$$, 1420260174][{All, "WaitingTime"}]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[All, "WaitingTime"]], "Mouse"], Background -> GrayLevel[0.95], Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["28"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[1, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[1, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[1, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[1, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[1, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"24", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[1, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["32"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[2, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[2, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[2, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[2, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["30"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[2, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"7", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[2, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["49"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[3, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[3, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[3, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[3, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["40"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[3, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"8", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[3, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["84"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[4, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[4, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[4, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[4, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["60"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[4, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"10", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[4, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["357"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[5, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[5, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[5, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[5, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["70"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[5, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"42", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[5, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["933"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[6, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Hodgkin's disease", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[6, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[6, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[6, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[6, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"9", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[6, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["1078"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[7, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Hodgkin's disease", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[7, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[7, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[7, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["100"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[7, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"16", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[7, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["1183"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[8, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Hodgkin's disease", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[8, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[8, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[8, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[8, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"16", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[8, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["1560"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[9, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Hodgkin's disease", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[9, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[9, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[9, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["80"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[9, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"20", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[9, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["2114"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[10, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Hodgkin's disease", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[10, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[10, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[10, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["80"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[10, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"27", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[10, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["2144"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[11, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Hodgkin's disease", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[11, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"1", "\"day\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[11, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[11, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[11, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"5", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[11, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["42"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[12, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[12, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[12, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[12, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["80"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[12, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"19", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[12, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["53"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[13, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[13, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[13, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[13, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[13, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"17", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[13, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["57"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[14, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[14, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[14, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[14, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["30"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[14, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"9", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[14, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["63"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[15, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[15, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[15, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[15, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["60"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[15, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"13", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[15, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["81"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[16, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[16, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[16, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[16, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["50"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[16, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"12", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[16, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["140"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[17, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[17, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[17, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[17, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["100"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[17, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"11", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[17, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["176"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[18, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[18, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[18, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[18, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["80"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[18, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"38", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[18, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["210"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[19, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["Hodgkin's disease", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[19, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[19, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[19, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[19, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"16", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[19, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Pane[ Annotation[ RawBoxes["252"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[20, Key["GraftType"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["non-Hodgkin's lymphoma", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[20, Key["DiseaseType"]]], "Mouse"], ImageSize -> {{198., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"0", "\"days\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[20, Key["Time"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation["dead", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[20, Key["Delta"]]], "Mouse"], ImageSize -> {{45., Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes["90"], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[20, Key["KarnofskyScore"]]], "Mouse"], ImageSize -> {{34, Full}, Automatic}, Alignment -> {Left, Baseline}], Pane[ Annotation[ RawBoxes[ StyleBox[ RowBox[{"21", "\"mo\""}], FontColor -> RGBColor[{33/74, 27/74, 117/370}]]], TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ GeneralUtilities`Slice[20, Key["WaitingTime"]]], "Mouse"], ImageSize -> {{75, Full}, Automatic}, Alignment -> {Left, Baseline}]}, { Item[ Deploy[ Mouseover[ Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 43 (-20), {1, 43 - -20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 20, { 1, 43 - -20 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 20, " of ", Style[ 43, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 20, { 1, 43 - 20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 43 20, {1, 43 - 20 + 1}])}]}, " "], Row[{ EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.56, 1.031}, {6.429, 1.031}, {6.429, 60.967}, {0.56, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{6.192899999999999, 30.980699999999995`}, {42.4399, 0.7526999999999973}, { 42.4399, 8.209699999999994}, {16.432899999999997`, 30.982699999999994`}, {42.4119, 53.6547}, {42.4399, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 43 (-20), {1, 43 - -20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5499, 30.980699999999995`}, { 36.7969, 0.7526999999999973}, {36.7969, 8.209699999999994}, {10.7899, 30.982699999999994`}, { 36.7689, 53.6547}, {36.7969, 61.244699999999995`}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ - 20, { 1, 43 - -20 + 1}])}], Pane[ Row[{"showing ", 1, "\[Dash]", 20, " of ", Style[ 43, FontColor -> GrayLevel[0], FontWeight -> "Medium"]}, BaseStyle -> { FontSize -> 8., FontColor -> RGBColor[ 0.5098039215686274, 0.5098039215686274, 0.5098039215686274]}], 150, ContentPadding -> False, Alignment -> {Center, Center}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.3]]], GrayLevel[0.3], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.026431741349551847`], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5778000000000001, 53.654399999999995`}, {26.5568, 30.982399999999995`}, { 0.5498000000000001, 8.209399999999995}, { 0.5498000000000001, 0.7523999999999944}, { 36.796800000000005`, 30.980399999999992`}, { 0.5498000000000001, 61.2454}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 20, { 1, 43 - 20 + 1}])}], EventHandler[ MouseAppearance[ Mouseover[ Graphics[{ EdgeForm[ Directive[ Thickness[0.05], GrayLevel[0.5]]], GrayLevel[0.5], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]], Graphics[{ EdgeForm[ Directive[ Thickness[0.05], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098]]], RGBColor[ 0.27450980392156865`, 0.5372549019607843, 0.792156862745098], { Thickness[0.023255813953488372`], FaceForm[{ RGBColor[0.481, 0.481, 0.481], Opacity[1.]}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{ 36.571, 1.031}, {42.440999999999995`, 1.031}, { 42.440999999999995`, 60.967}, {36.571, 60.967}}}], FilledCurve[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{0.5598000000000001, 53.788500000000006`}, {26.5668, 31.015500000000007`}, { 0.5878000000000001, 8.343500000000006}, { 0.5598000000000001, 0.7525000000000048}, {36.8068, 31.017500000000005`}, {0.5598000000000001, 61.24450000000001}}}]}}, ImageSize -> {Automatic, 9}, ImagePadding -> {{1, 1}, {0, 0}}, BaselinePosition -> Scaled[-0.2]]], "LinkHand"], { "MouseClicked" :> ( TypeSystem`NestedGrid`PackagePrivate`$pos$$ = Clip[TypeSystem`NestedGrid`PackagePrivate`$pos$$ + 43 20, {1, 43 - 20 + 1}])}]}, " "]]], Background -> GrayLevel[0.98], Alignment -> {Left, Top}, BaseStyle -> {ContextMenu -> { MenuItem["Hide", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1420260174}, 1, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 10 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1420260174}, 10, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 30 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1420260174}, 30, {}]], MenuEvaluator -> Automatic], MenuItem["Show up to 100 rows", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1420260174}, 100, {}]], MenuEvaluator -> Automatic], MenuItem["Show all", KernelExecute[ TypeSystem`NestedGrid`PackagePrivate`adjustLimits[{ TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$path$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$, 1420260174}, 100000000, {}]], MenuEvaluator -> Automatic]}}], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, 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$$, 1420260174][ 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$$}], DynamicModuleValues :> {}], TypeSystem`NestedGrid`PackagePrivate`$posCell$$, TypeSystem`NestedGrid`PackagePrivate`$topBar$$ = Dynamic[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ 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$$, 1420260174]]]], TrackedSymbols :> {TypeSystem`NestedGrid`PackagePrivate`$path$$}], TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$ = Framed[ Dynamic[ Replace[ MouseAnnotation[Null], { TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][Null] -> "", TypeSystem`NestedGrid`PackagePrivate`$SliceMarker[1420260174][ 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`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}, { TypeSystem`NestedGrid`PackagePrivate`$topBar$$, TypeSystem`NestedGrid`PackagePrivate`displayScrollBar[ TypeSystem`NestedGrid`PackagePrivate`$grid$$, TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$pos$$], TypeSystem`NestedGrid`PackagePrivate`onDesktopShow[ TypeSystem`NestedGrid`PackagePrivate`alignBar[ TypeSystem`NestedGrid`PackagePrivate`$state$$][ TypeSystem`NestedGrid`PackagePrivate`$bottomBar$$]]}], Spacings -> If[TypeSystem`NestedGrid`PackagePrivate`$path$$ == {}, 0, {{}, {0, 0.05, 0}}]], StandardForm], ImageSizeCache -> {641., {289., 294.}}, TrackedSymbols :> { TypeSystem`NestedGrid`PackagePrivate`$state$$, TypeSystem`NestedGrid`PackagePrivate`$grid$$}], BaseStyle -> {LineBreakWithin -> False}, 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.68425789251635*^9, 3.702223415802623*^9},ExpressionUUID->"9acd237a-cf8d-48f0-87ab-\ d9b63fad5698"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Visualization", "Subsection",ExpressionUUID->"f5c7c6cf-8410-4990-a84f-d385d6048ddf"], Cell["\<\ Compare transplant waiting times for non-Hodgkin\[CloseCurlyQuote]s lymphoma \ and Hodgkin\[CloseCurlyQuote]s disease:\ \>", "Text", CellChangeTimes->{{3.682184974529982*^9, 3.6821849772962584`*^9}, { 3.6821850234008684`*^9, 3.6821850240499334`*^9}, {3.6821850586563935`*^9, 3.6821850629428225`*^9}, {3.6834789653662105`*^9, 3.683479001174791*^9}},ExpressionUUID->"bce9bed1-9893-4dba-9f12-\ 2283575b1804"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"BarChart", "[", RowBox[{ RowBox[{"Mean", "/@", RowBox[{ RowBox[{"GroupBy", "[", RowBox[{ RowBox[{ "ResourceData", "[", "\"\\"", "]"}], ",", RowBox[{"#DiseaseType", "&"}]}], "]"}], "[", RowBox[{"All", ",", "All", ",", "\"\\""}], "]"}]}], ",", RowBox[{"ChartLabels", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.68425384310439*^9, 3.6842538431123905`*^9}, 3.70222341884592*^9},ExpressionUUID->"710bb114-1a5c-43b8-a10c-\ 450149e3cb7f"], Cell[BoxData[ GraphicsBox[{{{ {Opacity[0], PointBox[{{-0.8428550619082302, 0.}, {3.8048069919883467`, 0.}}]}}}, {{}, {{ {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6859999999999999], Thickness[Small]}], {{ {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6859999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.5487982520029133, 0.}, {1.4512017479970867`, 33.53846153846154}, "RoundingRadius" -> 0]}, ImageSizeCache->{{114.24177227982422`, 179.2562043086205}, {-44.07505820604479, 104.85369212996383`}}], StatusArea[#, 436/13]& , TagBoxNote->"436/13"], StyleBox[ FractionBox["436", "13"], {}, StripOnInput -> False]], Annotation[#, Style[436/13, {}], "Tooltip"]& ]}}}, {{ {RGBColor[0.982864, 0.7431472, 0.3262672], EdgeForm[{Opacity[ 0.6859999999999999], Thickness[Small]}], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.5487982520029133`, 0.}, {2.4512017479970867`, 45.588235294117645`}, "RoundingRadius" -> 0]}, ImageSizeCache->{{185.73355208251775`, 250.747984111314}, {-97.40287285051198, 104.85369212996383`}}], StatusArea[#, 775/17]& , TagBoxNote->"775/17"], StyleBox[ FractionBox["775", "17"], {}, StripOnInput -> False]], Annotation[#, Style[775/17, {}], "Tooltip"]& ]}}}}}}, {}, {}}, {}, {}, {}, {}, { StyleBox[{ StyleBox[{{{ {Thickness[ Tiny], {LineBox[{{-0.8428550619082302, 0.}, {3.870688128186453, 0.}}]}, StyleBox[{}, "GraphicsLabel", StripOnInput->False]}}}, StyleBox[{{{ {Thickness[Tiny], LineBox[{{0.5487982520029133, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {0.5487982520029133, 0.}]}], LineBox[{{2.4512017479970867`, 0.}, Offset[{-1.102182119232618*^-15, -6.}, {2.4512017479970867`, 0.}]}], {{}, {}, { LineBox[{{1.4512017479970867`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {1.4512017479970867`, 0.}]}], LineBox[{{1.5487982520029133`, 0.}, Offset[{-7.347880794884119*^-16, -4.}, {1.5487982520029133`, 0.}]}]}, {}}}}}, StyleBox[{{ {Thickness[Tiny], InsetBox["\<\"non-Hodgkin's lymphoma\"\>", Offset[{0., -2.}, {1., 0.}], {0, 1}, Automatic, {1, 0}], InsetBox["\<\"Hodgkin's disease\"\>", Offset[{0., -2.}, {2., 0.}], {0, 1}, Automatic, {1, 0}]}}}, "GraphicsLabel", StripOnInput->False]}, "GraphicsTicks", StripOnInput->False]}, Antialiasing->False]}, "GraphicsAxes", StripOnInput->False]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{False, True}, AxesLabel->{None, FormBox[ TooltipBox[ StyleBox["\"mo\"", ShowStringCharacters -> False], "months"], TraditionalForm]}, AxesOrigin->{-0.8428550619082302, 0.}, CoordinatesToolOptions:>{"DisplayFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ Identity[ Part[#, 1]], Identity[ Part[#, 2]]}& )}, FrameLabel->{{None, None}, {None, None}}, FrameTicks->{{Automatic, Automatic}, {{{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 1., FormBox["\"non-Hodgkin's lymphoma\"", TraditionalForm], 0}, {2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox["\"Hodgkin's disease\"", TraditionalForm], 0}}, {{1., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}, { 2., FormBox[ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {0, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[0], Selectable -> False], TraditionalForm], {0.004, 0}}}}}, GridLines->{None, None}, GridLinesStyle->Directive[ GrayLevel[0.5, 0.4]], PlotRange->{{All, All}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks->{None, Automatic}]], "Output", CellChangeTimes->{3.684254336725747*^9, 3.6842579114943495`*^9, 3.702223420002584*^9},ExpressionUUID->"c86ed40a-2232-448d-a06b-\ ca0b42543c42"] }, Open ]] }, Open ]] }, WindowSize->{775, 701}, WindowMargins->{{136, Automatic}, {Automatic, 0}}, WindowTitle->"Examples for Lymphoma Marrow Transplants", Visible->True, DockedCells->{}, TaggingRules->{"NotebookTemplateVersion" -> 1.}, CellContext->Notebook, ShowCellTags->True, Background->GrayLevel[0.9999], FrontEndVersion->"11.1 for Linux x86 (64-bit) (March 7, 2017)", StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "CreateDataResourceStyleSheet.nb", CharacterEncoding -> "UTF-8"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[634, 23, 91, 0, 70, "Subsection", "ExpressionUUID" -> \ "c02bb95f-07da-4a30-af05-08ba8ba57c1a"], Cell[728, 25, 272, 4, 70, "Text", "ExpressionUUID" -> \ "8db71b71-3b59-40bc-9795-5e22e79b29b4"], Cell[CellGroupData[{ Cell[1025, 33, 346, 6, 70, "Input", "ExpressionUUID" -> \ "decf7a3f-628d-420b-a149-5aed9c26eeca"], Cell[1374, 41, 18664, 412, 70, "Output", "ExpressionUUID" -> \ "c6dbdf71-d4d5-465a-a9ea-f1b7497a6169"] }, Open ]], Cell[20053, 456, 261, 4, 70, "Text", "ExpressionUUID" -> \ "6bd68dc1-95ca-4cd8-9066-7d8a05c925e7"], Cell[CellGroupData[{ Cell[20339, 464, 266, 5, 70, "Input", "ExpressionUUID" -> \ "1704e1fe-d0cd-44de-8f0a-252b9fdb3d27"], Cell[20608, 471, 92200, 1897, 70, "Output", "ExpressionUUID" -> \ "9acd237a-cf8d-48f0-87ab-d9b63fad5698"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[112857, 2374, 90, 0, 70, "Subsection", "ExpressionUUID" -> \ "f5c7c6cf-8410-4990-a84f-d385d6048ddf"], Cell[112950, 2376, 424, 8, 70, "Text", "ExpressionUUID" -> \ "bce9bed1-9893-4dba-9f12-2283575b1804"], Cell[CellGroupData[{ Cell[113399, 2388, 659, 16, 70, "Input", "ExpressionUUID" -> \ "710bb114-1a5c-43b8-a10c-450149e3cb7f"], Cell[114061, 2406, 5887, 149, 70, "Output", "ExpressionUUID" -> \ "c86ed40a-2232-448d-a06b-ca0b42543c42"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)