tests/testthat/test-model_parameters.truncreg.R

In parameters: Processing of Model Parameters

test_that("model_parameters.truncreg", {
  skip_if_not_installed("truncreg")
  skip_if_not_installed("survival")
  set.seed(123)
  data("tobin", package = "survival")

  model <- truncreg::truncreg(
    formula = durable ~ age + quant,
    data = tobin,
    subset = durable > 0
  )
  params <- model_parameters(model)
  expect_equal(params$SE, c(9.21875, 0.22722, 0.03259, 0.56841), tolerance = 1e-3)
  expect_equal(params$t, c(1.36653, 1.89693, -3.64473, 2.90599), tolerance = 1e-3)
  expect_equal(
    colnames(params),
    c("Parameter", "Coefficient", "SE", "CI", "CI_low", "CI_high", "t", "df_error", "p")
  )
})