\begin{Schunk}
\begin{Sinput}
 legend("topleft", legend = c("Theoretical density", "Observed density"), lty = c(1,2), col = c("black","red"))
\end{Sinput}
\end{Schunk}
