if (requiet("lmtest")) {
data("Mandible", package = "lmtest")
m <- lm(length ~ age, data = Mandible, subset = (age <= 28))
ct1 <- coeftest(m)
ct2 <- coeftest(m, df = Inf)
test_that("find_statistic", {
expect_equal(find_statistic(ct1), "t-statistic")
expect_equal(find_statistic(ct2), "z-statistic")
})
test_that("get_statistic", {
expect_equal(get_statistic(ct1)$Statistic, c(-12.24446, 37.16067), tolerance = 1e-3)
expect_equal(get_statistic(ct2)$Statistic, c(-12.24446, 37.16067), tolerance = 1e-3)
})
}
Generated by dwww version 1.15 on Sat Jun 15 19:49:17 CEST 2024.