lm(salary ~ new_hire + job_level,
   data = pay) %>%
  tidy()

glm(high_performer ~ gender + job_level,
    data = hr,
    family = "binomial") %>% 
  tidy()