FIx get_statistic() for fixest::fenegbin()

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 1.0.0.3
+Version: 1.0.0.4
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

NEWS.md

@@ -10,6 +10,9 @@
 * Fixed issues in `find_predictors()` and `has_intercept()` for *brms* models
   with `0 + Intercept` formula notation.
 
+* Fixed issues in `get_statistic()` for models of class `fixest` from
+  negative-binomial families.
+
 # insight 1.0.0
 
 ## Breaking changes

R/get_statistic.R

@@ -2199,6 +2199,15 @@ get_statistic.fixest <- function(x, ...) {
   cs <- summary(x)$coeftable
   params <- get_parameters(x)
 
+  # remove .theta row
+  rn <- rownames(cs)
+  if (!is.null(rn)) {
+    theta_row <- which(rn == ".theta")
+    if (length(theta_row)) {
+      cs <- cs[-theta_row, ]
+    }
+  }
+
   out <- data.frame(
     Parameter = params$Parameter,
     Statistic = as.vector(cs[, 3]),

tests/testthat/test-fixest.R

@@ -284,6 +284,17 @@ test_that("get_statistic", {
   stat <- get_statistic(m3)
   out <- as.data.frame(summary(m3)$coeftable)
   expect_equal(stat$Statistic, out[, "z value"], tolerance = 1e-3, ignore_attr = TRUE)
+
+  skip_if_not_installed("glmmTMB")
+  data(Salamanders, package = "glmmTMB")
+  mod <- fixest::fenegbin(count ~ mined, data=Salamanders)
+  out <- get_statistic(mod)
+  expect_equal(
+    out$Statistic,
+    summary(mod)$coeftable[1:2, 3],
+    ignore_attr = TRUE,
+    tolerance = 1e-4
+  )
 })
 
 test_that("get_predicted", {