Running ‘test-AUC.R’ [6s/5s]
Running the tests in ‘tests/test-AUC.R’ failed.
Complete output:
  > library(testthat)
  > context("Prediction error")
  > # {{{ "AUC censored data: order"
  > test_that("AUC censored data: order",{
  +     library(riskRegression)
  +     library(survival)
  +     library(prodlim)
  +     data(Melanoma)
  +     setDT(Melanoma)
  +     setkey(Melanoma,age)
  +     fit <- coxph(Surv(time,status!=0)~invasion+epicel+logthick,data=Melanoma,x=TRUE)
  +     a <- Score(list(fit),data=Melanoma,Surv(time,status!=0)~invasion+epicel+logthick,cens.model="marginal",metric="Auc")
  +     A <- Score(list(fit),data=Melanoma,Surv(time,status!=0)~invasion+epicel+logthick,cens.model="cox",metric="Auc")
  +     setkey(Melanoma,logthick)
  +     b <- Score(list(fit),data=Melanoma,Surv(time,status!=0)~invasion+epicel+logthick,cens.model="marginal",metric="Auc")
  +     B <- Score(list(fit),data=Melanoma,Surv(time,status!=0)~invasion+epicel+logthick,cens.model="cox",metric="Auc")
  +     a$call <- b$call <- A$call <- B$call <- NULL
  +     expect_equal(A,B)
  +     expect_equal(a,b)
  + })
  Error: Test failed: 'AUC censored data: order'
  * SETLENGTH() cannot be applied to an ALTVEC object.
  1: Score(list(fit), data = Melanoma, Surv(time, status != 0) ~ invasion + epicel + logthick, 
         cens.model = "marginal", metric = "Auc")
  2: Score.list(list(fit), data = Melanoma, Surv(time, status != 0) ~ invasion + epicel + 
         logthick, cens.model = "marginal", metric = "Auc")
  3: computePerformance(DT, N = N, se.fit = se.fit, conservative = conservative, cens.model, 
         multi.split.test = multi.split.test, keep.residuals = keep.residuals, keep.vcov = keep.vcov)
  4: do.call(paste(m, response.type, sep = "."), input)
  5: AUC.survival(DT = structure(list(ID = c(1L, 1L, 2L, 2L, 3L, 3L, 4L, 4L, 5L, 5L, 6L, 
     6L, 7L, 7L, 8L, 8L, 9L, 9L, 10L, 10L, 11L, 11L, 12L, 12L, 13L, 13L, 14L, 14L, 15L, 
     15L, 16L, 16L, 17L, 17L, 18L, 18L, 19L, 19L, 20L, 20L, 21L, 21L, 22L, 22L, 23L, 23L, 
     24L, 24L, 25L, 25L, 26L, 26L, 27L, 27L, 28L, 28L, 29L, 29L, 30L, 30L, 31L, 31L, 32L, 
     32L, 33L
  Execution halted