stats_lectures <- stats_lectures %>% 
  mutate(attend_or_not = factor(attend_or_not, 
                                levels = c("course not attended", 
                                           "course attended")))