hist(Training_Cleaned_Filtered$`All Students (7/1/2018 - 6/30/2022)`,breaks = 10,probability = T)
lines(density(Training_Cleaned_Filtered$`All Students (7/1/2018 - 6/30/2022)`),col='red',lwd=2)
Training_Cleaned_Filtered_anova<-aov(`All Students Percent Successfully Completed` ~ County, data = Training_Cleaned_Filtered)
summary(Training_Cleaned_Filtered_anova)
## Df Sum Sq Mean Sq F value Pr(>F)
## County 71 7537490 106162 3.716 <2e-16 ***
## Residuals 1840 52563987 28567
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
cor.test(Training_Cleaned_Filtered$`All Students (7/1/2018 - 6/30/2022)`,Training_Cleaned_Filtered$`All Students Percent Successfully Completed`,method="pearson")
##
## Pearson's product-moment correlation
##
## data: Training_Cleaned_Filtered$`All Students (7/1/2018 - 6/30/2022)` and Training_Cleaned_Filtered$`All Students Percent Successfully Completed`
## t = 57.119, df = 1910, p-value < 2.2e-16
## alternative hypothesis: true correlation is not equal to 0
## 95 percent confidence interval:
## 0.7770322 0.8101803
## sample estimates:
## cor
## 0.7941963