Grades <- c(43, 49, 51, 53, 56, 60, 71, 80, 89, 89, 97, 98)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 43.0 52.5 65.5 69.7 89.0 98.0
hist(Grades, col = "gray", main = "Midterm 1 Grade Distribution", 10)