R/survey_statistics_helpers.R
cur_svy_wts.Rd
This is a helper to allow srvyr's syntactic style. This function allows quick access
to the full-sample weights for the current group, using cur_svy_wts()
,
See vignette("extending-srvyr")
for more details.
cur_svy_wts()
a numeric vector containing full-sample weights
data(api, package = 'survey') dstrata <- apistrat %>% as_survey_design(strata = stype, weights = pw) dstrata %>% summarize(sum_of_weights = sum(cur_svy_wts()), kish_deff = var(cur_svy_wts())/(mean(cur_svy_wts())^2))#> # A tibble: 1 × 2 #> sum_of_weights kish_deff #> <dbl> <dbl> #> 1 6194. 0.187