Grades <- c(60, 61, 65, 65, 66, 71, 72, 74, 75, 78, 79, 79, 82, 82, 84, 84,
84, 86, 87, 88, 90, 90, 90, 91, 93, 93, 96, 96, 96, 96)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 60.0 74.2 84.0 81.8 90.0 96.0
hist(Grades, col = "gray", main = "Midterm 3 Grade Distribution", 8)

plot of chunk Midterm3Grades