mboost_1.1-3 blackboost_fit (PR#13972)

Full_Name: Ivan the Terrible
Version: 2.9.2
OS: Windows XP SP3
Submission from: (NULL) (89.110.13.151)


When using the method blackboost_fit of the package mboost appear following
error :
Error in party:::get_variables(obj at responses) : 
  trying to get slot "responses" from an object (class "boost_data") that is not
an S4 object

Simple test case that produce bug:

dt=expand.grid(y=c(2,3,4), x1=c(1,2), x2=c(1,2))
library(mboost)
bd=boost_dpp(y ~ .,data=dt, weights = NULL)
blackboost_fit(bd, 
               tree_controls = ctree_control(
                                             teststat     = "max",
                                             testtype     = "Teststatistic",
                                             mincriterion = 0,
                                             maxdepth     = 2
                                            ),
               fitmem = ctree_memory(
                                     bd, 
                                     TRUE
                                    ), 
               family = GaussReg(),
               control = boost_control(
                                       mstop = 2
                                      ), 
               weights = NULL
              )


Test case session on my computer:

dt=expand.grid(y=c(2,3,4), x1=c(1,2), x2=c(1,2))
library(mboost)

Loading required package: modeltools
Loading required package: stats4
Loading required package: party
Loading required package: survival
Loading required package: splines
Loading required package: grid
Loading required package: coin
Loading required package: mvtnorm
Loading required package: zoo

Attaching package: 'zoo'


        The following object(s) are masked from package:base :

         as.Date.numeric 

Loading required package: sandwich
Loading required package: strucchange
Loading required package: vcd
Loading required package: MASS
Loading required package: colorspace

bd=boost_dpp(y ~ .,data=dt, weights = NULL)
blackboost_fit(bd, 

+                tree_controls = ctree_control(
+                                              teststat     = "max",
+                                              testtype     = "Teststatistic",
+                                              mincriterion = 0,
+                                              maxdepth     = 2
+                                             ),
+                fitmem = ctree_memory(
+                                      bd, 
+                                      TRUE
+                                     ), 
+                family = GaussReg(),
+                control = boost_control(
+                                        mstop = 2
+                                       ), 
+                weights = NULL
+               )
Error in party:::get_variables(obj at responses) : 
  trying to get slot "responses" from an object (class "boost_data") that is not
an S4 object

sessionInfo()

R version 2.9.2 (2009-08-24) 
i386-pc-mingw32 

locale:
LC_COLLATE=Russian_Russia.1251;LC_CTYPE=Russian_Russia.1251;LC_MONETARY=Russian_Russia.1251;LC_NUMERIC=C;LC_TIME=Russian_Russia.1251

attached base packages:
[1] grid      splines   stats     graphics  grDevices utils     datasets 
methods   base     

other attached packages:
 [1] mboost_1.1-3      party_0.9-999     vcd_1.2-4         colorspace_1.0-1 
MASS_7.2-48       strucchange_1.3-7
 [7] sandwich_2.2-1    zoo_1.5-8         coin_1.0-6        mvtnorm_0.9-7    
survival_2.35-4   modeltools_0.2-16

loaded via a namespace (and not attached):
[1] lattice_0.17-25 stats4_2.9.2