From c85a01d8e80b51606391d641de699b8c71b059a3 Mon Sep 17 00:00:00 2001
From: antononcube <antononcube@posteo.net>
Date: Thu, 9 Mar 2023 22:47:02 -0500
Subject: [PATCH] fix:Correct dimensions.

---
 QuantileRegression.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/QuantileRegression.m b/QuantileRegression.m
index 62bdc3dd..67a75fc0 100644
--- a/QuantileRegression.m
+++ b/QuantileRegression.m
@@ -336,7 +336,7 @@ I experimented with using DualLinearProgramming (provided by Mathematica) and wi
         cpts = cpts0;
         cpts = ReplacePart[cpts, #1 -> {1}];
         With[{f = BSplineFunction[cpts, Sequence @@ FilterRules[{opts}, Options[BSplineFunction]]]},
-          Evaluate[f @@ Table[ Rescale[Slot[i], lsMinMaxes[[i]]], {i, Length@lsMinMaxes}] ]&])&,
+          Evaluate[f @@ Table[ Rescale[Slot[i], lsMinMaxes[[i]]], {i, Length[lsMinMaxes] - 1}] ]&])&,
         inds
       ];