\begin{Schunk}
\begin{Sinput}
 library(relaimpo)
 EXFull <- lm(EX ~ ECAB+ MET + GROW + YOUNG + OLD + WEST, data=dat) 
\end{Sinput}
\end{Schunk}
