library(readxl)
district <- read_excel("district.xls")
summary(district$DPETALLC)
##     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
##      4.0    337.5    884.0   4476.3   2746.0 193727.0
hist(district$DPETALLC)

plot(district$DPETALLC, district$DZCAMPUS)

cor(district$DPETALLC, district$DZCAMPUS)
## [1] 0.9655324