if (requiet("MASS")) {
data(quine)
set.seed(123)
m1 <- glm.nb(Days ~ Sex / (Age + Eth * Lrn), data = quine)
test_that("get_df", {
expect_equal(
get_df(m1, type = "residual"),
df.residual(m1),
ignore_attr = TRUE
)
expect_equal(
get_df(m1, type = "normal"),
Inf,
ignore_attr = TRUE
)
expect_equal(
get_df(m1, type = "wald"),
Inf,
ignore_attr = TRUE
)
})
}
Generated by dwww version 1.15 on Sat Jun 15 21:19:44 CEST 2024.