Nothing
test_that("running 'TTT_hazard_shape'", {
y <- rweibull(n = 50, shape = 2.5, scale = pi)
my_initial_guess <- TTT_hazard_shape(formula = y ~ 1, silent = TRUE)
expect_equal( is.HazardShape(my_initial_guess), TRUE )
})
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.