data-raw/cps_race.R

In schifferl/LagSelectionBias:

cps_race <- function(race_var) {
    if(race_var == 100) {
        "White"
    } else if(race_var == 200) {
        "Black or African American"
    } else {
        "Other Race"
    }
}