Data for Exercise 9.55

Press

Format

A data frame/tibble with 20 observations on two variables

education_yrs

years of education

confidence

degree of confidence in the press (the higher the score, the more confidence)

References

Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.

Examples


plot(confidence ~ education_yrs, data = Press)
model <- lm(confidence ~ education_yrs, data = Press)
abline(model, col = "purple")

summary(model)
#> 
#> Call:
#> lm(formula = confidence ~ education_yrs, data = Press)
#> 
#> Residuals:
#>     Min      1Q  Median      3Q     Max 
#> -18.762  -5.665  -2.492   3.777  27.238 
#> 
#> Coefficients:
#>               Estimate Std. Error t value Pr(>|t|)    
#> (Intercept)     85.530     12.508   6.838 2.12e-06 ***
#> education_yrs   -4.231      1.020  -4.147 0.000605 ***
#> ---
#> Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
#> 
#> Residual standard error: 10.35 on 18 degrees of freedom
#> Multiple R-squared:  0.4887,	Adjusted R-squared:  0.4602 
#> F-statistic:  17.2 on 1 and 18 DF,  p-value: 0.0006049
#> 
rm(model)