[Mboost-commits] r723 - pkg/mboostPatch/R

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

Author: thothorn
Date: 2013-07-16 14:21:25 +0200 (Tue, 16 Jul 2013)
New Revision: 723

Modified:
   pkg/mboostPatch/R/methods.R
Log:
extract(... %O% ...) works now

Modified: pkg/mboostPatch/R/methods.R
===================================================================
--- pkg/mboostPatch/R/methods.R	2013-07-09 15:13:38 UTC (rev 722)
+++ pkg/mboostPatch/R/methods.R	2013-07-16 12:21:25 UTC (rev 723)
@@ -522,7 +522,7 @@
 extract.blg <- function(object, what = c("design", "penalty", "index"),
                         asmatrix = FALSE, expand = FALSE, ...){
     what <- match.arg(what)
-    object <- object$dpp(rep(1, nrow(object$model.frame())))
+    object <- object$dpp(rep(1, NROW(object$model.frame())))
     return(extract(object, what = what,
                    asmatrix = asmatrix, expand = expand))
 }