tests/testthat/test-TTTE_Analytical_factor.R

test_that("running 'TTTE_Analytical' (factor x)", {

  TTT_2 <- TTTE_Analytical(Surv(time, status) ~ x, method = "cens", data = aml)
  expect_equal( as.numeric(TTT_2$strata), c(10,10) )
})

Try the EstimationTools package in your browser

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

EstimationTools documentation built on Dec. 10, 2022, 9:07 a.m.