Grades <- c(19, 36, 46, 49, 49, 52, 60, 60, 61, 62, 65, 66, 66, 66, 67,
67, 68, 69, 69, 70, 73, 76, 76, 77, 78, 79, 79, 80, 82, 82, 83, 84, 84, 86,
87, 90, 96, 97)
summary(Grades)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 19.00 62.75 69.50 69.89 81.50 97.00 hist(Grades, col = "gray", main = "Midterm 2 Grade Distribution", 13)