Подгонка кривой плотности к гистограмме в R

Есть ли функция в R, которая соответствует кривой на гистограмме?

Позволять'скажем, у вас была следующая гистограмма

hist(c(rep(65, times=5), rep(25, times=5), rep(35, times=10), rep(45, times=4)))

Это выглядит нормально, но этоперекошен. Я хочу соответствовать нормальной кривой, которая перекошена, чтобы обернуться вокруг этой гистограммы.

Этот вопрос довольно простой, но я могуКажется, я не могу найти ответ на вопрос в Интернете.