tests/testthat/test-check_model.R

In see: Model Visualisation Toolbox for 'easystats' and 'ggplot2'

test_that("`check_model()` works if convergence issues", {
  skip_on_cran()
  skip_if_not_installed("performance")

  d <- data.frame(
    y = c(
      101L,
      219L,
      70L,
      67L,
      31L,
      243L,
      41L,
      250L,
      140L,
      210L,
      22L,
      121L,
      282L,
      144L,
      223L,
      297L,
      20L,
      13L,
      148L,
      57L,
      143L,
      109L,
      273L,
      83L,
      28L,
      153L,
      261L,
      209L,
      134L,
      95L,
      17L,
      11L
    ),
    x = c(
      9.43240344971252,
      15.2821279871535,
      29.1169666338249,
      14.0859852649899,
      15.6464367574587,
      8.86321119888889,
      67.9427830082998,
      8.60340052656454,
      21.9029971533007,
      19.8586681899898,
      9.68086847417484,
      25.0990259928273,
      16.1398284119823,
      29.3829154122785,
      31.5592351678585,
      14.0320212214305,
      31.3815560884357,
      18.3566866719804,
      28.3822251897697,
      67.9433435559261,
      26.6656339570149,
      5.83151069454924,
      7.93210796912854,
      35.9198997836162,
      21.6330853399868,
      34.484392512508,
      35.9444483480784,
      28.4517728364097,
      27.2868577206239,
      8.1803022427107,
      46.3029232706936,
      41.516915503604
    ),
    offset = c(
      481L,
      515L,
      396L,
      451L,
      547L,
      409L,
      375L,
      430L,
      526L,
      456L,
      450L,
      425L,
      406L,
      396L,
      421L,
      417L,
      430L,
      419L,
      436L,
      517L,
      511L,
      435L,
      489L,
      417L,
      372L,
      373L,
      351L,
      367L,
      350L,
      339L,
      169L,
      63L
    )
  )

  m <- suppressWarnings(stats::glm(y ~ x + offset(offset), family = poisson, data = d))
  x <- performance::check_model(m)
  expect_s3_class(x, "check_model")
})