[英]I there a R function for finding a minimum between to pairs?
我需要确定占主导地位的变量对:如果该对的两个值都低于数据中的其他对。
我已经尝试过min
或pmin
函数,但我不确定它们是否最合适。
a = matrix(c(50,70), ncol = 2)
b = matrix(c(45,85), ncol = 2)
df = rbind(a,b)
Dominance <- function(a){
for (i in 1:nrow(a)) {
for (j in 1:nrow(a)) {
i1 <- rowSums(a[i,] < a[j,]) == ncol(a)
a[i1,, drop = FALSE]
}
}
return(a)
}
l = Dominance(df)
> l
X1 X2
1 45 65
2 50 70
我希望删除这对 (45,65)。
一个选项是在相等大小的对象之间进行比较( <
),然后得到rowSums
,如果总和等于数据集的列数,则意味着该行中的所有元素都小于对应的第二个数据排
f1 <- function(mat1, mat2) {
i1 <- !rowSums(mat1 < mat2) == ncol(mat1)
i2 <- !rowSums(mat2 < mat1) == ncol(mat2)
rbind(mat1, mat2)[c(i1, i2),, drop = FALSE]
}
b <- matrix(c(45,65), ncol = 2)
b1 <- matrix(c(45,85), ncol = 2)
f1(a, b)
# [,1] [,2]
#[1,] 50 70
f1(a, b1)
# [,1] [,2]
#[1,] 50 70
#[2,] 45 85
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.