tests/testthat/test-predict.unsurv.R

In unsurv: Unsupervised Clustering of Individualized Survival Curves

test_that("predict.unsurv returns valid cluster labels", {
  skip_if_not_installed("cluster")

  dat <- make_toy_curves(n = 30, Q = 35, seed = 4)
  fit <- unsurv(dat$S, dat$times, K = 2, eps_jitter = 0)

  pred <- predict(fit, dat$S[1:7, , drop = FALSE])
  expect_type(pred, "integer")
  expect_equal(length(pred), 7)
  expect_true(all(pred %in% 1:fit$K))

  # dimension mismatch should error
  expect_error(predict(fit, dat$S[1:7, -1, drop = FALSE]), "same number of columns")
})

test_that("predict.unsurv works with standardize_cols=TRUE", {
  skip_if_not_installed("cluster")

  dat <- make_toy_curves(n = 40, Q = 30, seed = 5)
  fit <- unsurv(dat$S, dat$times, K = 2, standardize_cols = TRUE, eps_jitter = 0)

  pred <- predict(fit, dat$S[1:10, , drop = FALSE])
  expect_true(all(pred %in% 1:fit$K))
})

test_that("predict.unsurv validates newdata grid and missingness", {
  skip_if_not_installed("cluster")

  dat <- make_toy_curves(n = 20, Q = 15, seed = 9)
  fit <- unsurv(dat$S, dat$times, K = 2, eps_jitter = 0)

  bad <- dat$S[1:3, ]
  bad[1, 5] <- NA

  expect_error(predict(fit, bad), "non-finite")
  expect_error(predict(fit, dat$S[1:3, -c(1, 2), drop = FALSE]), "same number of columns")
})