r - 计算不一致对的功能不起作用

Question

我正在尝试计算不一致对的数量。例如:

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。

我错过了什么？

Answer 1

我认为您误解了 ConDis.matrix 的工作原理。

它引用的对是元素索引对，该函数检查每对元素是否在两个向量中以相同的方式移动。

所以，在你的向量中，你确实有 5 个不一致的对，即(考虑具有有序定量 View 的字母):

1. 在 obs1 和 obs3 之间(arg1 中的“a”低于 arg2 中的“b”，但 arg2 中的“d”高于)
2. 在 obs1 和 obs4 之间(arg2 中的“a”低于 arg2 中的“b”，但 arg1 中的“d”高于 arg1)
3. 在 obs2 和 obs3 之间(arg1 中的“a”低于 arg2 中的“c”，但 arg2 中的“d”高于)
4. 在 obs2 和 obs4 之间(arg2 中的“a”低于 arg1 中的“c”，但 arg1 中的“d”高于)
5. 在 obs3 和 obs4 之间(arg1 中的“a”低于 arg1 中的“d”，但 arg2 中的“d”高于 arg2 中的“a”)