minor fix for forthcoming changes in {performance}

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.13.0
+Version: 0.13.0.1
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

NEWS.md

@@ -1,3 +1,10 @@
+# see (devel)
+
+## Changes
+
+* Updated plot-method for `performance::check_model()` for Bayesian ordinal
+  models.
+
 # see 0.13.0
 
 ## Breaking Changes

R/plot.check_predictions.R

@@ -15,6 +15,16 @@ data_plot.performance_pp_check <- function(x, type = "density", ...) {
   }
 
   columns <- colnames(x)
+
+  # preparation for ordinal models - we may have numeric values for simulated
+  # response, but ordered for original response. Fix this here.
+  if (is.ordered(x$y) && is.numeric(x$sim_1)) {
+    sims <- startsWith(colnames(x), "sim_")
+    x[sims] <- lapply(x[sims], function(i) {
+      factor(i, labels = levels(x$y), ordered = TRUE)
+    })
+  }
+
   dataplot <- stats::reshape(
     x,
     times = columns,