Aptitude test scores versus productivity in a factory

Data for Exercises 2.1, 2.26, 2.35 and 2.51

Aptitude

Format

A data frame/tibble with 8 observations on two variables

aptitude

aptitude test scores

product

productivity scores

References

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

Examples

plot(product ~ aptitude, data = Aptitude, main = "Exercise 2.1")
model1 <- lm(product ~ aptitude, data = Aptitude)
model1
#> 
#> Call:
#> lm(formula = product ~ aptitude, data = Aptitude)
#> 
#> Coefficients:
#> (Intercept)     aptitude  
#>      12.443        1.207  
#> 
abline(model1, col = "red", lwd=3)

resid(model1)
#>          1          2          3          4          5          6          7 
#> -0.3033333  2.0433333  0.8700000 -2.3700000  3.4233333 -2.1966667 -1.9233333 
#>          8 
#>  0.4566667 
fitted(model1)
#>        1        2        3        4        5        6        7        8 
#> 23.30333 32.95667 28.13000 35.37000 36.57667 40.19667 26.92333 30.54333 
cor(Aptitude$product, Aptitude$aptitude)
#> [1] 0.9356161