tests/testthat/test_plot_model_performance.R

context("plot_model_performance")

source("objects_for_tests.R")

test_that("Output", {
  expect_is(plot(mp_cph), "gg")
  expect_is(plot(mp_cph, model_performance(surve_cph2)), "gg")
  expect_is(plot(mp_cph, mp_cph_artificial), "gg")
})
MI2DataLab/survxai documentation built on Sept. 10, 2022, 12:03 a.m.