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")
})

Try the survxai package in your browser

Any scripts or data that you put into this service are public.

survxai documentation built on Aug. 28, 2020, 5:07 p.m.