Running 'bugfixes.R' [7s/8s]
  Comparing 'bugfixes.Rout' to 'bugfixes.Rout.save' ... OK
  Running 'constparty.R' [8s/11s]
  Comparing 'constparty.Rout' to 'constparty.Rout.save' ... OK
  Running 'regtest-MIA.R' [3s/3s]
  Comparing 'regtest-MIA.Rout' to 'regtest-MIA.Rout.save' ... OK
  Running 'regtest-cforest.R' [18s/20s]
  Comparing 'regtest-cforest.Rout' to 'regtest-cforest.Rout.save' ... OK
  Running 'regtest-ctree.R' [3s/4s]
  Comparing 'regtest-ctree.Rout' to 'regtest-ctree.Rout.save' ... OK
  Running 'regtest-glmtree.R' [47s/52s]
  Comparing 'regtest-glmtree.Rout' to 'regtest-glmtree.Rout.save' ... OK
  Running 'regtest-honesty.R' [3s/3s]
  Running 'regtest-lmtree.R' [4s/5s]
  Running 'regtest-nmax.R' [3s/3s]
  Comparing 'regtest-nmax.Rout' to 'regtest-nmax.Rout.save' ... OK
  Running 'regtest-node.R' [2s/3s]
  Comparing 'regtest-node.Rout' to 'regtest-node.Rout.save' ... OK
  Running 'regtest-party-random.R' [3s/4s]
  Running 'regtest-party.R' [7s/7s]
  Comparing 'regtest-party.Rout' to 'regtest-party.Rout.save' ... OK
  Running 'regtest-split.R' [2s/3s]
  Comparing 'regtest-split.Rout' to 'regtest-split.Rout.save' ... OK
  Running 'regtest-weights.R' [3s/3s]
  Comparing 'regtest-weights.Rout' to 'regtest-weights.Rout.save' ... OK
Running the tests in 'tests/regtest-honesty.R' failed.
Complete output:
  > 
  > library("partykit")
  Loading required package: grid
  Loading required package: libcoin
  Loading required package: mvtnorm
  > 
  > n <- 100
  > x <- runif(n)
  > y <- rnorm(n, mean = sin(x), sd = .1)
  > s <- gl(4, n / 4)
  > 
  > set.seed(29)
  > ### estimate with honesty
  > cf_ss <- cforest(y ~ x, strata = s, ntree = 5, mtry = 1,
  +                  perturb = list(replace = FALSE, fraction = c(.5, .5)))
  > ### sample used for tree induction
  > stopifnot(sum(tapply(cf_ss$weights[[1]], s, sum)) == n / 2)
  > ### sample used for parameter estimation
  > stopifnot(sum(tapply(cf_ss$honest_weights[[1]], s, sum)) == n / 2)
  > 
  > p <- predict(cf_ss)
  > 
  > set.seed(29)
  > ### w/o honesty
  > cf_ss2 <- cforest(y ~ x, strata = s, ntree = 5, mtry = 1,
  +                   perturb = list(replace = FALSE, fraction = .5))
  > 
  > stopifnot(sum(tapply(cf_ss2$weights[[1]], s, sum)) == n / 2)
  > 
  > if (.Platform$OS.type != "windows")
  +     stopifnot(all.equal(cf_ss$nodes, cf_ss2$nodes))
  Error: cf_ss$nodes and cf_ss2$nodes are not equal:
    Component 1: Length mismatch: comparison on first 4 components
    Component 1: Component 3: Component 1: Length mismatch: comparison on first 4 components
    Component 1: Component 3: Component 2: Length mismatch: comparison on first 4 components
  Execution halted