library(tidyverse)
library(wru)
surname <- c("Hitchcock", "Kirby", "Magao", "Paddock")
voters <-data.frame(surname)
predict_race(voter.file = voters, surname.only = TRUE) %>% 
  select(surname, pred.whi, pred.bla, pred.his, pred.asi, pred.oth)