Calculates the effective sample size given survey weights.
Examples
w <- c(1, 2, 1.5, 3, 2)
calc_eff_n(w) # Should be less than length(w)
#> [1] 4.45679
Calculates the effective sample size given survey weights.
w <- c(1, 2, 1.5, 3, 2)
calc_eff_n(w) # Should be less than length(w)
#> [1] 4.45679