Midterm 2 Grade Results

Grades <- c(51, 51, 58, 60, 61, 63, 66, 67, 70, 71, 71, 73, 75, 81, 81, 81, 
    82, 83, 83, 85, 87, 87, 90, 90, 91, 93, 94, 96, 96, 97)
summary(Grades)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    51.0    67.8    81.0    77.8    89.2    97.0

hist(Grades, col = "gray", main = "Midterm 2 Grade Distribution", 10)