From d0822bab65ea738349d543d84c52464b92b22257 Mon Sep 17 00:00:00 2001 From: Daniel Date: Fri, 15 Mar 2024 23:06:00 +0100 Subject: [PATCH] fix --- R/check_overdispersion.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/check_overdispersion.R b/R/check_overdispersion.R index 49f192d32..f8707f5ae 100644 --- 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")