fix

easystats · Dec 31, 2024 · 725b631 · 725b631
1 parent 71795b5
commit 725b631
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rescale_weights.R b/R/rescale_weights.R
@@ -216,7 +216,7 @@ rescale_weights <- function(data,
   }
 
   # split into groups, and calculate weights
-  out <- lapply(split(data_tmp, data_tmp$by), function(group_data) {
+  out <- lapply(split(data_tmp, data_tmp[by]), function(group_data) {
     p_weights <- group_data[[probability_weights]]
     # design effect according to Kish
     deff <- mean(p_weights^2) / (mean(p_weights)^2)