yield <- c(263.2,298.0,257.6,225.4,232.6,205.0,281.4,264.7,264.1,253.1,288.2,220.4,275.3,192.3,285.8,281.9,259.2,267.9,265.6,271.2,244.8, 265.2,274.3,279.1,250.8,208.3,257.4,264.6,267.1,255.0,268.0,254.0,255.2,240.8,281.0,274.6,222.6,248.0,297.2,274.1)

Generate a grouped histogram with a density plot, then answer the following questions.

a) At what value on the histogram does the highest frequency, or density, occur? Record your answer to the nearest whole number

b) The shape of the histogram:

c) Create a histogram, and plot a density plot over it. Prior to plotting a density plot over the histogram, what are the first and last values on the y-axis of the histogram?

d) Which section of the data appears to have greater density?