(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 13.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 1488643, 29318] NotebookOptionsPosition[ 1465623, 28831] NotebookOutlinePosition[ 1467387, 28883] CellTagsIndexPosition[ 1467344, 28880] WindowTitle->QuantileRegression | Example Notebook WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[{ "Basic Examples", "\[NonBreakingSpace]", Cell["(5)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->462042388], Cell["Make a random signal:", "Text", TaggingRules->{}, CellChangeTimes->{{3.780092494817978*^9, 3.780092532572364*^9}, { 3.7803369045752287`*^9, 3.780336905586763*^9}}, CellID->13078159], Cell[BoxData[{ RowBox[{ RowBox[{"SeedRandom", "[", "23", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"n", "=", "200"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"randData", "=", RowBox[{"Transpose", "[", RowBox[{"{", RowBox[{ RowBox[{"Range", "[", "n", "]"}], ",", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "100."}], "}"}], ",", "n"}], "]"}]}], "}"}], "]"}]}], ";"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.780089208676652*^9, 3.78008922676582*^9}, { 3.780090124340819*^9, 3.780090184146447*^9}, {3.780090251313642*^9, 3.780090264226801*^9}, {3.780090462156766*^9, 3.7800904870769043`*^9}, { 3.7800905291105328`*^9, 3.780090570191724*^9}, {3.780090781453969*^9, 3.780090871284848*^9}, {3.780090909550682*^9, 3.780091017776836*^9}, { 3.78009109623806*^9, 3.780091181931394*^9}, {3.780091586632161*^9, 3.780091595539405*^9}, {3.780091825218638*^9, 3.780091834342745*^9}, { 3.7800922062588167`*^9, 3.780092236261367*^9}, {3.780092308759981*^9, 3.7800923333739243`*^9}, 3.780092536030077*^9, {3.7800927601137877`*^9, 3.7800927660344677`*^9}, 3.78009668665062*^9, {3.780130562119527*^9, 3.7801305648517103`*^9}}, CellLabel->"In[1]:=", CellID->443871870], Cell[TextData[{ "Compute ", Cell[BoxData[ StyleBox["QuantileRegression", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], " with five knots for the probabilities ", Cell[BoxData[ FormBox["0.25", TraditionalForm]]], " and ", Cell[BoxData[ FormBox["0.75", TraditionalForm]]], ":" }], "Text", TaggingRules->{}, CellChangeTimes->{{3.780092537883581*^9, 3.780092577789139*^9}, { 3.780093364327034*^9, 3.780093382640505*^9}, {3.78033442892669*^9, 3.780334428926777*^9}, {3.785786754470047*^9, 3.7857867632154136`*^9}, { 3.858679973804859*^9, 3.858679976906979*^9}}, CellID->1694020473], Cell[BoxData[ RowBox[{ RowBox[{"qFuncs", "=", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["QuantileRegression", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["QuantileRegression", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/QuantileRegression"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "QuantileRegression"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["QuantileRegression"], BoxID -> "QuantileRegression", Selectable->False], "[", RowBox[{"randData", ",", "5", ",", RowBox[{"{", RowBox[{"0.25", ",", "0.75"}], "}"}]}], "]"}]}], ";"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780089208676652*^9, 3.78008922676582*^9}, { 3.780090124340819*^9, 3.780090184146447*^9}, {3.780090251313642*^9, 3.780090264226801*^9}, {3.780090462156766*^9, 3.7800904870769043`*^9}, { 3.7800905291105328`*^9, 3.780090570191724*^9}, {3.780090781453969*^9, 3.780090871284848*^9}, {3.780090909550682*^9, 3.780091017776836*^9}, { 3.78009109623806*^9, 3.780091181931394*^9}, {3.780091586632161*^9, 3.780091595539405*^9}, {3.780091825218638*^9, 3.780091834342745*^9}, { 3.7800922062588167`*^9, 3.780092236261367*^9}, {3.780092308759981*^9, 3.7800923333739243`*^9}, 3.780092536030077*^9, {3.780092785226672*^9, 3.780092797118091*^9}, {3.780093260127633*^9, 3.780093264107644*^9}, 3.7800966905203114`*^9, 3.7801305737202177`*^9}, CellLabel->"In[2]:=", CellID->1910655430], Cell["Here are the formulas of the obtained regression quantiles:", "Text", TaggingRules->{}, CellChangeTimes->{{3.7800924753324957`*^9, 3.7800924902259483`*^9}, { 3.78033443880182*^9, 3.7803344447651453`*^9}}, CellID->2001378160], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "/@", RowBox[{"Through", "[", RowBox[{"qFuncs", "[", "x", "]"}], "]"}]}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.7800901884594316`*^9, 3.780090230734413*^9}}, CellLabel->"In[3]:=", CellID->973059540], Cell[BoxData[ RowBox[{"{", RowBox[{ TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0.`", RowBox[{ RowBox[{"x", ">", "200"}], "||", RowBox[{"x", "<", "1"}]}]}, { RowBox[{"3818.7847249915`", "\[VeryThinSpace]", "-", RowBox[{"70.59990387532112`", " ", "x"}], "+", RowBox[{"0.43316288196676034`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0008757723390678317`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{ FractionBox["801", "5"], "<", "x", "\[LessEqual]", "200"}]}, { RowBox[{"4099.0541288913655`", "\[VeryThinSpace]", "-", RowBox[{"75.84839458505643`", " ", "x"}], "+", RowBox[{"0.4659249962597398`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0009439415323532654`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{ RowBox[{"5", " ", "x"}], "\[Equal]", "801"}]}, { RowBox[{"84.2683188002546`", "\[VeryThinSpace]", "-", RowBox[{"0.5016368872052022`", " ", "x"}], "-", RowBox[{"0.005762324600798029`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.00004127324858251942`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{ FractionBox["403", "5"], "<", "x", "\[LessEqual]", FractionBox["602", "5"]}]}, { RowBox[{ RowBox[{"-", "62.90780464422164`"}], "+", RowBox[{"4.976382595839821`", " ", "x"}], "-", RowBox[{"0.07372782687182809`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.000322354730265853`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{ FractionBox["204", "5"], "\[LessEqual]", "x", "\[LessEqual]", FractionBox["403", "5"]}]}, { RowBox[{"34.90166049044879`", "\[VeryThinSpace]", "-", RowBox[{"2.2154898405330044`", " ", "x"}], "+", RowBox[{"0.10254355637260394`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0011177709498357156`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{"1", "\[LessEqual]", "x", "<", FractionBox["204", "5"]}]}, { RowBox[{"110.68084486274336`", "\[VeryThinSpace]", "-", RowBox[{"1.159756307366882`", " ", "x"}], "-", RowBox[{"0.0002962164599202982`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.000026140058823721722`", " ", SuperscriptBox["x", "3"]}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True], ",", TagBox[GridBox[{ {"\[Piecewise]", GridBox[{ {"0.`", RowBox[{ RowBox[{"x", ">", "200"}], "||", RowBox[{"x", "<", "1"}]}]}, { RowBox[{"506.1873008371448`", "\[VeryThinSpace]", "-", RowBox[{"14.13710010452489`", " ", "x"}], "+", RowBox[{"0.1428098486703393`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.0004564636295947824`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{ FractionBox["403", "5"], "\[LessEqual]", "x", "<", FractionBox["602", "5"]}]}, { RowBox[{"983.6899016980851`", "\[VeryThinSpace]", "-", RowBox[{"15.243865326953879`", " ", "x"}], "+", RowBox[{"0.08464182566497819`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.00015526357101398446`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{ FractionBox["801", "5"], "\[LessEqual]", "x", "\[LessEqual]", "200"}]}, { RowBox[{"59.67557906755165`", "\[VeryThinSpace]", "+", RowBox[{"1.195190328126067`", " ", "x"}], "-", RowBox[{"0.015866771900576906`", " ", SuperscriptBox["x", "2"]}], "-", RowBox[{"0.000057996728507930134`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{"1", "\[LessEqual]", "x", "<", FractionBox["204", "5"]}]}, { RowBox[{ RowBox[{"-", "759.529309544293`"}], "+", RowBox[{"17.400689190693658`", " ", "x"}], "-", RowBox[{"0.119131922884632`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.0002687350734920707`", " ", SuperscriptBox["x", "3"]}]}], RowBox[{ FractionBox["602", "5"], "\[LessEqual]", "x", "<", FractionBox["801", "5"]}]}, { RowBox[{"24.222444204618753`", "\[VeryThinSpace]", "+", RowBox[{"3.8020384798123104`", " ", "x"}], "-", RowBox[{"0.07976010895171029`", " ", SuperscriptBox["x", "2"]}], "+", RowBox[{"0.0004640076591647279`", " ", SuperscriptBox["x", "3"]}]}], TagBox["True", "PiecewiseDefault", AutoDelete->True]} }, AllowedDimensions->{2, Automatic}, Editable->True, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.84]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}, Selectable->True]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.35]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], "Piecewise", DeleteWithContents->True, Editable->False, SelectWithContents->True, Selectable->False, StripWrapperBoxes->True]}], "}"}]], "Output", TaggingRules->{}, CellChangeTimes->{{3.780090206373105*^9, 3.780090231355466*^9}, 3.7800902679674263`*^9, {3.7800904658399973`*^9, 3.780090490626317*^9}, { 3.780090554167499*^9, 3.780090573622671*^9}, 3.780090783670001*^9, { 3.780090917545183*^9, 3.7800910218451138`*^9}, {3.780091109913517*^9, 3.780091183214184*^9}, 3.780091596926457*^9, {3.780091828229432*^9, 3.7800918357662077`*^9}, {3.780092200733347*^9, 3.780092239503593*^9}, 3.7800923370133743`*^9, {3.780092769160801*^9, 3.78009279935973*^9}, 3.78009326622432*^9, 3.7800966932117033`*^9, 3.7800970657976847`*^9, 3.7801304612866383`*^9, {3.780130554524935*^9, 3.780130582502707*^9}, 3.780130639544091*^9, 3.780138376441712*^9, 3.780330649693653*^9, 3.780334119293098*^9, 3.780336765978767*^9, 3.782464171261855*^9, 3.782651012811131*^9, 3.782652575949196*^9}, CellLabel->"Out[3]=", CellID->2081944835] }, Open ]], Cell["\<\ Here is a plot of the original data and the obtained regression quantiles:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.780092439263586*^9, 3.780092470978085*^9}, 3.7800970763176413`*^9}, CellID->1912686119], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{"randData", ",", RowBox[{ RowBox[{ "qFuncs", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "/@", RowBox[{"randData", "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}], ",", RowBox[{ RowBox[{ "qFuncs", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "/@", RowBox[{"randData", "\[LeftDoubleBracket]", RowBox[{"All", ",", "1"}], "\[RightDoubleBracket]"}]}]}], "}"}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "0.25`", ",", "0.75`"}], "}"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thin", ",", "Thick", ",", "Thick"}], "}"}]}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}]}], "]"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.78009026858465*^9, 3.780090355568449*^9}, 3.7800904537894783`*^9, {3.7800905812936993`*^9, 3.780090700349174*^9}, { 3.78009073833045*^9, 3.780090795412019*^9}, {3.780092593946312*^9, 3.780092647913769*^9}, {3.7800928172788277`*^9, 3.780092837270083*^9}, { 3.780093275686936*^9, 3.780093291502625*^9}, {3.7800966964954643`*^9, 3.780096702218973*^9}, {3.780097041947589*^9, 3.78009710819908*^9}, { 3.780130644965616*^9, 3.780130659125646*^9}}, CellLabel->"In[4]:=", CellID->1110694998], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Tiny]], LineBox[CompressedData[" 1:eJw1VgdUlFcWRiJKFGVUmqE4CCIiUgSRovLREYY2M/T2z8DQRCyLqCQbf9tR UGJDQYxxMLhRF4EoEgRc/z2HKFHsiIiuDAHXEgu4FiyYJcf7OIfD+bjvvvtu +b77WyqXSVXaWlpabSO/f/39/DPgXec7v2LJ0nDQP+A+NOPPFsVCwroo3zy7 5nWQN2EREqq+3LjbIoawAV4VrZetPOhD2ATTd2Xr5xhHEjZDo6Njk8PYxYTF 0JrvcLnL+qb3Zzwdro47yk33epHdGk/Xrun1LHQibINrQ1FLiz5JCNui/EGF S7HNPMJ2EGXvGXfTCYTt8d9tK9bNehNN2AED9566nPaMI+yEXJ3RM3VMAwg7 o0NvV7HoVhjhuZCXDNq8WhJC2AVDVmcjvn62gLAr2iqtal19nQnPwxqj9smN tcGE3fBkecfPd5Us/nxYFGR5jDFk8d3BO1/N9Op2JOyBunU21YnCTMKewAfc jhZkhL2gzr3KXV3H6rcAnMNL/d59LoQXIv32hLyVeuy9i1Bu31G5iV9E2BuS 6y4HHF/LCQNJf1tUPfgF9ZsHbI1Hu7+6xuw+iCxs7j/aGkp2H3zS80m9spP1 2xdaMSvW9g1Sv3lfbJ8q0tvoHEt2P2DChYYzkyzJ7gfrnQt2GN+LILs/xpie avm+nPLj/RGsPjSDb44iewCeNKkM3aVSsgfAYHHg+IUywlqBaCxpW/tgCfMP RH3P8JacXva+IOw++1BdOpXmjw+Cu+PN/J+fB5E9GNxFS1fjHdR/fqRvc1d3 D45i87MYcfHhbQp4kn0xSldr8l8M+JM9BF1oeFrZ6kH2EFR3qJZO3czmKRTB w17arQeo/3woBqKedU4JY/MtQen4E/lcO93HS8AfX8FV/mFM9jA8EU4X5vhR PnwYDN41FZ48x/ofjtFh6v7z1ux94eDLxzlt7O4nPkXASbus1seQ9TcCpfbP //UkleUficiSng9vuv0+Y0RizR/ezgZ9rN+ReOPo9mzmeIovRML6q676DePY fEeh3SW04lEV1QtRyBrlsUowDyT/KCQ97vF0sKb4QhQ4p51cqiWrjxQ5c/ad /Pt76jekMJF3XzHdRJiXwlpnn/G5ZcRvQQr/bZc8qipYfBmcnmhyFtSz+DJI 5hpdGbOB6sPLoFu+sG1gDunVCI/4krd1sWWsv3Jo6vtlk89RvpBDbJIomZHP 5lUOydWwVZ88qT6CHBbS0z0BkWw+o6H+VdSe+4m9PxrfZsd01NQSf/hoaN43 vY3wpHoI0Vju3H3sP2EW5B+D9ud7R52vYfWPgajww4sTd+zIPwZcyOmV2v8k vRNi4DDom20hYXoaiytbhjoNjYgPiIVQ9PS4/Dbrd+wIwd13nok3If9YBDuX XJBFsfmNQ7vppEyMZfnHYav30LRd+qQnfBweNaXdzDJj+cdh+/1awVQ+n/zj oWlp1u2MtiX/eCy305shtbMi/3iIKmceSWghfRTiId9vIlpWxvwTIB6yiv+2 gPQPCXh0cK33pZ/cyT8B6vtv7nblG5B/AuJ0tyTvaGT7KBGteX3Rt8xpPpGI ClFL7EQ3xvdEqI8po+UpY8k/ER1vX7ysLGP6lgT1Nddi21od8k/Coyvmma4y xsckBMv9puF/dJ+QBGvp7T1VFUxfk+G6RDi/yoL2BZJx9NNkh31qmi8+GeGJ s43zdBh/ktFYUH5x0o9M/1KQEvDb8ER/2gdIgRa+OK5b9/Ezf/kRfKHhKJ/E /FNg69agc/wQ638qhlZrO9cHWZN/KvjojgLNHRHFT0Vhcl7kd5NJj4VUVDUo yr09WP85lN/vi7kuIz0Qcwi+mz2PP0H9AwexNPBIhoTOcxxEVjH8upN0H8+h ofRo15IdpG9qDo8UR/5h7uhG8Ti0/P7NiuIUer+GQ2vo7i8vdjL+KdC27d+z 09g+FivQVHinWPsO6TkU2H5hzfzeYdILToG6U6/LDB3nUHwF7imDsu0DiB/q Efv5uneCIdkFBbjTl9YXcTT/GgUq7MT7clvZPlWivvqBUlhN94uVCDfJtttu zvisxOHFp3wWzaB54ZT45lDzQZkN8YFXQvzm5Rl15XiKr0S7nv8UWQrNg6CE pOfE5gOr6LxGiaH2vUb5l+dS/DS4t/QuvZ1oQ/HT0DX61i+/iVn+adC6d9Pi o589xU8D32xlN82XzcfI+T3qF80q0gt1GmycUvPsbUkPhDTkubt16vYR1qTh cFeNYsVuln86vns88NXFMuqnOB0ip+H8OgOaB6TjafHgx9UdpA9cOr7Xluk4 jGH7Nh3VL9Tr9vfQ/len46j52fXjOlj8dOzm+yJy9Ki/mnRkWBk3dZYz/VRB GJhjWf2Q6itWQX3EcfmeWaT3UKEr5NhU/wPEN06F3Fn971o92PeGCgPK7j36 N9j8jZxvHNV3zIjxRQVN4KFhgy7ih0YFietQbIs76YtWBrKkvqeM22mfiDNg ZvlnYSjbl8iAXrhzkf5+X4qfgaHHN35yNxNT/AxsrfZflbOVzV8G6m0jo3Rq iC9CBjRFZj+srx5N8TNg0ZL3vmACyz8T73vPlvwyhfgszsT2vsKN7U2kl8hE Uv/DUyFr6T1cJuJ2hQd21zJ9z0SGV1lcohnLPxO+xZd75BepP0Im7j1/W1ln RPdrMtG+vLHmcT37PsrCgsrpiQeL6bx4BJcmrLErpX2FLFhUbQhxuU7zwWWh ruDXokVekyh+Fj5ym47PuUH5qLPgP3FU7a1etq+zkPt7nczkMOm9Jgulhtpf G9iy7/dsdP54ZOvlH2T4P8UXbXk= "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], LineBox[CompressedData[" 1:eJw1lgs41Okex0e6OrXUSHooUwkxieiCypcMEXLJ/TJj7m15WJdTWZt/zqLL 2dNBbUmXiW4kHtG2XTiTcird7Go7tdUk2pCKqSil7XSe83vneeaZ5zPf+f7f eX+3950hTQlTjODxeFe/vP/3+f9Xv+dvlk0Dt+UAfYG7XZurFzxeRjwWbwtF Hx/OXkpsglZh0EpdqQexKVxPmpnneroTm6N3jOCBibEbsSWanLsmtI1dTCxA jtXzORMdFhHPxNvmo8f5GQuJrfF0aqnhrI4FxDYQmIjqC9IZ2yF1/0zXbTaM 7XHwp9rhtCFXYiE2hKQWbHvO2BFXxA+Dpr5n7ITI++nXVALmd0ZfbX16YxLj +RDrLP+tOMfYBanh9u5H7dj/c0XvqDj/q5WMF2Dfc2GyqSfbz0KEDE6zautk vAi3p1XdC9zN9r8Yf0RE8FuiWHzckFi8e0XxLBY/dxhc79f3v2fsgQN63RaH uyzeSzD88XH+9rNLiJeiS/eNIuYQy88yCHdMOvBoO8ufJ4oMUClZ70kMZEy+ sHmyM+WbAz7k7Cv0PsLy74VL7tzFuClepHvBBTbBefnEPG/UbAvK6NQz3RsH TE+n7o32Jn055PcsuFtnibnlULXicbnpctJ9MP5dR8syNTHng7Q0ZfulOqaL 8HH/u+Zjg0wXYXB//6mJzj6k+2L4+8ExXjJizheHFdWzM39guh9ywxrWvaxh uh/mJV5d2tPC9BVAacbQMR3TV8DfUsVb08t0f/zxxqdurZ7p/qhwrUvr62d6 AOz1kQddnjM9AAZLfitZ/4jpK3HRtq3pA1uPWwnDKwNZw6eYHohEYcfMC7uY Hgjl10stNqYzPQh1xVWX0wKZHoQH5+7kdAuYHoz017Enp+pZfIJhFvT0pKiB xW8VIh9N7jiRx/RVaDm9s3J7ANNDML5nlNp6PDFCUL31q29Pt7B8hWBFZbjP pnxibQjSErKsGz2JeaHQnrbNrh+k/CMULc28Ks0JVg+hsNNUmjYlEmtDkRzV YhZtwuonDE5/juSXaaneEAajY5/XPE5h9RiGHXJx9qrpxNowVBcVRcj2sPoN R//tyye2vaH6RjhMjh68UBxMzIXDwz3Z/1MF9YM2HAdr1/N9R7P+WA2187iH L2TUP1iNziv7FqZcov7iVmO45/cnlrOJtasRNm4S32gr68cI+FYOjPTro/5F BBDq9rqT9TMXgcO5/5ysb6J+10bgflN1xSYn1v+RWP6jX88+Dc0HREK0+Svj eD4xFwn/sWcibmyh+aKNRG3N23efeGzeRKHzY5aTQTbNJ0TB55tPbs/Y/OOi sHjnvFUNWcTaKNj1XK788U8X8kcj821qQW4eMaKR795lVWhMzEWjyfNB9a/7 5pM/Gtu38FKi5hLzYuBXYlQ676Iz+WOQMFiVvDaamIuBs3XpDIs3TuSPwZxj W/TBhcS8WBw3nGM+xYUYsXDMFmvG1M4jfyxqTmuOBxgSa2NRdiG7cUqCI/nj 0FoSG7WjcS754zAi8lD3L7bEXBxGfzjT9XmPkPxxKPvHqBa3ScS8eBy21I/U FDuQPx53q55MCJ9GzMXDYMWy2PQae/LH4/VgsnhGADEvAalN/yn67uUc8ifA t65jzfESYi4B3r8OxDQFE2sTYG+34V7veGJeIm40tMaK7tiRPxG95j93vzpM zCVCZ9ggGJFDrE1EQLLxqWIpMU+Mn+rFDj+vYn4xTrolWnzvy/xi1MadNxnv x/xiBGfZ7pWHMr8ERgNhvmUKYoEE6xxeld//G3ueBB+zK7ysqoglEsB/QXWB jj1fAm2f1wZbC9qPRoLRrTmOfCnbrwR7/A+KxXXE7RIMnw/ZKzBm8UvCuXyf 5LWZxIIkxI1zUK1+RowkyMvrzfqTKB+SJEjqC43Cu1l+ktBWmvZL4UbKpyYJ vmfHfNBOpvxrk+C9zoA/cIG4PQkBpiYnvFNY/UjxwuRpSKOQ6ksgxfGLc4uz B4ghxahLwbxrcqpPiRS3dPrirXeIOSn6ZPdWGgVQvWukmJcbmxLRTKyVImRN qyjTl/qlXQoz/yKzjJusf2QQhb63i4+lfhPIUFYbe3nRS9aPMrwqmeg0MZ/6 V/KF3TLrXltTv3MyqC8+2vXsGrFGBgtJ+fR37P6kleG2aPouRxuaJ+0y+JUd xe5H7D4ih8+RnWqPUppHAjkc7DpMxojZPJPj1c3y4tF2NO8kcojPN/+l4y0x J8ebUhsLr8s0HzVyWFkckV3fSfNUK0fiU6sCOwXN23Y5BOWZtjxXdh9R4MmI vGdDn4kFCvBrhMqGKzTfocDuitnWQz40/yUKRNwUT9GUsfNBge/M6xNsh4k1 Clxvn3i1I4SdNwp8+FZta6Mhbleg2fNYoKiHnT9KdG1uGLvTwZvWV8Jyz16h UkkMJazuzd1qXEIsUaJyt7Kvs4mYU2KD0NVpUSexRgm/F3mWCUPEWiVuCVfm VYyk87VdiRvL0z1SGfNUGMp/aTzqPVtfhUmBFW3ndWx9Fdq6d0V1n2Hrq/Dm VNk6XS5bX4X5vH916pex9VXwt/n9h7/2sv1/+X1Wp4e2gO1fhefhLY0z+Wz/ arwYvalL/3eKn0ANeduDCYY9LP5q9JdPehhQRPmRqKG3z3kgNaV8cmro+Lzq 18ks/2o4GmUMHNpP9aNVI+rs2XDzMlZ/aty8UfP1p43sPr0G4/pdH76f5YL/ AiS6cS0= "]]}, { Hue[0.1421359549995791, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]], LineBox[CompressedData[" 1:eJw9lgtYzOkex0fFiZS2I0tFbfaUTdKV0OW76H6d6TLdm/tMUalN6LQZJZeU 4hxKLFmUUCsGOUenya4WraPbRpu2DpUiot0NHcs6z3l/zfPMM89nvvN9vu/8 3t/vff+fiFJ4Ug0Oh3Pzw/t/n/9/vXB/bJVZsC4pEOwLOHhWblnNCWKsjfCq JPXYXmJ9GB/syaqbGcx4NuLa3XrvBxHPhXhza3tHMbEJzFJnVlbcJTbDzirZ Ke+ZXMbmKNTlG1/yJP4Un+wODRvMJrbACu3OY50q4kVoyuB5KYeIrVCvRmnP PB5ja8xq+7h3yJvYBucPBiqObCS2xf6JaOXYMWI7VA1f/mLge2J7PA7q3Jvy jNgBbvPsFuzRD2HsiJN2bsn2dsRO0M5Lb44PIl4G4XvfHN11xMtxtMC512k7 sTNUc1U27WXEK1BS5FjfW0O8Es49tvfC1MSrsPuZ6a2ld4ldoDy3uVfeTewK 3WkXZK/7id3wl8HVZ7ufErvjqvPXb3ReEAP/GvY8mvuSsRKwGKgccJnUP8ej OS4m9iOkf47hxMy9sQOkr4bVna5dVylfuRpln7XyMbm+NbBef89rpIH0NWhV ik9dqSZ9LbJDRq4dKSV9LUab148cUJLugeeh1n8+JyXdA78XByZpe5PuCX3D 8ZL7lqR74uMMD1vfqaR7YapPfHt+H9s/pRdumcsW3LxK++mNsNKsmqX7SPfG YbcbZqMy0n1QcEZk4LiKdB8YpW4ys9Yj3RfOlhZDWn2s/5S+6BDumzZynvrR Dw8vdc+dtY10P/DqLK8dDibdH3PelRQ2mJLuD1OTIKvTz2k+AiCoTFmaW89Y GYBbjiYrswtID4Rf5KbHTdGkB6Kr6kRH/mLSgz7Mx07X0VdsXpVBuOLx642N ZTS/wZA/acvScmeMYNTtVRwZH2DzrwxGccxEXGURY3UwfvjyzrtUFzofuAgz sbxcOxLA/FzMEPk3NJYzVnLRujkn9PcIxmou8vP1zjcYMubwYNToNFNyz5/5 eRB6up7wOMpYyYPH2sRvGhIZq3mo6J+ybokrY04IErk++k8MyR+CNFVeV/Bv fswfgq+Xv+XUdzP+MEcPtMbUu28x5oRC0/NciEEDY4SiYteaqeevkT8Ugvm3 56ReJ38oDmTnBWi0kD8Ms0v6n0wfIH8YznHDbW2m0PrDYHPIJ97wU1p/GBIi llyVBtD6w2GTuWHrjSxafzh8h7f98lMt+cNRXNwS7j9C/nD8O6r5ScNiqh8f bfb/edGdQvXnI0lz2xnPOqo/HylX5kVWaNH+8XF6hZHb8VDavwg8Tn9Z1lPJ GBGYCNGrnfKO9j8CqsbexovhrD/UEXh4ukOvrJb6JxJWE9Xrl/yJ9RsikeyV Zhe4jPoxEidrkzM0ZIzVkXCoiYqZf5D6MwrbLzzTTGsifxTeOfQWto+TPwrT Tw8aGVqy+VBHQXf7P5un82l+opHmati4fQdjRKPc56xx5CWap2i8n+/0NvIR +aMxvjQxN0qf5jcGI79OaVviwhgx8Ht4UbuS5l8Zgy1Jy70PFTFWx6BPZ23t vcvkj8Wg/T6J0wPyx2KM35mT9578sUh+cdv6sBk7j9SxUKda5Pq40/kUBx63 vEIczRhxyDYY825Ip/MsDvrHj+ZE7CF/HGpcn/7X+xj545GZctP07Hnyx+NI vUXkocnzNh7Lvhk3sPmB/PFIbl5Ul9tJfgESD1VfVP3M2EyAgPKNG7rp/oAA LvLUSINhxgIBYjfu6/qC7hOlAG3cpmgjuh/KBbiey/EzI10tQMh+W4PyIcZ9 AlRqeZmoJu8nIfqFjh0ZvZQvhK3d8EmNLsoXouZN2JvUVsoXImf1Opfem5Qv RMf+eV0S+r/lQjSlclfOv0T5QmTJNJvNz1C+EAtem44XHaV8EVqqSyy27qd8 EVR60d/P2EH5Iowdj1oTsIXyRah+vmOqcD3lizAjq2WzIJ7yRbBttdSW8Shf BPeNXy4o8KB8EQSjjRbPnClfjMtNA3tOWFO+GPKcrrpb1C8Q42BV4dxMQ8oX I+HbMcO7MyhfjGn8N8aPOJQvRuHTfQdaXlG/irFIu/pZ7SjjPjEmHFYVHR+i /pXActx64OpDxmYS5M9/2vzRz9TPEjxP/GvnqZ8YCyQ4O/P6Xdl96m8J7AwS 0j3uMS6XYDzfaJs9sVqCdTuUFxbQ7/sk0JrtcWOii/KlcFxjkHGF5sdMipSF +7d50H0NKRZ9l3zyQD/lS9HmyDtcOkz5UvRtHzR3p/9XLkXTtz++2vIb5Usx zrndueIt5UvR75eUlaJJ9ZdBS5VwSkeH6i/DTe8EvfcGVH8ZTs6bk77SmOov g84yo7/VLKT6y7Ch2nSRP+1fuQxeRS2jmk60/zJoPO2saHKl/ZfBsOXB9DxP ypfjl4CCH5fS86KZHLPSi5qu8Clfjh5u8SFdAeXL0TLurGOuoHw5otMc7g+k UL4cL9s/q/fZRPlyTFvclOGWTfly6O680KiafP5UIPNVadRX+ZSvQP2ehe+G iihfgYCQt4pdf6d8BY7E3uGvn3xeU8D4H9iZd5jyFcBmjuq7ryhfga2Vl8uM 6LzqU8CHr/t60+T5lYCPSmp23fkwj38ArWSERg== "]]}}, {{ Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Tiny]]}, { Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]]}, { Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]]}}, {{ Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Tiny]]}, { Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]]}, { Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]]}, {}, {}, {}, {}, {}, {}, {}}, {{ Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Tiny]]}, { Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]]}, { Directive[ PointSize[ NCache[ Rational[1, 120], 0.008333333333333333]], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]]}, {}, {}, {}, {}, {}, {}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0., 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.4, 0.5], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0., 200.}, {0, 97.0634149995362}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"data\"", "0.25`", "0.75`"}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Tiny]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Thickness[Tiny]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], Thickness[Large]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "120"], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Tiny", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "120"], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "120"], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.560181, 0.691569, 0.194885], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.37345400000000006`, 0.461046, 0.12992333333333334`], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.560181, 0.691569, 0.194885]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.560181, 0.691569, 0.194885], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2, ",", #3}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", TaggingRules->{}, CellChangeTimes->{{3.7800903309245*^9, 3.780090356223015*^9}, { 3.780090454996011*^9, 3.780090496041542*^9}, {3.78009055584441*^9, 3.7800905750088053`*^9}, {3.780090624216156*^9, 3.780090701577004*^9}, { 3.780090769925888*^9, 3.780090796162401*^9}, {3.780090920285935*^9, 3.780091022053643*^9}, {3.78009111238482*^9, 3.7800911842713413`*^9}, 3.7800915981191597`*^9, {3.780091830462552*^9, 3.78009183673175*^9}, { 3.780092200919949*^9, 3.78009223968087*^9}, 3.780092339359828*^9, { 3.780092615790535*^9, 3.780092648440567*^9}, {3.780092770892043*^9, 3.780092837806592*^9}, {3.7800932857158422`*^9, 3.7800932920017433`*^9}, 3.780096702877512*^9, {3.780097060987172*^9, 3.780097109953703*^9}, 3.780130461485395*^9, {3.780130554848102*^9, 3.780130582707415*^9}, { 3.780130639799122*^9, 3.780130661745335*^9}, 3.780138376623657*^9, 3.7803306503260202`*^9, 3.780334119549725*^9, 3.780336766269215*^9, 3.782464171517983*^9, 3.782651013359178*^9, 3.78265257632609*^9}, CellLabel->"Out[4]=", CellID->148297627] }, Open ]], Cell["\<\ Find the fraction of the data points that are under the second regression \ quantile:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.7800918537718077`*^9, 3.780091894384305*^9}, { 3.780092211197259*^9, 3.780092212522031*^9}, {3.7800926692541037`*^9, 3.780092689190442*^9}, {3.780093308006234*^9, 3.7800933100980186`*^9}}, CellID->676882694], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"Select", "[", RowBox[{"randData", ",", RowBox[{ RowBox[{ RowBox[{"#", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "<", RowBox[{ RowBox[{ "qFuncs", "\[LeftDoubleBracket]", "2", "\[RightDoubleBracket]"}], "[", RowBox[{"#", "\[LeftDoubleBracket]", "1", "\[RightDoubleBracket]"}], "]"}]}], "&"}]}], "]"}], "]"}], "/", RowBox[{"Length", "[", "randData", "]"}]}], "//", "N"}]], "Input", TaggingRules->{}, CellChangeTimes->{{3.780092280234021*^9, 3.780092301457436*^9}, { 3.780092346076633*^9, 3.7800924293530188`*^9}, {3.780093297748917*^9, 3.780093297836669*^9}, {3.780096710208897*^9, 3.780096715743843*^9}, { 3.780130597762136*^9, 3.780130604513029*^9}}, CellLabel->"In[5]:=", CellID->1412693484], Cell[BoxData["0.75`"], "Output", TaggingRules->{}, CellChangeTimes->{{3.780092376979115*^9, 3.780092429884076*^9}, { 3.7800927736714897`*^9, 3.780092803159334*^9}, 3.780092841661002*^9, { 3.780093293970414*^9, 3.780093298517247*^9}, {3.7800967105400352`*^9, 3.78009671601081*^9}, 3.780097066069601*^9, 3.78013046155548*^9, { 3.78013055490691*^9, 3.780130605994845*^9}, 3.780130639851561*^9, 3.780138376677806*^9, 3.78033065148483*^9, 3.780334119609034*^9, 3.780336766334859*^9, 3.7824641716018476`*^9, 3.782651013524321*^9, 3.7826525764068813`*^9}, CellLabel->"Out[5]=", CellID->1357186469] }, Open ]], Cell[TextData[{ "The obtained fraction is close to the second probability, ", Cell[BoxData[ FormBox["0.75", TraditionalForm]]], ", given to ", Cell[BoxData[ StyleBox["QuantileRegression", "InlineResourceFunction"]], "InlineFormula", FontFamily->"Source Sans Pro"], "." }], "Text", TaggingRules->{}, CellChangeTimes->{{3.780092662110724*^9, 3.780092749020361*^9}, { 3.780093334085732*^9, 3.780093347955913*^9}, 3.782465182143615*^9}, CellID->231253758] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Scope", "\[NonBreakingSpace]", Cell["(3)", "ExampleCount"], "\[NonBreakingSpace]" }], "Subsection", TaggingRules->{}, CellID->964056545], Cell["\<\ Here is a quantile regression computation over a numerical vector:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.780335943413865*^9, 3.780335968028062*^9}, { 3.782465188762457*^9, 3.78246518913369*^9}, {3.7857867891092577`*^9, 3.785786789400081*^9}}, CellID->2146074136], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"vecData", "=", RowBox[{ RowBox[{"Sin", "[", RowBox[{ RowBox[{"Range", "[", "200", "]"}], "/", "6"}], "]"}], "+", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.5"}], "}"}], ",", "200"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qFunc", "=", RowBox[{"First", "@", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["QuantileRegression", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["QuantileRegression", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/QuantileRegression"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "QuantileRegression"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["QuantileRegression"], BoxID -> "QuantileRegression", Selectable->False], "[", RowBox[{"vecData", ",", "12", ",", "0.5"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ListLinePlot", "[", RowBox[{ RowBox[{"{", RowBox[{"vecData", ",", RowBox[{ RowBox[{ RowBox[{"qFunc", "[", "#", "]"}], "&"}], "/@", RowBox[{"Range", "[", RowBox[{"Length", "[", "vecData", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", RowBox[{"PlotTheme", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input", TaggingRules->{}, CellChangeTimes->{{3.780335979965549*^9, 3.780336212732834*^9}, { 3.780336251322982*^9, 3.7803363570867662`*^9}}, CellLabel->"In[1]:=", CellID->1111448832], Cell[BoxData[ TemplateBox[{ GraphicsBox[{{}, {{{}, {}, { Hue[0.67, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw1VgdUU9kWjQXEApaxYI+IDVDBQlARtoKNJoRQQg0hjREp0kbFMcK3fv2i 4yBYAw6o8MVRxG/5Ok9Q8IMUURBFMEhTOggqMurMXzkva7GyNvuee+7bZ2ff N0scypcO5nA4j//++/+35tNlHfJw9roRXiV/0D9Q9tJ+m4lOlrUG6uB6/RRV Tdx7wmNwMyomt57bRXg8zmzSK6oa94GwPrRzbNYvX9FLeBpet7h66E5QE+bi SazeUq3iWsIGiDTY8tm1k93PEAYWdt5n+z8SnouSgbn5Ni7dhOfjo1AYkVLD YiNELm+McYhisQnU0rBt43PaCS+Ckd1L61sxTYRN0RpfsHCsooKwGX6aJLjR aFtEeAlG8iL0rw4rJLwUX1IWRWpNrCa8DD68a0VWu0sIL0eIlu+njsQC0s8c 3O3WJYXvTxDmQdU/zV/nX+WELeDn6OY/3/gD4RXg21YyY3peEF6JlHWJ1tE1 HYRXoVXIGJUf7SVsiaCDzsHHxPWEV8MgxHfE2DtdhK1g9mgP93Mky1ujdeXW xfaPWAy8LXygm/qyUYOVwPcdgbwa7U7i1yC5+PaQh4m0XrkGVW0zZj5fcZX4 tegShhvVjbimeX7lWvDejL12V/2KeBu8HOBmG5yjeSttMPH1zAOzFOWkly2U X81vz6qWEW8Lx/knTn+Z3Uz8Oujr9i95xrwjfh3Mrm9ddL6Gnd96dC14dGim E81DuR7iOpfxOidZf26A644jO9sTPxG/AV5xJ6y+jmb9tRERxrXfjp3pJH4j cieKpvJC2fpNUFSIZ6fPZvlNMBnMy9KNaSPeDiat/al7D7H97ZBe//lArFU9 8fYodys40LY+l3h76FScHf6xPpN4Bwwk/uB76J+viHeAYH/jpCThOeIdER0s 53W+ekv6O8J8IEwdbVpH+johyzShwWDgJfFO8AySFZv7qInfjJKC6Gp+KflB uRkJU0O9I551E+8MjsPCcO1/k//gjCnzdt3ecJvmr3RGtpnZ+fyMVg1mnOHs fD2I0876zwX3+58efhJO+8MFHEPf1Zbx7HlcMKDv2umeRPsxLqgWPM7P3Et+ 4/ARLosovdPdRPV8/MckltlmT8+n5OPdryk34mPKNHowfOyo+N1835ZHpI8r elx0ugt1KT/gCqSmzdobepX0dEXYVO1s+dBU6u+Kwqjjq4RKNn8EmOK4dWLe BfIbBFirk2yTfrSD6gV4fiTOydaL5ssIMDnbzCd5J5tnbjCPm19gxaO8gxv8 Cz1KTxazfnHDEmlCI6+I9mPckDBladngn/uo3h2Gu7a/NjWn/eEOAd/GzLaV 9bs7pHKzq+pu8hvjju7a45lmEtqf44Gnp4ePf3Gqheo9sCs1Pejgi1LSzwOb nR7OTWsto+f3QM9oQxtJH/mJ4wnR0yRDpvM+1XsiTvtIc3A5Q/WeyFn19vSv +s1U74l9X8vGWdS1U70Q85ZLJ+8xZf0jRFNwSGfltT6qF+Ku8Yrz0f9l64XI 2v+HUVo96z8vGGgNrB60jvIFXqga9mPW3No2qvfC9BZ1r96Dd1TvhT9L9Xxu bWfz0hu2OlkO4xoqqN4bLxIXj3JKo/VKbzRc33C4bwudl/FGwhXx+8CbRVTv A27UTG3fSVVU74P4luz+qoxKqveBQ4fD7m9JT6neBwcSN6a1xpNeHF9gUJm1 SEh5Bl9kyX46Eu1cSfPzxXjnIzprpOQPxhdl9wZlrvZsoHo/9Ji6p7uNofsK figOy7iQMpzySekH9dV7u9/UsvP3Q9LFUFfLoex96I8ube/jbbtZ//kDY0Ie 96aQv5T+aMoTP6jtpTxj/LFs0VPV2FD2vhXB89Qa04Tj9zSYK0KV39GPI3Tz aD8RviSv97pSXKXBIhFO5okt02yfkD4idFnsW6ROIv1UItzkzrlvWET6MiL0 /E/6KuZGngarRaiNuuTU1ky/d04A+Hybd+0RzzSYGwDlyL3Gw6e20DwC0MG7 XLV4Lc1bFICPhjmL93uxeRaA3gmlbXcvUD6pAsDsKDUO+07+YgLg5WTxPda/ h/oHYExDStq2E7SeI8aV8lhxczCdhyvGnOYc5yfFlE8Q45VpRYubHq0XiWFb HmDuvIDuN6UYXSlfjTpUlLcqMdTd3UlLf/uN9BYjN8nSdEI16aMWI21Gz13J mRrSPxB+/XPv/MmQntxAlD0+PP1B0mXSPxBRnOkTMpPp/UUUiNKp+T8ITjbS fAOhlF4c9kmf5qsKxJagiNDLMpo/E4i0WbG22vPqNFgdiOTbd23SlrHvRxKc 3TmkaJLLW5q/BCsr4vQVWnRfQoI7JU6dKjnll0iCHyPvn2zvYf0pQUKffGRu ON3HKgl+z19daFfyhvpL8OTZsSGyWrrf1BLYlc74hZdB5+FIsf/n4O9t39n+ UixMfzPq/eRs6i/FLsv9l85515L+Upw4t+/ZgVtvSH8puhjBpddy8otKCnVh 9QXBHDbvpRjHt000FNB6tRR6XwbFJxRTPnBkmBhjHJaZSPPmyjDFMDbmSxPN GzLw+tJHXSpn/SeDU3y6jmUa9VPKEKl90KT3IvlLJcPQQVsW2Ge9p/4y/KJX 7LL8OPlVLYPYKnyr4SP2/U4OLXnKh9oMymOuHJZLTDfN2En+ghzunqGVg10a qL8c+6q4Zm955DelHDzdXn0TSQ71lyO/riBcazHdb4wcZzZblO3JfU76yyHy 8G0Szokn/RVYWdA50uMf5B+uAkdVp9LPriW/QQGjllWRI1xoXiIF+I5L6lI7 yb9KBTIUwnnaH1pp/gose145g2NH/mIUmJbRfiOOzS+1Anmn4xu7j7H5F4QQ 9297R/99f/4FBhIT0A== "]]}, { Hue[0.9060679774997897, 0.6, 0.6], Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], LineBox[CompressedData[" 1:eJw1lgs4Vfkaxjc13agwTpnRuLRlUEd3ZSvepEiue6O9RfbFvpQMY1QyTbZK R1TndDM9iD1JZcqlpgw1mqVUJqrt3sVlj8pIaoR0TiOd5vEtz+Px/LzrXf+1 vv/3f79lLY3hy/U5HE71x9+//47+9LntC+GumhR671f6B/p2t0iMA7VuozgB rpkHA/TrnxIbIap0fMDRvFfEptDt7xDGv+wnNsNV2ZRfGkPfEM/ARkkVnykb IrbCrn8ttjC0fUs8E+dajlkeqGR1G6gFnwnNfmT9ttAMD1TvGhkgtsPZRtE3 P7S9JnZA7JX3JYdr2eeZA91cx4Gcr54TO+KRYWGxcccT4nlYVFBVZ/9zK/F8 XDfd7J6/sp54Aa6b3e+PuVJJvBDac501cU6pxItwsOH3qOboMqrXYtxxDnv7 KuM2sRNmvtT2pkRoiZfAoi/mfmN3A/FShMzLHHs8oZnYGX5lG6LHWD0g5kF9 uLbHu49lF2z+rT/85DuWl+G4UndmeQDLy7Fr26mCAP0WYldoxvh5TJ3ZROyG HdN6hYVMPTHA3WJ+qKL9/iirgZuDu7uLdv5G+go8ZOYmZuy+TvoK1PqbGD6y LCXdHX1pCQadizJJd8dWL5mtUdNJqs9KlLYntC5JLh9l9UpM+qkgSVBWRboH Hu+bUsffXku6Bzxia9+hr470VWgNdFFHyptIXwUz3Sb91LQHpK+Gj3F/mqXf Y9JXo/mxkpub00a6J0ycZE2JmzpI98Ts9OXBnwboSPdCkjM3xOB7YrUXFlo7 xkUks/oabKuwL1ozjtXXYM/E4WYHXjvp3hBuNslLSWPX94Ym5cS0PTPY51sL Me+0UYlJI+lrYd2xSWdreZ90H4SZnrWLjbpJug8mVMyOzc0pJd0XCdvEtUff q0n3xQ7fqNJr5hep/n4wldYk36pi98cP58TPVdX3a0j3x9Je14LuwTrS/VGW 5MJ0Kdh+CEBjiiQzyJz6BwE4/NlZ4dk/H9L1AegLHjdDWPlolJm/+ZtPHkUT cwLRc3PVdzubWX8g4tamb4yYSP2sDoShX87tb+dTvzGBKPRLu5o1eIf8fPRJ 9j/NtWDIz8cdG9f1nR0a8vNxyMjNvUZbMvr+DB+ulpec9rL14gjgUFXix1tO /QIB7FJ9bSxyW6heAgzq9QQPFlM/MAIMvMj1sz75O/mDYCMcG+ppRnmGINwz +2BfbNNF/iAY6kVnZV34g/xBMHvqkO5f0E3+YKwK6eyaMkSMYOw567bXNZ1Y HQyvYxb8XxNYfzAY2xfpww3PyB8CA6XxFslFyiOEIFD83k9kT8+nDkGis1Np TjblExOCLp/Cy+HRzeRfB5FFrOv+DuonrIO7ffiLsBPXyb8Owv2eHRvP5JN/ Hbwdx4UuPVZI9RfC9F1veUziDaq/EM/cmM1tSZT/aiHmZeabvpnaSPsnxNaW V/Hx+mzeiLDzhiwoo5f6ASLE2WwRmue3kl+E0xLLm8Iv28gvwsndPTuWHiGd Ewp+9Jk0l0mPyR+KEr0v/9dZSPdXh+ISl9dQnEv9yoQitPQCl6vH5td62DtX 9Hz7B/U71oOJ457WX0Dvo16PW9diLMrXXCL/enT7V5VfnacmfxhuiJyGSyuL qX5hmPCSW3MgjqH6haHpv2MFfFRT/cLwbGDKivJp7PkNxwxDrZtYRPMC4dAP SB++qGLPezi8alraSnMov5hwxO57sNZpLLt/G9Bv4H8kqJB0bMB5h+lBTkWs fwNOVxg6cswbyL8BTLZBZfN4Nh8jcNutQ1RhfJf8ETBwteduj7xN/gg4PD3/ hcM8ml9MBPpurDRZyLtMfjHO8T7Yp2TnjLKVGMKOSXE86+NUTzG0MUHctN0/ jbJYjFvD7vIPy+i8qsXIeyeYeMD31ihrPt4vedY1mxraD0aMwYja4Ceraf7p xOiPu6ARuLH7J8EDna66Xkvz0EoCTGh7s2WE+g0SaD3t/Pk1tP9iCRaMeAzv 4LH5IoF+2mUbA39ijQRda4b/NDYkZiRIy85KOR1Pfp0Eu3T/mNyeTvfnSJEQ /7LwbhC7vhSf/3zq32n1lJeQgjP+2kP7CfT8YinyUrYpk1/T+6mlCDuMtGo/ mvcaKb59/XiTwJHymJHiKJNdcnxOOa0vRWaqe4SO9yOtLwPHQlCnbl9H68vg otj+ReXxAtpPGU6N2Wb+6awroyyWwent+6zqSzdof2UIay9appxzZ5Q1MgwV zj4RM4e+1xgZ3L2ZuU2G1D86GVTNIhfrM9RvnEicf7os3+gF5aVVJOLGF/HF 1Q9p/Ujo1722u+tI800ciaIGn8mmUyiP1JHQ/jDm2etgYs3H+90NPcYdouuZ SGQ/zxijaH9E60di1+d2FUkj7HyUY3XufD09AZ0HKzk8UjwH69+y50mO8Q9S S2ab36P15fDp+qS9YSM7L+UY6d76vMK5jNaXo33q0PWo80dofTlOVkf5qmdT 3unkqFb94mD/hPqXo0CW1Mh7sgnNIysFeFrt0Ky17P4rcPTrNi/+dLb/FCjd IhC98GHzSQGj5cKugBrKP40C4+yMizq/pnxjFBjOyPuKY0X5p1NA2rOoa+Jl Nv+U8CqKk6eYUP5ZKdHTo7kjXsbOUyWuZSQeXMynfhUrkVfgkFPTzeazEvL/ TA4+s5fyTvPx+lybtxP/ov5ilDhk21aYWHae6q+E1c7UniUf2PmpQtn3ucmd 5VRvKxWKDMpa1fm0X1DhzV8u8ZMCaR6JVShojVyZ40nzS61CdHNNrbctfV9r Pt5vukKvo7WX6q9CktL0+dF/9tH6KoQfG2v2XTX7vb4RxXNGUqYuGXD7P7wf AXc= "]]}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, {}, {}, {}}, {{ Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]]}, { Directive[ PointSize[ NCache[ Rational[1, 90], 0.011111111111111112`]], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]]}, {}, {}, {}}}, {{}, {}}}, { DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{None, None}, {None, None}}, FrameStyle -> Automatic, FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, GridLines -> {Automatic, Automatic}, GridLinesStyle -> Directive[ GrayLevel[0.4, 0.5], AbsoluteThickness[1], AbsoluteDashing[{1, 2}]], Method -> { "OptimizePlotMarkers" -> True, "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& ), "CopiedValueFunction" -> ({ (Identity[#]& )[ Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, PlotRange -> {{0, 200.}, {-1.355917868879993, 1.4743475748324684`}}, PlotRangeClipping -> True, PlotRangePadding -> {{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.05], Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], FormBox[ FormBox[ TemplateBox[{"\"vector\"", "\"fit\""}, "LineLegend", DisplayFunction -> (FormBox[ StyleBox[ StyleBox[ PaneBox[ TagBox[ GridBox[{{ TagBox[ GridBox[{{ GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, { GraphicsBox[{{ Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], { LineBox[{{0, 10}, {20, 10}}]}}, { Directive[ EdgeForm[ Directive[ Opacity[0.3], GrayLevel[0]]], PointSize[0.5], RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, ImageSize -> {20, 10}, PlotRangePadding -> None, ImagePadding -> Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, GridBoxAlignment -> { "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> False, GridBoxDividers -> { "Columns" -> {{False}}, "Rows" -> {{False}}}, GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, GridBoxSpacings -> { "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], Alignment -> Left, AppearanceElements -> None, ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], { FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> False], TraditionalForm]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "90"], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.368417, 0.506779, 0.709798], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.24561133333333335`, 0.3378526666666667, 0.4731986666666667], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.368417, 0.506779, 0.709798]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.368417, 0.506779, 0.709798], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], ",", RowBox[{"Directive", "[", RowBox[{ RowBox[{"PointSize", "[", FractionBox["1", "90"], "]"}], ",", InterpretationBox[ ButtonBox[ TooltipBox[ GraphicsBox[{{ GrayLevel[0], RectangleBox[{0, 0}]}, { GrayLevel[0], RectangleBox[{1, -1}]}, { RGBColor[0.880722, 0.611041, 0.142051], RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, FrameStyle -> RGBColor[ 0.587148, 0.40736066666666665`, 0.09470066666666668], FrameTicks -> None, PlotRangePadding -> None, ImageSize -> Dynamic[{ Automatic, 1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[ Magnification])}]], StyleBox[ RowBox[{"RGBColor", "[", RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}], "]"}], NumberMarks -> False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> Baseline, DefaultBaseStyle -> {}, ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, If[ Not[ AbsoluteCurrentValue["Deployed"]], SelectionMove[Typeset`box$, All, Expression]; FrontEnd`Private`$ColorSelectorInitialAlpha = 1; FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[0.880722, 0.611041, 0.142051]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; MathLink`CallFrontEnd[ FrontEnd`AttachCell[Typeset`box$, FrontEndResource["RGBColorValueSelector"], { 0, {Left, Bottom}}, {Left, Top}, "ClosingActions" -> { "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> Automatic, Method -> "Preemptive"], RGBColor[0.880722, 0.611041, 0.142051], Editable -> False, Selectable -> False], ",", RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{#, ",", #2}], "}"}], ",", RowBox[{"LegendMarkers", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}], ",", RowBox[{"{", RowBox[{"False", ",", "Automatic"}], "}"}]}], "}"}]}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"True", ",", "True"}], "}"}]}], ",", RowBox[{"LabelStyle", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), Editable -> True], TraditionalForm], TraditionalForm]}, "Legended", DisplayFunction->(GridBox[{{ TagBox[ ItemBox[ PaneBox[ TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], "SkipImageSizeLevel"], ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, AutoDelete -> False, GridBoxItemSize -> Automatic, BaselinePosition -> {1, 1}]& ), Editable->True, InterpretationFunction->(RowBox[{"Legended", "[", RowBox[{#, ",", RowBox[{"Placed", "[", RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output", TaggingRules->{}, CellChangeTimes->{3.78033635756249*^9, 3.7803367665851593`*^9, 3.782464171853958*^9, 3.78265101390876*^9, 3.782652576659708*^9}, CellLabel->"Out[1]=", CellID->1809169696] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[Cell["\t", "ExampleDelimiter"], $Line = 0; Null]], "ExampleDelimiter", TaggingRules->{}, CellID->2067138768], Cell["\<\ Here is a quantile regression computation over a time series object:\ \>", "Text", TaggingRules->{}, CellChangeTimes->{{3.780335471782853*^9, 3.780335503755725*^9}, { 3.780335950534896*^9, 3.780335951085712*^9}, {3.7803369282457743`*^9, 3.7803369302810793`*^9}, {3.7824651944451523`*^9, 3.782465194803659*^9}, { 3.785786793082987*^9, 3.7857868007773275`*^9}, {3.786392584120894*^9, 3.7863926003947935`*^9}}, CellID->669793857], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"finData", "=", RowBox[{"FinancialData", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2010", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"2019", ",", "10", ",", "15"}], "}"}], ",", "\"\\""}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"qFunc", "=", RowBox[{"First", "@", RowBox[{ InterpretationBox[ TagBox[ DynamicModuleBox[{Typeset`open = False}, FrameBox[ PaneSelectorBox[{False->GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["QuantileRegression", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"], ImageSizeCache->{11., {1., 10.}}], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"], ImageSizeCache->{11., {1., 10.}}]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}], True-> GridBox[{ {GridBox[{ { PaneBox[GridBox[{ { StyleBox[ StyleBox[ AdjustmentBox["\<\"[\[FilledSmallSquare]]\"\>", BoxBaselineShift->-0.25, BoxMargins->{{0, 0}, {-1, -1}}], "ResourceFunctionIcon", FontColor->RGBColor[ 0.8745098039215686, 0.2784313725490196, 0.03137254901960784]], ShowStringCharacters->False, FontFamily->"Source Sans Pro Black", FontSize->0.6538461538461539 Inherited, FontWeight->"Heavy", PrivateFontOptions->{"OperatorSubstitution"->False}], StyleBox[ RowBox[{ StyleBox["QuantileRegression", "ResourceFunctionLabel"], " "}], ShowAutoStyles->False, ShowStringCharacters->False, FontSize->Rational[12, 13] Inherited, FontColor->GrayLevel[0.1]]} }, GridBoxSpacings->{"Columns" -> {{0.25}}}], Alignment->Left, BaseStyle->{LineSpacing -> {0, 0}, LineBreakWithin -> False}, BaselinePosition->Baseline, FrameMargins->{{3, 0}, {0, 0}}], ItemBox[ PaneBox[ TogglerBox[Dynamic[Typeset`open], {True-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeCloser"]], False-> DynamicBox[FEPrivate`FrontEndResource[ "FEBitmaps", "IconizeOpener"]]}, Appearance->None, BaselinePosition->Baseline, ContentPadding->False, FrameMargins->0], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{1, 1}, {0, 0}}], Frame->{{ RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627, 0.5], False}, {False, False}}]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{ "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}]}, { StyleBox[ PaneBox[GridBox[{ { RowBox[{ TagBox["\<\"Version (latest): \"\>", "IconizedLabel"], " ", TagBox["\<\"2.0.0\"\>", "IconizedItem"]}]}, { TagBox[ TemplateBox[{ "\"Documentation \[RightGuillemet]\"", "https://resources.wolframcloud.com/FunctionRepository/\ resources/QuantileRegression"}, "HyperlinkURL"], "IconizedItem"]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{"Columns" -> {{Left}}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], Alignment->Left, BaselinePosition->Baseline, FrameMargins->{{5, 4}, {0, 4}}], "DialogStyle", FontFamily->"Roboto", FontSize->11]} }, BaselinePosition->{1, 1}, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxDividers->{"Columns" -> {{None}}, "Rows" -> {False, { GrayLevel[0.8]}, False}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}]}, Dynamic[ Typeset`open], BaselinePosition->Baseline, ImageSize->Automatic], Background->RGBColor[ 0.9686274509803922, 0.9764705882352941, 0.984313725490196], BaselinePosition->Baseline, DefaultBaseStyle->{}, FrameMargins->{{0, 0}, {1, 0}}, FrameStyle->RGBColor[ 0.8313725490196079, 0.8470588235294118, 0.8509803921568627], RoundingRadius->4]], {"FunctionResourceBox", RGBColor[0.8745098039215686, 0.2784313725490196, 0.03137254901960784], "QuantileRegression"}, TagBoxNote->"FunctionResourceBox"], ResourceFunction["QuantileRegression"], BoxID -> "QuantileRegression", Selectable->False], "[", RowBox[{"finData", ",", "12", ",", "0.5"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"DateListPlot", "[", RowBox[{ RowBox[{"{", RowBox[{"finData", ",", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"#", ",", RowBox[{"qFunc", "[", "#", "]"}]}], "}"}], "&"}], "/@", RowBox[{"finData", "[", "\"\\"", "]"}]}]}], "}"}], ",", RowBox[{"Joined", "\[Rule]", RowBox[{"{", RowBox[{"False", ",", "True"}], "}"}]}], ",", RowBox[{"PlotLegends", "\[Rule]", RowBox[{"{", RowBox[{"\"\