load("~/Desktop/PAD 6833/Research Data/HSLS_2017_PETS_SR_v1_0_R_Datasets/HSLS_09_SCHOOL_v1_0.rdata")
summary(HSLS_09_SCHOOL_v1_0$A1FREELUNCH)
## Data suppressed 
##             944
hist(HSLS_09_SCHOOL_v1_0$A1HRSTUDENT)

library(ggplot2)
plot(HSLS_09_SCHOOL_v1_0$W1SCHOOL, HSLS_09_SCHOOL_v1_0$C1PCARE)

cor(HSLS_09_SCHOOL_v1_0$X1SCHOOLCLI,HSLS_09_SCHOOL_v1_0$A1HRPARENT)
## [1] 0.6594427