Add method

easystats · Oct 30, 2023 · 8ea7d85 · 8ea7d85
1 parent 53f961f
commit 8ea7d85
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -64,6 +64,7 @@ S3method(plot,see_parameters_sem)
 S3method(plot,see_parameters_simulate)
 S3method(plot,see_performance_pp_check)
 S3method(plot,see_performance_roc)
+S3method(plot,see_performance_simres)
 S3method(plot,see_point_estimate)
 S3method(plot,see_rope)
 S3method(plot,see_si)

diff --git a/R/data_plot.R b/R/data_plot.R
@@ -140,7 +140,7 @@ add_plot_attributes <- function(x) {
 
 
 #' @keywords internal
-.retrieve_data <- function(x) {  
+.retrieve_data <- function(x) {
   # retrieve model
   obj_name <- attr(x, "object_name", exact = TRUE)
   dat <- NULL

diff --git a/R/plot.check_normality.R b/R/plot.check_normality.R
@@ -71,7 +71,7 @@ plot.see_check_normality <- function(x,
     if (type == "qq") {
       model_info <- attributes(x)$model_info
       if (inherits(x, "performance_simres")) {
-        dat <- stats::na.omit(data.frame(y = attributes(x)$data))
+        dat <- stats::na.omit(data.frame(y = attributes(x)$scaledResiduals))
         model_info$is_simulated_residuals <- TRUE
       } else if (inherits(model, c("lme", "lmerMod", "merMod", "glmmTMB", "afex_aov", "BFBayesFactor"))) {
         res_ <- suppressMessages(sort(stats::residuals(model), na.last = NA))
@@ -129,6 +129,10 @@ plot.see_check_normality <- function(x,
 }
 
 
+#' @export
+plot.see_performance_simres <- plot.see_check_normality
+
+
 # normality plot: density -------------------------
 
 .plot_diag_norm <- function(x,