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