\begin{Schunk}
\begin{Sinput}
 mod2 <- lm(EX ~ YOUNG + WEST, data = dat)
 mod2pcor <- getPartialCor(mod2, dvonly = FALSE)
 round(mod2pcor^2, 4)
\end{Sinput}
\begin{Soutput}
          EX  YOUNG   WEST
EX    1.0000 0.2041 0.2507
YOUNG 0.2041 1.0000 0.2020
WEST  0.2507 0.2020 1.0000
\end{Soutput}
\end{Schunk}
