Grades <- c(61, 64, 74, 75, 77, 78, 84, 85, 85, 88, 88, 90, 90, 94, 96, 96,
97, 99, 100)
summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 61.0 77.5 88.0 85.3 95.0 100.0
hist(Grades, col = "gray", main = "Midterm 3 Grade Distribution", 9)