\begin{Schunk}
\begin{Sinput}
 mcDiagnose(mod3)
\end{Sinput}
\begin{Soutput}
The following auxiliary models are being estimated and returned in a list:
heaven ~ hell
<environment: 0x755f8b8>
hell ~ heaven
<environment: 0x755f8b8>
Drum roll please! 

And your R_j Squareds are (auxiliary Rsq)
   heaven      hell 
0.8607671 0.8607671 
The Corresponding VIF, 1/(1-R_j^2)
 heaven    hell 
7.18221 7.18221 
Bivariate Correlations for design matrix 
       heaven hell
heaven   1.00 0.93
hell     0.93 1.00
\end{Soutput}
\end{Schunk}
