Midterm 3 Grade Results

Grades <- c(49, 61, 62, 65, 66, 68, 73, 73, 74, 74, 79, 79, 79, 80, 81, 83, 
    83, 84, 85, 85, 86, 86, 86, 87, 88, 89, 89, 92, 92, 92, 92, 93, 94, 95, 
    96, 100)
summary(Grades)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    49.0    74.0    84.5    81.7    89.8   100.0

hist(Grades, col = "gray", main = "Midterm 3 Grade Distribution", 13)