CASchools <- CASchools %>%
mutate(size = ifelse(stratio >= 20, 1, 0))
english_group_levels <- c("< 1.9", "1.9 - 8.8", "8.8 - 23.0", ">= 23.0")
CASchools <- CASchools %>%
mutate(english_group = case_when(
english < 1.9 ~ "< 1.9",
english >= 1.9 & english < 8.8 ~ "1.9 - 8.8",
english >= 8.8 & english < 23.0 ~ "8.8 - 23.0",
english >= 23.0 ~ ">= 23.0"
))