tests/testthat/test-inherits_empiricalTTT.R

test_that("running 'maxlogLreg'", {

   TTT_1 <- TTTE_Analytical(Surv(stop, event == 'pcm') ~1, method = 'cens',
                            data = mgus1, subset=(start == 0))
  expect_equal( is.EmpiricalTTT(TTT_1), TRUE )

})

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.