\begin{Schunk}
\begin{Sinput}
> plot(x, denx, type="l",xlim=c(truemean-4*truesd, truemean+4*truesd), ylim=c(0,ymax), ylab="Density")
> onedensity <- density(onexset)
> lines(onedensity, lty=2)
> legend("topleft",legend=c("Theoretical (PDF)", "Observed Density"), lty=c(1,2))
\end{Sinput}
\end{Schunk}
