\begin{Schunk}
\begin{Sinput}
 mod1pcor <- getPartialCor(mod1, dvonly = FALSE)
 round(mod1pcor, 4)
\end{Sinput}
\begin{Soutput}
           EX    ECAB     MET    GROW     OLD   YOUNG    WEST
EX    -1.0000  0.4579 -0.2806  0.2055 -0.0406 -0.1380  0.3732
ECAB   0.4579 -1.0000 -0.1138 -0.0364 -0.4397 -0.5440  0.1137
MET   -0.2806 -0.1138 -1.0000  0.1404 -0.4716 -0.6449  0.0584
GROW   0.2055 -0.0364  0.1404 -1.0000 -0.4355 -0.2175  0.1699
OLD   -0.0406 -0.4397 -0.4716 -0.4355 -1.0000 -0.8268  0.3311
YOUNG -0.1380 -0.5440 -0.6449 -0.2175 -0.8268 -1.0000  0.4053
WEST   0.3732  0.1137  0.0584  0.1699  0.3311  0.4053 -1.0000
\end{Soutput}
\end{Schunk}
