Add TODO comment for overdispersion plot consistency with simulated residuals

Copilot · strengejacke · Copilot · commit f7ea9ac42097 · 2025-10-07T06:33:27.000Z
Co-authored-by: strengejacke &lt;26301769+strengejacke@users.noreply.github.com&gt;
diff --git a/R/check_overdispersion.R b/R/check_overdispersion.R
@@ -99,6 +99,10 @@ plot.check_overdisp <- function(x, ...) {
     }
   }
   if (!is.null(model)) {
+    # TODO: For models that use simulated residuals in check_overdispersion()
+    # (e.g., Poisson mixed models, zero-inflated models), this still uses
+    # classical residuals for plotting. Consider using simulated residuals
+    # for consistency. See #595, #643, #654
     x <- .model_diagnostic_overdispersion(model)
     class(x) <- c("see_check_overdisp", "data.frame")
     attr(x, "colors") <- list(...)$colors

Original file line number	Diff line number	Diff line change
`@@ -99,6 +99,10 @@ plot.check_overdisp <- function(x, ...) {`
`99`	`99`	`}`
`100`	`100`	`}`
`101`	`101`	`if (!is.null(model)) {`
	`102`	`+ # TODO: For models that use simulated residuals in check_overdispersion()`
	`103`	`+ # (e.g., Poisson mixed models, zero-inflated models), this still uses`
	`104`	`+ # classical residuals for plotting. Consider using simulated residuals`
	`105`	`+ # for consistency. See #595, #643, #654`
`102`	`106`	`x <- .model_diagnostic_overdispersion(model)`
`103`	`107`	`class(x) <- c("see_check_overdisp", "data.frame")`
`104`	`108`	`attr(x, "colors") <- list(...)$colors`