survey_reweighting.Rmd [33:40]:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    filter(gender %in% c("1", "2") & !is.na(age)) %>%
    mutate(
      age_strata = ifelse(age <= 17, "13_17",
                   ifelse(age <= 24, "18_24",
                   ifelse(age <= 44, "25_44",
                   ifelse(age <= 64, "45_64", "65_plus")))),
      overall_strata = paste(gender, age_strata, sep="_")
    ) %>%
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -



survey_reweighting.Rmd [60:67]:
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    filter(gender %in% c("1", "2") & !is.na(age)) %>%
    mutate(
      age_strata = ifelse(age <= 17, "13_17",
                   ifelse(age <= 24, "18_24",
                   ifelse(age <= 44, "25_44",
                   ifelse(age <= 64, "45_64", "65_plus")))),
      overall_strata = paste(gender, age_strata, sep="_")
    ) %>%
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -



