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

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

Author: hofner
Date: 2014-02-21 10:45:25 +0100 (Fri, 21 Feb 2014)
New Revision: 763

Modified:
   pkg/mboostDevel/R/mboost.R
Log:
Fixed bug with stopintern

Modified: pkg/mboostDevel/R/mboost.R
===================================================================
--- pkg/mboostDevel/R/mboost.R	2014-02-20 18:48:44 UTC (rev 762)
+++ pkg/mboostDevel/R/mboost.R	2014-02-21 09:45:25 UTC (rev 763)
@@ -1,14 +1,15 @@
 
 mboost_fit <- function(blg, response, weights = rep(1, NROW(response)),
-                       offset = NULL, family = Gaussian(), control =
-                       boost_control(), oobweights = as.numeric(weights == 0)) {
+                       offset = NULL, family = Gaussian(),
+                       control = boost_control(),
+                       oobweights = as.numeric(weights == 0)) {
 
     ### hyper parameters
     mstop <- 0
     risk <- control$risk
     nu <- control$nu
     trace <- control$trace
-    stopintern <- control$trace
+    stopintern <- control$stopintern
     if (is.numeric(stopintern)) {
         stopeps <- stopintern
         stopintern <- TRUE