Add check_convergence method for parsnip _glm model (#605)

Co-authored-by: Daniel <[email protected]>
easystats · Sep 10, 2023 · eb8d4a1 · eb8d4a1
1 parent 0a620b9
commit eb8d4a1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -45,6 +45,7 @@ S3method(check_collinearity,probitmfx)
 S3method(check_collinearity,zerocount)
 S3method(check_collinearity,zeroinfl)
 S3method(check_concurvity,gam)
+S3method(check_convergence,"_glm")
 S3method(check_convergence,default)
 S3method(check_convergence,glmmTMB)
 S3method(check_convergence,merMod)

diff --git a/R/check_convergence.R b/R/check_convergence.R
@@ -107,3 +107,9 @@ check_convergence.glmmTMB <- function(x, ...) {
   # https://github.com/glmmTMB/glmmTMB/issues/275
   isTRUE(x$sdr$pdHess)
 }
+
+
+#' @export
+check_convergence._glm <- function(x, ...) {
+  isTRUE(x$fit$converged)
+}