fix

easystats · Dec 17, 2024 · 6da102a · 6da102a
1 parent a55625d
commit 6da102a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/rescale_weights.R b/R/rescale_weights.R
@@ -127,7 +127,7 @@ rescale_weights <- function(data, by, probability_weights, nest = FALSE, method
 # rescale weights, method Carle ----------------------------
 
 .rescale_weights_kish <- function(probability_weights, data_tmp, data, weight_non_na) {
-  weights <- mean(data_tmp[[probability_weights]])
+  weights <- data_tmp[[probability_weights]]
   # design effect according to Kish
   deff <- mean(weights^2) / (mean(weights)^2)
   # rescale weights, so their mean is 1