\begin{Schunk}
\begin{Sinput}
 curve(dchisq(x, 5), from = 0, to = 30, ylab="density", xlab=expression(hat(theta)))
\end{Sinput}
\end{Schunk}
