inst/tinytest/test-pkg-glmx.R

In marginaleffects: Predictions, Comparisons, Slopes, Marginal Means, and Hypothesis Tests

source("helpers.R")
using("marginaleffects")

requiet("glmx")
requiet("MASS")
requiet("margins")

# glmx: marginaleffects vs. margins
tmp <- data.frame(x = runif(200, -1, 1))
tmp$y <- rnbinom(200, mu = exp(0 + 3 * tmp$x), size = 1)
d <- tmp
model <- glmx(y ~ x, data = d, family = negative.binomial, 
          xlink = "log", xstart = 0)
expect_slopes(model)
# margins produces all zeros for se
mar <- margins(model, unit_ses = TRUE)
mfx <- slopes(model)
expect_true(expect_margins(mfx, mar, se = FALSE, tolerance = .001))


# predictions: glmx: no validity check
#skip_if_not_installed("insight", minimum_version = "0.17.1")
tmp <- data.frame(x = runif(200, -1, 1))
tmp$y <- rnbinom(200, mu = exp(0 + 3 * tmp$x), size = 1)
d <- tmp
dhead <- head(d)
model <- glmx(y ~ x, data = d, family = negative.binomial,
          xlink = "log", xstart = 0)
pred1 <- predictions(model)
pred2 <- predictions(model, newdata = dhead)
expect_predictions(pred1, n_row = dhead)
expect_predictions(pred2, n_row = 6)


source("helpers.R")