```
> summary(lm(d$c_b ~ d$invest + d$highway + d$seaway + d$airway) )
Call:
lm(formula = d$c_b ~ d$invest + d$highway + d$seaway + d$airway)
Residuals:
Min 1Q Median 3Q Max
-0.42553 -0.07143 -0.07143 0.04255 0.92857
Coefficients: (1 not defined because of singularities)
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.4255 0.1730 2.460 0.02085 *
d$invest 0.1489 0.1246 1.196 0.24258
d$highway 0.5319 0.1746 3.047 0.00525 **
d$seaway -0.5030 0.1834 -2.743 0.01088 *
d$airway NA NA NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.2282 on 26 degrees of freedom
Multiple R-squared: 0.8186, Adjusted R-squared: 0.7977
F-statistic: 39.12 on 3 and 26 DF, p-value: 8.758e-10
> summary(lm(d$c_b ~ d$invest + d$highway + d$seaway ) )
Call:
lm(formula = d$c_b ~ d$invest + d$highway + d$seaway)
Residuals:
Min 1Q Median 3Q Max
-0.42553 -0.07143 -0.07143 0.04255 0.92857
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 0.4255 0.1730 2.460 0.02085 *
d$invest 0.1489 0.1246 1.196 0.24258
d$highway 0.5319 0.1746 3.047 0.00525 **
d$seaway -0.5030 0.1834 -2.743 0.01088 *
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 0.2282 on 26 degrees of freedom
Multiple R-squared: 0.8186, Adjusted R-squared: 0.7977
F-statistic: 39.12 on 3 and 26 DF, p-value: 8.758e-10
> summary(glm(d$c_b ~ d$invest + d$highway + d$seaway + d$airway, family = binomial ) )
Call:
glm(formula = d$c_b ~ d$invest + d$highway + d$seaway + d$airway,
family = binomial)
Deviance Residuals:
Min 1Q Median 3Q Max
-0.38499 -0.38499 0.00000 0.00004 2.29741
Coefficients: (1 not defined because of singularities)
Estimate Std. Error z value Pr(>|z|)
(Intercept) -19.33 9577.21 -0.002 0.998
d$invest 38.67 13544.22 0.003 0.998
d$highway 40.36 11891.45 0.003 0.997
d$seaway -21.90 9577.21 -0.002 0.998
d$airway NA NA NA NA
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 41.4554 on 29 degrees of freedom
Residual deviance: 7.2049 on 26 degrees of freedom
AIC: 15.205
Number of Fisher Scoring iterations: 20
Warning message:
glm.fit: fitted probabilities numerically 0 or 1 occurred
> summary(glm(d$c_b ~ d$invest + d$highway + d$seaway , family = binomial ) )
Call:
glm(formula = d$c_b ~ d$invest + d$highway + d$seaway, family = binomial)
Deviance Residuals:
Min 1Q Median 3Q Max
-0.38499 -0.38499 0.00000 0.00004 2.29741
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -19.33 9577.21 -0.002 0.998
d$invest 38.67 13544.22 0.003 0.998
d$highway 40.36 11891.45 0.003 0.997
d$seaway -21.90 9577.21 -0.002 0.998
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 41.4554 on 29 degrees of freedom
Residual deviance: 7.2049 on 26 degrees of freedom
AIC: 15.205
Number of Fisher Scoring iterations: 20
Warning message:
glm.fit: fitted probabilities numerically 0 or 1 occurred
> summary(glm(d$c_b ~ d$invest + d$highway , family = binomial ) )
Call:
glm(formula = d$c_b ~ d$invest + d$highway, family = binomial)
Deviance Residuals:
Min 1Q Median 3Q Max
-0.53498 -0.53498 0.00000 0.00006 2.00744
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -18.60 6644.47 -0.003 0.998
d$invest 16.73 6644.47 0.003 0.998
d$highway 38.74 8036.74 0.005 0.996
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 41.455 on 29 degrees of freedom
Residual deviance: 11.780 on 27 degrees of freedom
AIC: 17.78
Number of Fisher Scoring iterations: 19
Warning message:
glm.fit: fitted probabilities numerically 0 or 1 occurred
> summary(glm(d$c_b ~ d$invest , family = binomial ) )
Call:
glm(formula = d$c_b ~ d$invest, family = binomial)
Deviance Residuals:
Min 1Q Median 3Q Max
-2.1899 -0.8712 0.4366 0.4366 1.5183
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.303 1.049 2.196 0.02810 *
d$invest -3.076 1.159 -2.654 0.00796 **
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for binomial family taken to be 1)
Null deviance: 41.455 on 29 degrees of freedom
Residual deviance: 30.401 on 28 degrees of freedom
AIC: 34.401
Number of Fisher Scoring iterations: 4
>
```