Grades <- c(65, 75, 78, 79, 80, 83, 84, 91, 93, 93, 99)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 65.0 78.5 83.0 83.6 92.0 99.0
hist(Grades, col = "gray", main = "Midterm 2 Grade Distribution", 5)