tests/testthat/test-crr-broom_methods.R

test_that("broom methods", {
  crr1 <- crr(Surv(ttdeath, death_cr) ~ age + grade, trial)

  expect_error(
    augment(crr1, times = c(10, 12)),
    NA
  )
  expect_error(
    glance(crr1),
    NA
  )
  expect_error(
    tidy(crr1),
    NA
  )
  expect_error(
    tidy(crr1, conf.int = TRUE),
    NA
  )
})

Try the tidycmprsk package in your browser

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

tidycmprsk documentation built on Nov. 2, 2023, 5:07 p.m.