R/BSDA-package.R
Press.Rd
Data for Exercise 9.55
Press
A data frame/tibble with 20 observations on two variables
years of education
degree of confidence in the press (the higher the score, the more confidence)
Kitchens, L. J. (2003) Basic Statistics and Data Analysis. Pacific Grove, CA: Brooks/Cole, a division of Thomson Learning.
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)