tests/testthat/test-TTTE_Analytical_response.R

test_that("running 'TTTE_Analytical' (response argument)", {

  y <- rweibull(n=20, shape=1, scale=pi)
  TTT_4 <- TTTE_Analytical(response = y, scaled = FALSE)
  expect_equal( names(TTT_4$strata), "SingleGroup" )
})

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.