tests/testthat/test-tobit.R

In javifar/ggeffects: Create Tidy Data Frames of Marginal Effects for 'ggplot' from Model Outputs

if (suppressWarnings(
  require("testthat") &&
  require("ggeffects") &&
  require("AER")
)) {
  unloadNamespace("VGAM")

  data("Affairs")
  m1 <- tobit(affairs ~ age + yearsmarried + religiousness + occupation + rating, data = Affairs)

  test_that("ggpredict, tobit", {
    pr <- ggpredict(m1, "yearsmarried")
    expect_equal(pr$predicted[1], -10.15089, tolerance = 1e-4)
  })

  test_that("ggeffect, tobit", {
    expect_null(ggeffect(m1, "yearsmarried"))
  })

  test_that("ggemmeans, tobit", {
    pr <- ggemmeans(m1, "yearsmarried")
    expect_equal(pr$predicted[1], -10.15089, tolerance = 1e-4)
  })
}