fix:Correct dimensions.

antononcube · Mar 10, 2023 · c85a01d · c85a01d
1 parent addc3e5
commit c85a01d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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
       ];