context("tte")
library(testthat)
# Tests TTE (time-to-end) module and utility functions
test_that("kmEventTables works without errors", {
fit <- survival::survfit(survival::Surv(time, status) ~ sex, data=survival::lung, conf.type='log-log')
testthat::expect_s3_class(kmEventTables(fit), "htmlTable")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.