Nothing
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")
})
test_that("`check_model()` works if convergence issues", {
skip_on_cran()
skip_if_not_installed("performance")
skip_if_not_installed("merDeriv")
data(mtcars)
m <- lm(mpg ~ wt + cyl + gear + disp, data = mtcars)
set.seed(123)
x <- performance::check_model(m)
vdiffr::expect_doppelganger(
title = "check_model works for lm",
fig = plot(x)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.