[1] 0.7909486
[1] -0.8475514
[1] 0.09120476
[1] 1.239961e-16
Call:
lm(formula = grade ~ attendance, data = dt)
Residuals:
Min 1Q Median 3Q Max
-63.514 -8.129 0.613 9.083 40.188
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 54.011 3.703 14.588 < 2e-16 ***
attendance 38.164 4.377 8.719 9.41e-16 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 15.85 on 206 degrees of freedom
(1 observation deleted due to missingness)
Multiple R-squared: 0.2695, Adjusted R-squared: 0.266
F-statistic: 76.02 on 1 and 206 DF, p-value: 9.408e-16
SSE: 165.8958
SSE: 164.6405
We need to shift our estimate up so that it’s halfway between the data (\(\bar e=0\)):
SSE: 12.55881
SSE: 11.86442
Call:
lm(formula = score ~ attendance, data = dt)
Coefficients:
(Intercept) attendance
-12.91 30.88
Call:
lm(formula = score ~ attendance, data = dt)
Coefficients:
(Intercept) attendance
-0.9932 7.2068
Call:
lm(formula = score ~ attendance, data = dt)
Coefficients:
(Intercept) attendance
0.0127 4.9690
Call:
lm(formula = score ~ attendance, data = dt)
Residuals:
Min 1Q Median 3Q Max
-45.743 -6.771 -0.023 6.781 53.516
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.01270 0.02610 0.487 0.627
attendance 4.96901 0.04818 103.128 <2e-16 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 10.04 on 999998 degrees of freedom
Multiple R-squared: 0.01052, Adjusted R-squared: 0.01052
F-statistic: 1.064e+04 on 1 and 999998 DF, p-value: < 2.2e-16