\begin{Schunk}
\begin{Sinput}
 hist(Prestige$education, prob = TRUE,  xlab = "education (car::Prestige)", main = "")
 lines(density(Prestige$education))
\end{Sinput}
\end{Schunk}
