Get the full-sample weights for the current context

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.

Usage

cur_svy_wts()

Value

a numeric vector containing full-sample weights

Examples

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