Nothing
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" )
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.