include try on confint call

jasp-stats · Nov 18, 2024 · 0147814 · 0147814
1 parent 8c847d8
commit 0147814
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/generalizedlinearmodel.R b/R/generalizedlinearmodel.R
@@ -417,7 +417,10 @@ GeneralizedLinearModelInternal <- function(jaspResults, dataset = NULL, options,
   rowNames <- rownames(modelSummary)
 
   if (options[["coefficientCi"]]) {
-    coefCiSummary <- confint(fullModel, level = options[["coefficientCiLevel"]])
+    coefCiSummary <- try(confint(fullModel, level = options[["coefficientCiLevel"]]))
+    if (jaspBase::isTryError(coefCiSummary)) {
+      quitAnalysis("Confidence intervals not available for this model, try other predictors, families, or links.")
+    }
     if (length(rowNames) == 1) coefCiSummary <- matrix(coefCiSummary, ncol = 2)
   } else {
     coefCiSummary <- matrix(nrow = length(rowNames),