Read the data

View(attitude)
dim(attitude)
## [1] 30  7
names(attitude)
## [1] "rating"     "complaints" "privileges" "learning"   "raises"    
## [6] "critical"   "advance"

Plots for the Assignment 5

## Loading required package: carData