Running 'test-pmodel-test.R' [30s]
  Running 'test-pmodel.R' [22s]
  Running 'test-pmtree.R' [23s]
  Comparing 'test-pmtree.Rout' to 'test-pmtree.Rout.save' ... OK
Running the tests in 'tests/test-pmodel.R' failed.
Complete output:
  > library("model4you")
  Loading required package: partykit
  Loading required package: grid
  Loading required package: libcoin
  Loading required package: mvtnorm
  > library("mvtnorm")
  > library("survival")
  > set.seed(123)
  > 
  > ## function to simulate the data
  > sim_data <- function(n = 500, p = 10, beta = 3, sd = 1){
  + 
  +   ## treatment
  +   lev <- c("C", "A")
  +   a <- rep(factor(lev, labels = lev, levels = lev), length = n)
  + 
  +   ## correlated z variables
  +   sigma <- diag(p)
  +   sigma[sigma == 0] <- 0.2
  +   ztemp <- rmvnorm(n, sigma = sigma)
  +   z <- (pnorm(ztemp) * 2 * pi) - pi
  +   colnames(z) <- paste0("z", 1:ncol(z))
  +   z1 <- z[,1]
  + 
  +   ## outcome
  +   y <- 7 + 0.2 * (a %in% "A") + beta * cos(z1) * (a %in% "A") + rnorm(n, 0, sd)
  + 
  +   data.frame(y = y, a = a, z)
  + }
  > 
  > ## simulate data
  > beta <- 3
  > ntrain <- 500
  > ntest <- 100
  > simdata <- simdata_s <- sim_data(p = 5, beta = beta, n = ntrain)
  > tsimdata <- tsimdata_s <- sim_data(p = 5, beta = beta, n = ntest)
  > simdata_s$cens <- rep(1, ntrain)
  > tsimdata_s$cens <- rep(1, ntest)
  > 
  > ## base model
  > basemodel_lm <- lm(y ~ a, data = simdata)
  > basemodel_wb <- survreg(Surv(y, cens) ~ a, data = simdata_s)
  > 
  > ## forest
  > frst_lm <- pmforest(basemodel_lm, ntree = 10,
  +                     perturb = list(replace = FALSE, fraction = 0.632),
  +                     control = ctree_control(mincriterion = 0, lookahead = TRUE))
  No data given. I'm using data set simdata from the current environment parent.frame(). Please check if that is what you want.
  > frst_wb <- pmforest(basemodel_wb, ntree = 10,
  +                     perturb = list(replace = FALSE, fraction = 0.632),
  +                     control = ctree_control(mincriterion = 0, lookahead = TRUE))
  No data given. I'm using data set simdata_s from the current environment parent.frame(). Please check if that is what you want.
  > 
  > ## personalised models
  > coefs_lm <- pmodel(x = frst_lm, newdata = tsimdata)
  Error in deparse(current) : unimplemented type '...' in 'deparse2buff'
  Calls: pmodel ... all.equal.function -> all.equal.language -> paste -> deparse
  In addition: Warning messages:
  1: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  2: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  3: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  4: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  5: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  6: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  7: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  8: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  9: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  10: 'all.equal.default(<function>)' is deprecated.
  Use 'all.equal(*)' instead.
  See help("Deprecated") 
  Execution halted