Midterm Grades

Summary of the scores:

 grades$`Total Score` %>% summary()

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    14.0    82.0    92.0    86.9    98.0   100.0

Histogram:

hist(grades$`Total Score`, 12)

Kenrel density estimate:

plot(density(grades$`Total Score`, na.rm=T, from=min(grades$`Total Score`,na.rm = T), to=100, bw=6.5), lty=1, col="blue",  ann=F)