\begin{Schunk}
\begin{Sinput}
  xmean <- 43; xsd <- 7
  xrange <- c(xmean-4*xsd, xmean+4*xsd)
  curve(dnorm(x, m = xmean, sd= xsd), from = xrange[1], to = xrange[2])
  title("The Normal density, mu = 43, sigma = 7")
\end{Sinput}
\end{Schunk}
