tests/testthat/test_plot_variable_response.R

context("plot_variable_response")

source("objects_for_tests.R")

test_that("Output", {
  expect_is(plot(svr_cph_group), "gg")
  expect_is(plot(svr_cph), "gg")
  expect_is(plot_var_resp_levels, "ggplot")
  expect_is(plot_var_resp_default, "ggplot")
})

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.