Grades <- c(58, 70, 70, 78, 78, 79, 84, 87, 93, 95) summary(Grades)
## Min. 1st Qu. Median Mean 3rd Qu. Max. ## 58.0 72.0 78.5 79.2 86.2 95.0
hist(Grades, col = "gray", main = "Midterm 3 Grade Distribution", 9)
