# NOT RUN {
primaries <- c("partyid", "age", "race")
full_terms <- c("partyidDon't know", "partyidOther party", "age",
"partyidNot str democrat", "age", "raceBlack", "age", "raceBlack")
extract_primary_term(primaries, full_terms)
# }
Run the code above in your browser using DataLab