tests/testthat/test-concurvity.R

In gavinsimpson/gratia: Graceful 'ggplot'-Based Graphics and Other Functions for GAMs Fitted Using 'mgcv'

## Test basis() and related functions

test_that("model_concurvity() works with a gam", {
  expect_silent(con <- model_concurvity(m_gam))
  expect_s3_class(con, "overall_concurvity")
  expect_s3_class(con, "concurvity")
  expect_named(con, c(".type", ".term", ".concurvity"))
})

test_that("concrvity() works with a gam", {
  expect_silent(con <- concrvity(m_gam))
  expect_s3_class(con, "overall_concurvity")
  expect_s3_class(con, "concurvity")
  expect_named(con, c(".type", ".term", ".concurvity"))
  expect_silent(plt <- draw(con))
  expect_doppelganger("draw.concurvity overall", plt)
})

test_that("model_concurvity() pairwise works with a gam", {
  expect_silent(con <- model_concurvity(m_gam, pairwise = TRUE))
  expect_s3_class(con, "pairwise_concurvity")
  expect_s3_class(con, "concurvity")
  expect_named(con, c(".type", ".term", ".with", ".concurvity"))
})

test_that("concrvity() pariwise works with a gam", {
  expect_silent(con <- concrvity(m_gam, pairwise = TRUE))
  expect_s3_class(con, "pairwise_concurvity")
  expect_s3_class(con, "concurvity")
  expect_named(con, c(".type", ".term", ".with", ".concurvity"))
  expect_silent(plt <- draw(con))

  skip_on_ci()
  expect_doppelganger("draw.concurvity pairwise", plt)
})