Final Grades

Summary of the scores:

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

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   37.50   62.50   83.75   76.04   90.88   97.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)