Midterm Grades

Summary of the scores:

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   27.00   46.00   80.00   71.13   92.00  100.00

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)