\begin{Schunk}
\begin{Sinput}
  plot(dxseq ~ xseq, type="n", ylim=c(0,1.2* max(dxseq)), xlab="x",ylab=paste("dnorm(x, m=", xmean,", sd=", xsd,")"))
  lines(xseq, dxseq)
  title(paste("Normal PDF with Expected value = ", xmean," and sigma =", xsd))
\end{Sinput}
\end{Schunk}
