fix print polr

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: parameters
 Title: Processing of Model Parameters
-Version: 0.24.0.3
+Version: 0.24.0.4
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

NEWS.md

@@ -7,6 +7,9 @@
 * Fixed issues due to breaking changes in the latest release of the *datawizard*
   package.
 
+* Fixed issue with wrong column-header in printed output of `model_parameters()`
+  for `MASS::polr()` models with probit-link.
+
 # parameters 0.24.0
 
 ## Breaking Changes

R/utils_model_parameters.R

@@ -257,7 +257,7 @@
         "Coefficient"
       )
     }
-  } else if (!is.null(info) && info$family != "unknown") {
+  } else if (!is.null(info) && info$family != "unknown" && !info$is_probit) {
     if (isTRUE(exponentiate)) {
       if (info$is_exponential && identical(info$link_function, "log")) {
         coef_col <- "Prevalence Ratio"

tests/testthat/test-polr.R

@@ -0,0 +1,12 @@
+skip_if_not_installed("MASS")
+skip_on_cran()
+
+test_that("robust-se polr", {
+  data(housing, package = "MASS")
+  m <- MASS::polr(Sat ~ Infl + Type + Cont, weights = Freq, data = housing)
+  out <- model_parameters(m)
+  expect_identical(attributes(out)$coefficient_name, "Log-Odds")
+  m <- MASS::polr(Sat ~ Infl + Type + Cont, weights = Freq, data = housing, method = "probit")
+  out <- model_parameters(m)
+  expect_identical(attributes(out)$coefficient_name, "Coefficient")
+})