多重共線性の検出

この演習では、Variance Inflation Factor（VIF）を使って、すべての変数間の多重共線性を確認します。car パッケージの vif() 関数で VIF を計算できます。

VIF の値は出力の GVIF 列にあり、指数表記で表示されることがよくあります。指数表記に慣れていない場合は、format() 関数を使えます。

sample_vif_value <- 2.213e+10
format(sample_vif_value, scientific = FALSE)

"22130000000"

car パッケージを読み込みます。
以前の演習で作成したモデル（multi_log）で多重共線性を確認します。
最も VIF が高い変数はどれですか？その変数名を文字列として highest に代入します。