\begin{Schunk}
\begin{Sinput}
 EXfull <- lm(EX ~ ECAB + MET + GROW + YOUNG + OLD + WEST, data=dat)
 getDeltaRsquare(EXfull)
\end{Sinput}
\begin{Soutput}
The deltaR-square values: the change in the R-square
      observed when a single term is removed.
Same as the square of the 'semi-partial correlation coefficient'
      deltaRsquare
ECAB   0.106307818
MET    0.034249030
GROW   0.017664838
YOUNG  0.007779037
OLD    0.000660166
WEST   0.064831204
\end{Soutput}
\end{Schunk}
