ユールの連関係数
ユールの連関係数を求める関数
q.coe <- function(dat){ num1 <- dat[1,1]*dat[2,2] num2 <- dat[1,2]*dat[2,1] q <- (num1 - num2) / (num1 + num2) q }
〜使用例〜
> dat <- matrix(c(10,5,5,10),ncol=2,byrow=TRUE) > dat [,1] [,2] [1,] 10 5 [2,] 5 10 > q.coe(dat) [1] 0.6