tests/testthat/test-join_empirical_hazard.R

km <- survival::survfit(survival::Surv(time, status == 2) ~ sex, data = survival::lung) |> 
  broom::tidy()

test_that("empirical hazards are joined as expected", {
  km_haz_joined <- join_empirical_hazard(km)
  expect_snapshot(km_haz_joined)
})

Try the lnmixsurv package in your browser

Any scripts or data that you put into this service are public.

lnmixsurv documentation built on Sept. 11, 2024, 7:18 p.m.