Dataset

AustinVoters <- read.csv("VotersAustin.csv")

summary(AustinVoters$"Voter_Turnout")

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  0.0000  0.4467  0.5271  0.5165  0.5941  0.7392

hist(AustinVoters$Voter_Turnout)

plot(AustinVoters$Precinct,AustinVoters$Voter_Turnout)

cor(AustinVoters$Precinct,AustinVoters$Voter_Turnout)

## [1] 0.02596798