revdep/checks.noindex/mlr3proba/old/mlr3proba.Rcheck/tests/testthat/test_mlr_measures_MeasureSurvHarrellC.R

context("MeasureSurvHarrellC")

test_that("missing surv", {
  lung2 = load_dataset("lung", "survival")
  lung2$time[1] = NA
  t = TaskSurv$new("s", backend = lung2, time = "time", event = "status")
  anyMissing(t$truth())
  expect_true(is.na(cindex(t$truth(), 1)))
})
gbm-developers/gbm documentation built on Feb. 16, 2024, 6:13 p.m.