From 12b2b9e649f65fd8c835ee7e3d40228802110d99 Mon Sep 17 00:00:00 2001 From: Daniel Date: Fri, 16 Feb 2024 20:40:53 +0100 Subject: [PATCH] tests --- DESCRIPTION | 3 ++- tests/testthat/test-check_model.R | 8 ++++++++ 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 142767fa3..cdd668003 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Type: Package Package: performance Title: Assessment of Regression Models Performance -Version: 0.10.8.13 +Version: 0.10.8.15 Authors@R: c(person(given = "Daniel", family = "Lüdecke", @@ -128,6 +128,7 @@ Suggests: patchwork, pscl, psych, + quantreg, qqplotr (>= 0.0.6), randomForest, rempsyc, diff --git a/tests/testthat/test-check_model.R b/tests/testthat/test-check_model.R index cc512ed78..4a3d23703 100644 --- a/tests/testthat/test-check_model.R +++ b/tests/testthat/test-check_model.R @@ -43,3 +43,11 @@ test_that("`check_model()` for invalid models", { m1 <- lm(y ~ 1, data = dd) expect_error(check_model(m1)) }) + +test_that("`check_model()` works for quantreg", { + skip_if_not_installed("quantreg") + data(engel, package = "quantreg") + qm <- quantreg::rq(foodexp ~ income, data = engel) + x <- check_model(qm, verbose = FALSE) + expect_s3_class(x, "check_model") +})