\begin{Schunk}
\begin{Sinput}
 anova(mediat.out.3, mediat.out.2)
\end{Sinput}
\begin{Soutput}
Chi Square Difference Test

             Df    AIC    BIC  Chisq Chisq diff Df diff
mediat.out.2 83 7474.5 7620.3 109.15                   
mediat.out.3 84 7482.3 7624.2 118.95     9.8021       1
             Pr(>Chisq)   
mediat.out.2              
mediat.out.3   0.001743 **
---
Signif. codes:  
0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
\end{Soutput}
\end{Schunk}
