test_learner_surv.R
In targeted: Targeted Inference

library("tinytest")
library("survival")

data(sTRACE, package="mets")

test_learner_surv_cox <- function() {
  mod <- learner_surv_cox(Surv(time, status>0) ~ age + strata(sex))
  mod$estimate(sTRACE)

  m <- coxph(Surv(time, status>0) ~ age + strata(sex), data=sTRACE)
  expect_true(abs(coef(mod$fit)- coef(m)) < 1e-5)

  pr1 <- mod$predict(data.frame(age=50, sex=0:1), times=10)
  pr <- predict(
    m,
    newdata=data.frame(time=10,status=0, age=50, sex=0:1),
    type="survival"
  )
  expect_true(mean((pr- pr1)^2) < 1e-6)
}
test_learner_surv_cox()

test_learner_surv_rf <- function() {
  mod <- learner_surv_rf(Surv(time, status>0) ~ age + sex)
  mod$estimate(sTRACE)
  pr1 <- mod$predict(data.frame(age=50, sex=0:1), times=10)
  expect_true(length(pr1) == 2)
}
test_learner_surv_rf()