fix

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 1.3.0.3
+Version: 1.3.0.4
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

R/get_predicted_bayesian.R

@@ -124,7 +124,8 @@ get_predicted.stanreg <- function(x,
       # for mixture models, which predict the class membership, we stop
       # here and just return the predicted class membership
       mixture_output <- do.call(brms::pp_mixture, fun_args)
-      return(apply(mixture_output[, 1, ], 1, which.max))
+      out <- data.frame(Predicted = apply(mixture_output[, 1, ], 1, which.max))
+      return(out)
     }
   }