Let Test_Scores <- c(45,50,66,66,70,72,75,75,80,81,82,82,82,88,89,90,90,96,99). For the vector Test_Scores form a frequency histogram with each bin representing a 20 point range starting at 40 and going to 100.

Then form a density histogram of the same numerical variable Test_Scores but this time have breaks at (40,50,70,85,100). Show the sum of the areas in the histogram is one.