Running 'Colr-pen.R' [4s]
Running the tests in 'tests/Colr-pen.R' failed.
Complete output:
  > # Tests for COLR models
  > 
  > set.seed(0)
  > 
  > ## Depencies
  > ## IGNORE_RDIFF_BEGIN
  > library("tramnet")
  Loading required package: tram
  Loading required package: mlt
  Loading required package: basefun
  Loading required package: variables
  Loading required package: mvtnorm
  Loading required package: CVXR
  
  Attaching package: 'CVXR'
  
  The following objects are masked from 'package:stats':
  
      power, sd, var
  
  The following objects are masked from 'package:base':
  
      norm, outer
  
  Loading required package: mlrMBO
  Loading required package: mlr
  Loading required package: ParamHelpers
  Loading required package: smoof
  Loading required package: checkmate
  > library("sandwich")
  > 
  > ## IGNORE_RDIFF_END
  > old <- options(digits = 3)
  > 
  > if (require("survival") & require("TH.data")) {
  +   ## Exact and Right censored
  +   data("GBSG2", package = "TH.data")
  +   GBSG2$surv <- with(GBSG2, Surv(time, cens))
  +   x <- matrix(1 * (GBSG2$horTh == "yes"), ncol = 1)
  +   colnames(x) <- "horTh"
  + 
  +   yCOLR <- Colr(surv ~ 1, data = GBSG2, log_first = TRUE, order = 10, support = c(1e-12, max(GBSG2$time)))
  +   modCOLR <- tramnet(yCOLR, x, lambda = 0, alpha = 0)
  +   yCOLRb <- Colr(surv ~ horTh, data = GBSG2, log_first = TRUE, order = 10)
  +   print(max(abs(coef(yCOLRb, with_baseline = FALSE) -
  +                   coef(modCOLR, with_baseline = FALSE))))
  +   print(logLik(yCOLRb))
  +   print(logLik(modCOLR))
  +   print(-modCOLR$result$value)
  +   print(logLik(modCOLR, newdata = tramnet:::.get_tramnet_data(modCOLR)[1:10, ]))
  + 
  +   ## methods
  +   print(coef(modCOLR, tol = 0, with_baseline = TRUE))
  +   print(logLik(modCOLR))
  +   print(c(resid(modCOLR)[1:10]))
  +   print(predict(modCOLR, type = "distribution", q = 1)[, 1:10])
  +   print(predict(modCOLR, type = "quantile", prob = 0.5)[, 1:10])
  +   print.default(head(simulate(modCOLR)))
  +   print(as.data.frame(head(estfun(modCOLR))))
  +   plot(modCOLR, type = "survivor")
  +   plot(modCOLR, type = "density", K = 120)
  +   print(modCOLR)
  + }
  Loading required package: survival
  Loading required package: TH.data
  Loading required package: MASS
  
  Attaching package: 'MASS'
  
  The following object is masked from 'package:CVXR':
  
      huber
  
  
  Attaching package: 'TH.data'
  
  The following object is masked from 'package:MASS':
  
      geyser
  
  Error in as.vector(x, mode) : 
    cannot coerce type 'object' to vector of type 'any'
  Calls: tramnet ... <Anonymous> -> as.matrix.default -> array -> as.vector
  Execution halted