Midterm 1 Grade Results

Grades <- c(47, 56, 56, 58, 59, 62, 67, 69, 69, 70, 77, 78, 81, 86, 87, 88, 
    88, 90, 90, 93, 93, 93, 94, 95)
summary(Grades)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    47.0    65.8    79.5    76.9    90.0    95.0

hist(Grades, col = "gray", main = "Midterm 1 Grade Distribution", 9)

plot of chunk GradeInfo