\begin{Schunk}
\begin{Sinput}
> truemean <- 5.353
> truesd <- 4.55
> ymax <- 0.12
> x <- seq(truemean-4*truesd, truemean+4*truesd, by=0.1)
> denx <- dnorm(x, m=truemean, s=truesd)
> plot(x, denx, type="l",xlim=c(truemean-4*truesd, truemean+4*truesd), ylim=c(0,ymax), ylab="Density")
\end{Sinput}
\end{Schunk}
