summary(special_ed$DPETSPEP)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.00    9.90   12.10   12.27   14.20   51.70
summary(special_ed$DPFPASPEP)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   0.000   5.800   8.900   9.711  12.500  49.000       5

#4: Missing values: DPFPASPEP

special_ed_clean <- special_ed %>% drop_na(DPFPASPEP)
summary(special_ed_clean$DPFPASPEP)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   0.000   5.800   8.900   9.711  12.500  49.000
ggplot(special_ed_clean, aes(x = DPETSPEP, y = DPFPASPEP)) + geom_point()

cor(special_ed_clean$DPETSPEP, special_ed_clean$DPFPASPEP)
## [1] 0.3700234

#As the percent of special education increases so does the money spent on special education.

```