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