fix

Author: strengejacke

R/utils_model_parameters.R

@@ -261,10 +261,10 @@
     if (isTRUE(exponentiate)) {
       if (info$is_exponential && identical(info$link_function, "log")) {
         coef_col <- "Prevalence Ratio"
-      } else if ((info$is_binomial && info$is_logit) || info$is_ordinal || info$is_multinomial || info$is_categorical) {
-        coef_col <- "Odds Ratio"
       } else if (info$is_probit) {
         coef_col <- "exp(Z-Score)"
+      } else if ((info$is_binomial && info$is_logit) || info$is_ordinal || info$is_multinomial || info$is_categorical) {
+        coef_col <- "Odds Ratio"
       } else if (info$is_binomial && !info$is_logit) {
         if (info$link_function == "identity") {
           coef_col <- "Exp. Risk"
@@ -276,10 +276,10 @@
       }
     } else if (info$is_exponential && identical(info$link_function, "log")) {
       coef_col <- "Log-Prevalence"
-    } else if ((info$is_binomial && info$is_logit) || info$is_ordinal || info$is_multinomial || info$is_categorical) {
-      coef_col <- "Log-Odds"
     } else if (info$is_probit) {
       coef_col <- "Z-Score"
+    } else if ((info$is_binomial && info$is_logit) || info$is_ordinal || info$is_multinomial || info$is_categorical) {
+      coef_col <- "Log-Odds"
     } else if (info$is_binomial && !info$is_logit) {
       if (info$link_function == "identity") {
         coef_col <- "Risk"