fix

easystats · Mar 15, 2024 · d0822ba · d0822ba
1 parent a25ecac
commit d0822ba
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/check_overdispersion.R b/R/check_overdispersion.R
@@ -307,11 +307,11 @@ check_overdispersion.performance_simres <- function(x,
   dispersion <- function(i) var(i - x$fittedPredictedResponse) / variance
 
   # compute test results
-  .simres_statistics(x, statistic_fun = dispersion, alternative = alternative)
+  result <- .simres_statistics(x, statistic_fun = dispersion, alternative = alternative)
 
   out <- list(
-    dispersion_ratio = .simres_statistics$observed / mean(.simres_statistics$simulated),
-    p_value = .simres_statistics$p
+    dispersion_ratio = result$observed / mean(result$simulated),
+    p_value = result$p
   )
 
   class(out) <- c("check_overdisp", "see_check_overdisp")