data-raw/usa_race.R

In schifferl/LagSelectionBias:

usa_race <- function(race_var) {
    if(race_var == 1) {
        "White"
    } else if(race_var == 2) {
        "Black or African American"
    } else {
        "Other Race"
    }
}