data-raw/county_codes.R

In dsu-effectiveness/utHelpR: Utility functions for Utah Tech Office of Institutional Effectiveness

first_admit_county_code_list <- c(
  0009,
  00097,
  001,
  003,
  005,
  007,
  009,
  011,
  013,
  015,
  017,
  019,
  021,
  023,
  025,
  027,
  029,
  030,
  031,
  033,
  035,
  037,
  039,
  041,
  043,
  045,
  047,
  049,
  051,
  053,
  055,
  057,
  rep(NA, 10)) %>%
  as.character()