<<目次へ

ユールの連関係数

　ユールの連関係数を求める関数

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