\begin{Schunk}
\begin{Sinput}
 (EXFull.relimp <- calc.relimp(EXFull, type=c("lmg"))) 
\end{Sinput}
\begin{Soutput}
Response variable: EX 
Total response variance: 3456.829 
Analysis based on 48 observations 

6 Regressors: 
ECAB MET GROW YOUNG OLD WEST 
Proportion of variance explained by model: 59.94%
Metrics are not normalized (rela=FALSE). 

Relative importance metrics: 

             lmg
ECAB  0.28416663
MET   0.03492833
GROW  0.08033756
YOUNG 0.06748339
OLD   0.01429318
WEST  0.11817898

Average coefficients for different model sizes: 

               1X        2Xs        3Xs        4Xs        5Xs        6Xs
ECAB   1.73287208  1.7961836  1.8130491  1.7476127  1.6128010  1.4185020
MET    0.09872711 -0.1759874 -0.4565307 -0.6267283 -0.6783790 -0.6601532
GROW   1.26246694  1.1260393  0.9792009  0.8118053  0.6649301  0.5715895
YOUNG -8.02338567 -7.5065678 -7.4332358 -7.2917564 -6.9958279 -6.6746586
OLD   -0.83908956 -0.6832795 -0.7204064 -1.1259130 -1.5630752 -1.8550734
WEST  43.45833333 46.5175733 45.8928772 42.4128710 38.6907909 35.4723358
\end{Soutput}
\begin{Sinput}
 plot(EXFull.relimp)
\end{Sinput}
\end{Schunk}
