演習問題の答え　　　　　Last modified: Aug 19, 2015

R を用いると以下のようになる。 

> ## トレランスとVIF
> r <- cor(X)
> VIF <- diag(solve(r))
> tolerance = 1/VIF
> data.frame(tolerance, VIF)
   tolerance      VIF
X1  0.983576 1.016698
X2  0.983576 1.016698

・ 直前のページへ戻る　　・ E-mail to Shigenobu AOKI