\begin{Schunk}
\begin{Sinput}
 par(mfcol=c(2,1))
 curve(dchisq(x, 5), from = 0, to = 30, ylab="density", xlab=expression(hat(theta)))
 text(25, 0.025, label=expression(hat(theta)[1]))
 arrows(24.5, 0.02, 24.5, 0.005, length = 0.1, col = "red")
 curve(dchisq(x, 25), from = 0, to = 40, ylab="density", xlab=expression(hat(theta)))
 text(25, 0.012, label=expression(hat(theta)[1]))
 arrows(24.5, 0.01, 24.5, 0.005, length = 0.1, col = "red")
 par(mfcol=c(1,1))
\end{Sinput}
\end{Schunk}
