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

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

Author: thothorn
Date: 2013-09-24 15:25:41 +0200 (Tue, 24 Sep 2013)
New Revision: 741

Modified:
   pkg/mboostDevel/R/helpers.R
Log:
Y not y

Modified: pkg/mboostDevel/R/helpers.R
===================================================================
--- pkg/mboostDevel/R/helpers.R	2013-09-24 13:25:26 UTC (rev 740)
+++ pkg/mboostDevel/R/helpers.R	2013-09-24 13:25:41 UTC (rev 741)
@@ -149,10 +149,10 @@
     my <- switch(attr(X[[Xc]], "Ts_constraint"),  "increasing" = {
         ### first column is intercept
         stopifnot(max(abs(X[[Xc]][,1,drop = TRUE] - 1)) < sqrt(.Machine$double.eps))
-        min(y)
+        min(Y)
     }, "decreasing" = {
         stopifnot(max(abs(X[[Xc]][,1,drop = TRUE] + 1)) < sqrt(.Machine$double.eps))
-        max(y)
+        max(Y)
     })
     Y <- Y - my