\begin{Schunk}
\begin{Sinput}
 mu <- 3
 sigma <- 5
 xrange <- seq(from = mu-3*sigma, to = mu+3*sigma, by = 0.2)
 mainlabel <- expression(paste("Normal Distribution, N(",mu,",",sigma,"^2",")", sep=""))
 xprob <- dnorm(xrange, mean = mu, sd = sigma, log = FALSE)
 plot(xrange, xprob, type = "l", main = mainlabel, xlab = "possible values of x", ylab = "probability of x")
 
\end{Sinput}
\end{Schunk}
