[Mboost-commits] r716 - in pkg/mboostDevel: . R

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

Author: thothorn
Date: 2013-06-27 14:27:22 +0200 (Thu, 27 Jun 2013)
New Revision: 716

Modified:
   pkg/mboostDevel/NAMESPACE
   pkg/mboostDevel/R/methods.R
Log:
add mstop<- function

Modified: pkg/mboostDevel/NAMESPACE
===================================================================
--- pkg/mboostDevel/NAMESPACE	2013-06-27 09:48:24 UTC (rev 715)
+++ pkg/mboostDevel/NAMESPACE	2013-06-27 12:27:22 UTC (rev 716)
@@ -17,7 +17,7 @@
        ExpectReg, NBinomial, PropOdds, Weibull, Loglog, Lognormal, AUC, mboost_fit,
        Huber, AdaExp, Gehan, CoxPH, Hurdle, Multinomial, FP, IPCweights, cvrisk, cv, bbs, stabsel,
        bols, bspatial, brandom, btree, bss, bns, brad, bmono, bmrf, buser, survFit, selected,
-       nuisance, "%+%", "%X%", "%O%", extract)
+       nuisance, "%+%", "%X%", "%O%", extract, "mstop<-")
        ###, basesel, fitsel)
 exportClasses("boost_family")
 exportMethods("show")

Modified: pkg/mboostDevel/R/methods.R
===================================================================
--- pkg/mboostDevel/R/methods.R	2013-06-27 09:48:24 UTC (rev 715)
+++ pkg/mboostDevel/R/methods.R	2013-06-27 12:27:22 UTC (rev 716)
@@ -216,6 +216,10 @@
     invisible(NULL)
 }
 
+"mstop<-" <- function(x, value) {
+    return(x[value, return = TRUE])
+}
+
 mstop.mboost <- function(object, ...) object$mstop()
 
 update.mboost <- function(object, weights, ...)