# NOT RUN {
library(survey)
data(api)
dstrata <- apistrat %>%
as_survey_design(strata = stype, weights = pw)
dstrata %>%
group_by(awards) %>%
survey_tally()
dstrata %>%
survey_count(awards)
# }
Run the code above in your browser using DataLab