if (requiet("BayesFactor")) {
model <- BayesFactor::proportionBF(15, 25, p = 0.5)
mi <- insight::model_info(model)
test_that("model_info-BF-proptest", {
expect_true(mi$is_binomial)
expect_false(mi$is_linear)
})
model <- prop.test(15, 25, p = 0.5)
mi <- insight::model_info(model)
test_that("model_info-BF-proptest", {
expect_true(mi$is_binomial)
expect_false(mi$is_linear)
expect_false(mi$is_correlation)
})
}
if (requiet("tweedie") && requiet("statmod")) {
unloadNamespace("glmmTMB")
d <- data.frame(x = 1:20, y = rgamma(20, shape = 5))
# Fit a poisson generalized linear model with identity link
model <- glm(y ~ x, data = d, family = statmod::tweedie(var.power = 1, link.power = 1))
mi <- insight::model_info(model)
test_that("model_info-tweedie", {
expect_true(mi$is_tweedie)
expect_false(mi$is_poisson)
expect_equal(mi$family, "Tweedie")
})
}
Generated by dwww version 1.15 on Sun Jun 23 03:41:29 CEST 2024.