Specifically this bit: ```r schools_dl = schools_dl %>% filter(dist_euclidean_jittered < 10000) %>% filter(dist_euclidean_jittered > 1000) %>% ```