[Mboost-commits] r712 - pkg/mboostDevel/R

[noreply at r-forge.r-project.org]

Author: thothorn
Date: 2013-04-20 18:48:07 +0200 (Sat, 20 Apr 2013)
New Revision: 712

Modified:
   pkg/mboostDevel/R/bl.R
Log:
length of derivs was wrong

Modified: pkg/mboostDevel/R/bl.R
===================================================================
--- pkg/mboostDevel/R/bl.R	2013-04-20 16:39:40 UTC (rev 711)
+++ pkg/mboostDevel/R/bl.R	2013-04-20 16:48:07 UTC (rev 712)
@@ -582,7 +582,7 @@
     X <- splineDesign(knots, x, ord, derivs = rep(deriv, length(x)), outer.ok = TRUE)
     x[ind] <- x[ind] - boundary.knots[2] + boundary.knots[1]
     if (sum(ind)) {
-        Xtmp <- splineDesign(knots, x[ind], ord, derivs = rep(deriv, length(ind)), 
+        Xtmp <- splineDesign(knots, x[ind], ord, derivs = rep(deriv, length(x[ind])), 
                              outer.ok = TRUE)
         X[ind, ] <- X[ind, ] + Xtmp
     }