★ R -- 多重共線性のチェック(トレランス) ★

 105 R -- 多重共線性のチェック(トレランス)  青木繁伸  2002/02/06 (水) 18:13


105. R -- 多重共線性のチェック(トレランス)  青木繁伸  2002/02/06 (水) 18:13
# 重回帰分析における多重共線性のチェック
# 独立変数のみのデータ行列を引数として与えると,各変数のトレランスを返す

tolerance <- function(x)
{
    t <-1/diag(solve(cor(x)))
    names(t) <- paste("Var", 1:ncol(x), sep="")
    t
}

# データ例
x <- matrix(c(
	1,2,4,
	3,2,5,
	4,3,7,
	2,1,3,
	5,4,7
), ncol=3)

tolerance(x)

# 結果
#      Var1      Var2      Var3
# 0.6730769 0.5867260 0.4466146


● 「統計学関連なんでもあり」の過去ログ--- 018 の目次へジャンプ
● 「統計学関連なんでもあり」の目次へジャンプ
● 直前のページへ戻る