Running ‘bugfixes.R’ [8s/18s]
  Comparing ‘bugfixes.Rout’ to ‘bugfixes.Rout.save’ ...1059c1059
< <NA> <NA> <NA> 
---
> Never Never Never 
  Running ‘regtest-MIA.R’
  Comparing ‘regtest-MIA.Rout’ to ‘regtest-MIA.Rout.save’ ... OK
  Running ‘regtest-cforest.R’ [17s/44s]
  Comparing ‘regtest-cforest.Rout’ to ‘regtest-cforest.Rout.save’ ...181c181,187
< < table of extent 0 x 0 >
---
>   Sepal.Width  Petal.Length     Petal.Width    
>  Min.   :0    Min.   :0.3869   Min.   :0.2971  
>  1st Qu.:0    1st Qu.:0.3921   1st Qu.:0.3036  
>  Median :0    Median :0.3966   Median :0.3057  
>  Mean   :0    Mean   :0.3952   Mean   :0.3117  
>  3rd Qu.:0    3rd Qu.:0.4003   3rd Qu.:0.3179  
>  Max.   :0    Max.   :0.4003   Max.   :0.3343  
187c193,194
< named numeric(0)
---
>  Sepal.Width Petal.Length  Petal.Width 
>    0.0000000    0.2782738    0.1171429 
  Running ‘regtest-ctree.R’
  Comparing ‘regtest-ctree.Rout’ to ‘regtest-ctree.Rout.save’ ...30,32c30,32
<   setosa          0          0         0
<   versicolor      0          0         0
<   virginica       0          0         0
---
>   setosa         50          0         0
>   versicolor      0         49         5
>   virginica       0          1        45
  Running ‘regtest-glmtree.R’ [55s/129s]
  Comparing ‘regtest-glmtree.Rout’ to ‘regtest-glmtree.Rout.save’ ... OK
  Running ‘regtest-lmtree.R’
  Running ‘regtest-nmax.R’
  Comparing ‘regtest-nmax.Rout’ to ‘regtest-nmax.Rout.save’ ... OK
  Running ‘regtest-node.R’
  Comparing ‘regtest-node.Rout’ to ‘regtest-node.Rout.save’ ... OK
  Running ‘regtest-party-random.R’
  Running ‘regtest-party.R’ [6s/12s]
  Running ‘regtest-split.R’
  Comparing ‘regtest-split.Rout’ to ‘regtest-split.Rout.save’ ... OK
  Running ‘regtest-weights.R’
  Comparing ‘regtest-weights.Rout’ to ‘regtest-weights.Rout.save’ ... OK
Running the tests in ‘tests/regtest-party.R’ failed.
Complete output:
  > suppressWarnings(RNGversion("3.5.2"))
  > 
  > ## load package and fix seed
  > library("partykit")
  Loading required package: grid
  Loading required package: libcoin
  Loading required package: mvtnorm
  > set.seed(1)
  > 
  > ## rpart: kyphosis data
  > library("rpart")
  > data("kyphosis", package = "rpart")
  > fit <- rpart(Kyphosis ~ Age + Number + Start, data = kyphosis)
  > pfit <- as.party(fit)
  > all(predict(pfit, newdata = kyphosis, type = "node") == fit$where)
  [1] TRUE
  > 
  > ## J48: iris data
  > if (require("RWeka")) {
  +     data("iris", package = "datasets")
  +     itree <- J48(Species ~ ., data = iris)
  +     pitree <- as.party(itree)
  +     stopifnot(all(predict(pitree) == predict(pitree, newdata = iris[, 3:4])))
  + 
  +     print(all.equal(predict(itree, type = "prob", newdata = iris),
  +               predict(pitree, type = "prob", newdata = iris)))
  +     print(all.equal(predict(itree,  newdata = iris),
  +               predict(pitree, newdata = iris)))
  + 
  +     ## rpart/J48: GlaucomaM data
  +     data("GlaucomaM", package = "TH.data")
  +     w <- runif(nrow(GlaucomaM))
  +     fit <- rpart(Class ~ ., data = GlaucomaM, weights = w)
  +     pfit <- as.party(fit)
  +     print(all(predict(pfit, type = "node") == fit$where))
  +     tmp <- GlaucomaM[sample(1:nrow(GlaucomaM), 100),]
  +     print(all.equal(predict(fit, type = "prob", newdata = tmp), predict(pfit, type = "prob", newdata = tmp)))
  +     print(all.equal(predict(fit, type = "class", newdata = tmp), predict(pfit, newdata = tmp)))
  +     itree <- J48(Class ~ ., data = GlaucomaM)
  +     pitree <- as.party(itree)
  +     print(all.equal(predict(itree, newdata = tmp, type = "prob"), predict(pitree, newdata = tmp, type = "prob")))
  + }
  Loading required package: RWeka
  Error: all(predict(pitree) == predict(pitree, newdata = iris[, 3:4])) is not TRUE
  Execution halted