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