\begin{Schunk}
\begin{Sinput}
 curve(dt(x, df = 99), from = -3, to = 3, xlab = expression(hat(t)), ylab="density")
 abline(v=c(-1.98, 1.98), col=gray(.80), lty =4)
 text(0, 0.025, label="2 tailed! \n An estimate over here or there\n will lead us to reject H0")
 arrows(c(-1.2,1.2), c(0.015, 0.015), c(-2.2,2.2), c(0.015, 0.015), col="red", length=0.1)
\end{Sinput}
\end{Schunk}
