\begin{Schunk}
\begin{Sinput}
 EXfull <- lm(EX ~ ECAB + MET + GROW + YOUNG + OLD + WEST, data=dat)
 EXnoECAB <- lm(EX ~ MET + GROW + YOUNG + OLD + WEST, data=dat)
 (deltaRecab <- summary(EXfull)$r.square - summary(EXnoECAB)$r.square)
\end{Sinput}
\begin{Soutput}
[1] 0.1063078
\end{Soutput}
\end{Schunk}
