tests/testthat/test-rq.R

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

if (suppressWarnings(
  require("testthat") &&
  require("ggeffects") &&
  require("quantreg") &&
  getRversion() >= "3.6.0"
)) {

  data(stackloss)
  m1 <- rq(stack.loss ~ Air.Flow + Water.Temp, data = stackloss, tau = .25)

  test_that("ggpredict, rq", {
    expect_warning(pr <- ggpredict(m1, "Air.Flow"))
    expect_equal(pr$predicted[1], 10.09524, tolerance = 1e-4)
  })

  test_that("ggeffect, rq", {
    expect_null(ggeffect(m1, "Air.Flow"))
  })

  test_that("ggemmeans, rq", {
    expect_null(ggemmeans(m1, "Air.Flow"))
  })
}