Homework ==========

Problem 1: Metrics

## 
## Call:
## lm(formula = Salary ~ GPA + Sex, data = metrics)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -4489.1 -1860.9  -842.5  2178.4  7071.2 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  27270.7     1976.4  13.798   <2e-16 ***
## GPA           1131.4      661.7   1.710   0.0939 .  
## Sex           -399.7      785.5  -0.509   0.6132    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2710 on 47 degrees of freedom
## Multiple R-squared:  0.06095,    Adjusted R-squared:  0.02099 
## F-statistic: 1.525 on 2 and 47 DF,  p-value: 0.2281

2. Is the value of econometrics statistically significant?

##NO # 3. Do women make more or less than men? ##LESS

Problem 2: Pollution and Housing Prices

## 
## Call:
## lm(formula = price ~ nox, data = hprice2)
## 
## Residuals:
##       1       2       3       4       5       6 
##   611.7 -8774.9  4326.1  1912.4  4711.4 -2786.6 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)
## (Intercept)    77856      38680   2.013    0.114
## nox           -10124       8128  -1.246    0.281
## 
## Residual standard error: 5694 on 4 degrees of freedom
## Multiple R-squared:  0.2795, Adjusted R-squared:  0.09932 
## F-statistic: 1.551 on 1 and 4 DF,  p-value: 0.2809

How much does prices drop given an increase in pollution

##$10,124