tests/testthat/test-summary.R

In QHScrnomo: Construct Nomograms for Competing Risks Regression Models

# Make sure that it returns an rms summary
test_that("It is an summary.rms object", {
  expect_equal(inherits(summary(prostate.crr), "summary.rms"), TRUE)
})

# Ensure we can pass additional arguments
test_that("We can pass additional summary.rms arguments", {
  expect_equal(inherits(summary(prostate.crr, conf.int = 0.75, antilog = FALSE), "summary.rms"), TRUE)
})