我试图计算不和谐对的数量.例如:
arg1=c("b","c","a","d")
arg2 = c("b","c","d","a")
上面有1个不一致对(对:"a"和"d")
但是当我跑步时:
require(asbio)
sum(ConDis.matrix(arg1,arg2)==-1,na.rm=TRUE)
我收到的答案是:5(而不是正确答案 - 1)
我也尝试过:
require(RankAggreg)
require(DescTools)
xy <- table(arg1,arg2)
cd <- ConDisPairs(xy)
cd$D
答案是5再次.
我错过了什么？