Создать матрицу совместного появления из фиктивных наблюдений
Существует ли простой подход к преобразованию фрейма данных с использованием макетов о том, присутствует ли аспект, в матрицу совместного вхождения, содержащую подсчеты двух аспектов, происходящих одновременно?
Например. исходя из этого
X <- data.frame(rbind(c(1,0,1,0), c(0,1,1,0), c(0,1,1,1), c(0,0,1,0)))
X
X1 X2 X3 X4
1 1 0 1 0
2 0 1 1 0
3 0 1 1 1
4 0 0 1 0
к этому
X1 X2 X3 X4
X1 0 0 1 0
X2 0 0 2 1
X3 1 2 0 1
X4 0 1 1 0