Interpret the following R code OLS regression:

1. R Code:
   1. lm(modsex_discamt ~ nes$mode, data=nes)

Call:

lm(formula = modsex_discamt ~ nes$mode, data = nes)

Coefficients:

(Intercept) nes$mode2. Internet mode

2.908 -0.230

Call:

lm(formula = modsex_discamt ~ nes$mode, data = nes)

Residuals:

Min 1Q Median 3Q Max

-1.90775 -0.67777 0.09225 0.322232.32223

Coefficients:

Estimate Std. Error t value Pr(>|t|)

(Intercept) 2.90775 0.02174133.76 <2e-16 ***

nes$mode2. Internet mode -0.22998 0.02690 -8.55 <2e-16 ***

---

Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.9468 on 5467 degrees of freedom

(447 observations deleted due to missingness)

Multiple R-squared: 0.01319, Adjusted R-squared: 0.01301

F-statistic: 73.1 on 1 and 5467 DF, p-value: < 2.2e-16