check_heterogeneity_bias() -> check_group_variation()

Author: mattansb

DESCRIPTION

@@ -183,7 +183,7 @@ Suggests:
     panelr,
     pbkrtest,
     PCDimension,
-    performance (>= 0.12.0),
+    performance (>= 0.14.0),
     plm,
     PMCMRplus,
     poorman,

R/1_model_parameters.R

@@ -129,7 +129,7 @@
 #'
 #' - **pseudo** (*for 2-level (G)LMMs only*): In this (post-hoc) method, the
 #' response and the predictor are standardized based on the level of prediction
-#' (levels are detected with [performance::check_heterogeneity_bias()]): Predictors
+#' (levels are detected with [performance::check_group_variation()]): Predictors
 #' are standardized based on their SD at level of prediction (see also
 #' [datawizard::demean()]); The outcome (in linear LMMs) is standardized based
 #' on a fitted random-intercept-model, where `sqrt(random-intercept-variance)`

R/standardize_info.R

@@ -415,7 +415,8 @@ standardize_info.default <- function(model,
 
   f <- if (two_sd) 2 else 1
 
-  within_vars <- unclass(performance::check_heterogeneity_bias(model))
+  gv <- performance::check_group_variation(model)
+  within_vars <- gv[gv$Variation %in% c("both", "within"), "Variable"]
   id <- insight::get_random(model)[[1]]
   w <- insight::get_weights(model, remove_na = TRUE)
 

R/standardize_parameters.R

@@ -64,7 +64,7 @@
 #' delta.
 #' - **pseudo** (*for 2-level (G)LMMs only*): In this (post-hoc) method, the
 #' response and the predictor are standardized based on the level of prediction
-#' (levels are detected with [`performance::check_heterogeneity_bias()`]): Predictors
+#' (levels are detected with [`performance::check_group_variation()`]): Predictors
 #' are standardized based on their SD at level of prediction (see also
 #' [`datawizard::demean()`]); The outcome (in linear LMMs) is standardized based
 #' on a fitted random-intercept-model, where `sqrt(random-intercept-variance)`

man/model_parameters.Rd

@@ -329,6 +329,7 @@ test_that("standardize_parameters (Bayes)", {
 # Pseudo - GLMM --------------------------------
 test_that("standardize_parameters (Pseudo - GLMM)", {
   skip_if_not_installed("datawizard", minimum_version = "0.12.0")
+  skip_if_not_installed("performance", minimum_version = "0.14.0")
   skip_on_cran()
   skip_if_not_installed("lme4")
   set.seed(1)

man/standardize_parameters.Rd

@@ -85,11 +85,11 @@ turn, results in biased estimates, because both the within- *and* between-effect
 are captured in *one* estimate.
 
 You can check if your model may suffer from heterogeneity bias using the
-`check_heterogeneity_bias()` function:
+`check_group_variation()` function:
 
 ```{r}
 library(performance)
-check_heterogeneity_bias(qol_cancer, select = c("phq4", "education"), by = "ID")
+check_group_variation(qol_cancer, select = c("phq4", "education"), by = "ID")
 ```
 
 # Adressing heterogeneity bias: the Fixed Effects Regression (FE) approach