\begin{Schunk}
\begin{Sinput}
  plot(pmean ~ xseq, type = "l", ylab = "density of mean of x", xlab = "mean of x")
\end{Sinput}
\end{Schunk}
