tests/testthat/test_prints.R

context("print functions")

source("objects_for_tests.R")

test_that("Output explain", {
  expect_error(print(surve_cph), NA)
})


test_that("Output prediction_breakdown", {
   expect_error(print(broken_prediction), NA)
})

test_that("Output model_performance", {
  expect_error(print(mp_cph), NA)
})

test_that("Output variable_response", {
  expect_error(print(svr_cph), NA)
})

test_that("Output ceteris_paribus", {
  expect_error(print(cp_cph), NA)
})

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.