D
Size: a a a
D
l
A
A
OB
D
A
PU
PU
АК
PU
АК
АК
ЕТ
АК
ЕТ
AM
outer
прикрутитьsapply(tab, function(x){
sapply(tab, function(y){
all.equal(x,y)
})
})
AM
АК
outer
прикрутитьsapply(tab, function(x){
sapply(tab, function(y){
all.equal(x,y)
})
})
DF <- replicate(5, sample(c(TRUE, FALSE), 100, replace = TRUE))Результат:
idx <- combn(ncol(DF), 2)
res <- matrix(NA_integer_, ncol(DF), ncol(DF))
colnames(res) <- colnames(DF)
rownames(res) <- colnames(DF)
for (ii in 1:ncol(idx)) {
i <- idx[2, ii]
j <- idx[1, ii]
res[i, j] <- all(DF[, i] == DF[, j])
}
res
[,1] [,2] [,3] [,4] [,5]
[1,] NA NA NA NA NA
[2,] 0 NA NA NA NA
[3,] 0 0 NA NA NA
[4,] 0 0 0 NA NA
[5,] 0 0 0 0 NA
AM