context("surv_model_performance")
source("objects_for_tests.R")
test_that("Creating surv_model_performance", {
expect_is(mp_cph, "surv_model_performance_explainer")
expect_is(mp_cph, "BS")
expect_is(mp_cph_artificial, "surv_model_performance_explainer")
})
test_that("Wrong input",{
expect_error(model_performance(cph_model))
expect_error(model_performance(surve_cph_null_data))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.