Draft plotting simulated residuals

easystats · Mar 15, 2024 · 2bebe13 · 2bebe13
1 parent 4736d08
commit 2bebe13
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/data_plot.R b/R/data_plot.R
@@ -148,6 +148,11 @@ add_plot_attributes <- function(x) {
   obj_name <- attr(x, "object_name", exact = TRUE)
   dat <- NULL
 
+  # for simulated residuals, we save all necessary information in the object
+  if (inherits(x, "performance_simres")) {
+    return(x$fittedModel)
+  }
+
   if (!is.null(obj_name)) {
     # first try, parent frame
     dat <- tryCatch(get(obj_name, envir = parent.frame()), error = function(e) NULL)