GRAD 695-Final Project-R-Homelessness 2

read.csv("C://Users/charl/Documents/GRAD 695-Final Project-R-Homelessness 1.csv")

##    Stably.Housed Homelessness
## 1             69           36
## 2             86           52
## 3             57           44
## 4             93           62
## 5            119           70
## 6            134           80
## 7             14           16
## 8             39           20
## 9             25           16
## 10            73           51
## 11            63           38
## 12            76           43
## 13           121           74
## 14            28           16
## 15            25           24
## 16            32           13
## 17           159           99
## 18            51           28
## 19           139           74
## 20            52           24
## 21           109           92
## 22           186          124

home = read.csv("C://Users/charl/Documents/GRAD 695-Final Project-R-Homelessness 1.csv") 

summary(home)

##  Stably.Housed     Homelessness   
##  Min.   : 14.00   Min.   : 13.00  
##  1st Qu.: 42.00   1st Qu.: 24.00  
##  Median : 71.00   Median : 43.50  
##  Mean   : 79.55   Mean   : 49.82  
##  3rd Qu.:116.50   3rd Qu.: 73.00  
##  Max.   :186.00   Max.   :124.00

t.test(home$Stably.Housed, home$Homelessness)

## 
##  Welch Two Sample t-test
## 
## data:  home$Stably.Housed and home$Homelessness
## t = 2.4489, df = 36.071, p-value = 0.01932
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##   5.109453 54.345092
## sample estimates:
## mean of x mean of y 
##  79.54545  49.81818

plot(home)

cov(home)

##               Stably.Housed Homelessness
## Stably.Housed      2278.165    1433.3420
## Homelessness       1433.342     963.7749

cov(home$Stably.Housed, home$Homelessness)

## [1] 1433.342

cor(home)

##               Stably.Housed Homelessness
## Stably.Housed     1.0000000    0.9673185
## Homelessness      0.9673185    1.0000000

cor(home$Stably.Housed, home$Homelessness)

## [1] 0.9673185

getwd()

## [1] "C:/Users/charl/Documents"