tests/testthat/test_plot_prediction_breakdown.R

context("plot_variable_response")

source("objects_for_tests.R")

test_that("Output", {
  expect_is(plot(broken_prediction), "ggplot")
  expect_is(plot(broken_prediction, broken_prediction2), "ggplot")
  expect_is(plot(broken_prediction_prob), "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.