dwww Home | Show directory contents | Find package

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 Sat Jun 15 21:23:53 CEST 2024.